Question

Turbo Pascal Program wczytuje od użytkownika dane:Ip,imię,nazwisko oraz 3 oceny.Program wylicza średnią i wszystkie dane zapisuje do pliku tekstowego . Prosze pomóżcie

Answer 1

nię pamiętam aż tak dobrze skłądni Pascala, ale chyba mniej wiecej Ci napisze ;) oczywiście będziesz musiał wkleić to do Pascala i sprawdzić wszystko ewentualnie poprawić gdyż pisze bez kompilatora.

 

var imie,nazwisko:string;

var ocena1,ocena2,ocena3:integer;

var wynik:real;

var t;text;

begin

 

Writeln('Podaj imie');

Read(imie);

Writeln('Podaj nazwisko');

Read(nazwisko);

Writeln('Podaj 3 oceny');

read(ocena1,ocena2,ocena3);

wynik:=(ocena1+ocena2+ocena3)/3;

assign(t, 'c:/plik.txt');

rewrite(t);

Writeln(t, 'imie:', imie,'nazwisko':,nazwisko);

writeln(t, 'Wynik wynosi:' wynik);

close(t);

end.

 

P S nie jestem pewien co do samego zapisu do pliku tekstowego, ale chyba tak to szło ;)