Brak odpowiedzi do tego tematu

[Cherry]

Witam. Mam jako pracę przygotować program z listą uczniów 2 grupy mojej klasy Wszystko jest już praktycznie skończone jednak brakuje zapisu do pliku. Próbowałem na kilka sposobów to robić ale za każdym razem coś nie grało ;/ Chodzi o to aby na wejściu program zapytał czy chcemy odczytać dane z pliku lub wpisać ręcznie(kasując stary plik .txt i tworząc nowy) do tego do wyboru z menu odczyt z pliku wszystkich uczniów lub jednego, wybranego. Będę wdzięczny
Kod wygląda następująco:

program projekt1;
uses
	crt;
type
	Uczen=record
				Imie : String[20];
				Nazwisko : String[20];
				Grupa : byte;
				Klasa : byte;
end;
var

Tablica : array[17..33] of Uczen;
   i : Byte;
   n : String;
   m : Byte;
   x : String;
begin
	 i:=17;
		   for i:=17 to 33 do
			   begin
	 clrscr;
writeln('Podaj imie ', i ,' ucznia: ');
readln(Tablica[i].Imie);
writeln('Podaj nazwisko ', i ,' ucznia: ');
readln(Tablica[i].Nazwisko);
writeln('Podaj grupe ', i ,' ucznia: ');
readln(Tablica[i].Grupa);
writeln('Podaj klase ', i ,' ucznia: ');
readln(Tablica[i].Klasa);
			   end;
repeat
clrscr;
writeln('################################################################');
writeln('###					   *****Menu*****					 ###');
writeln('###   1.Aby zobaczyc wszystkich uczniow na raz kliknij "w".  ###');
writeln('###   2.Aby zobaczyc wybranego ucznia kliknij "u".		   ###');
writeln('################################################################');
readln(n);
if (n <> 'w') and (n <> 'W') and (n <> 'u') and (n <> 'U') then
writeln('Podales zly znak. Wracam z powrotem do menu.');
readln;
until (n='w') or (n='W') or (n='u') or (n='U');
if (n='w') or (n='W') then
begin
writeln('Wybrales opcje numer 1.');

			for i:=17 to 33 do
writeln(i ,' Imie: ','', Tablica[i].Imie,'',' Nazwisko: ','', Tablica[i].Nazwisko,'',' Grupa: ','',Tablica[i].Grupa,'', ' Klasa: ','',Tablica[i].Klasa);
end;
if (n='u') or (n='U') then
begin
writeln('Wybrales opcje numer 2.');
writeln('Ktorego ucznia z listy chcesz zobaczyc?(17-33)');
readln(i);
writeln(i ,' Imie: ','', Tablica[i].Imie,'',' Nazwisko: ','', Tablica[i].Nazwisko,'',' Grupa: ','',Tablica[i].Grupa,'', ' Klasa: ','',Tablica[i].Klasa);
writeln('Wcisnij ENTER.');
readln;
end;
repeat
writeln('Czy chcesz wrocic do menu? T/N');
readln(x);
if (x <> 't') and (x <> 'T') and (x <> 'n') and (x <> 'N') then
writeln('Podales zly znak. Wpisz jeszcze raz.');
until (x='t') or (x='T') or (x='N') or (x='n');
until (x='N') or (x='n');
writeln('Koncze program. Nacisnij ENTER.');
readln;
end.

Użytkownik Cherry edytował ten post 23.03.2012 21:26