Skocz do zawartości

  • Zaloguj korzystając z Facebooka Zaloguj korzystając z Twittera Zaloguj przez Steam Zaloguj poprzez Google      Logowanie »   
  • Rejestracja

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

  • Rozpoczynaj nowe tematy i odpowiedaj na inne
  • Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
  • Dodawaj wydarzenia do kalendarza społecznościowego
  • Stwórz swój własny profil i zdobywaj nowych znajomych
  • Zdobywaj nowe doświadczenia

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Pascal

Zapis do pliku

pascal

  • Nie możesz napisać tematu
  • Zaloguj się, aby dodać odpowiedź
Brak odpowiedzi do tego tematu

#1 Cherry

    Pomocny

  • Użytkownik

Reputacja: 17
Początkujący

  • Postów:57
  • Lokalizacja:Janów
Offline

Napisano 23.03.2012 21:22

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

  • +
  • -
  • 0





Również z jednym lub większą ilością słów kluczowych: pascal

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych