mama2, Prz inf 2013, I Semestr Informatyka, Wprowadzenie do programowania, Zaliczenie proram

[ Pobierz całość w formacie PDF ]
5.4program project1;{$mode objfpc}{$H+}uses{$IFDEF UNIX}{$IFDEF UseCThreads}cthreads,{$ENDIF}{$ENDIF}Classes, SysUtils{ you can add units after this };typeosoba= recordimie, nazwisko:string[80];end;K_kolejka=classpubliclista:array [1..50] of ^osoba;n:integer;constructor con;destructor des;procedure dodaj();procedure usun_1();procedure usun_cal();procedure wyswietl();end;vari:integer;koniec:byte;kolejka:K_kolejka;wybor:char;constructor K_kolejka.con;beginn:=0;for i:=1 to 50 dobeginnew(lista[i]);lista[i]^.imie:='';lista[i]^.nazwisko:='';end;end;destructor K_kolejka.des;beginfor i:=1 to 50 do dispose(lista[i]);end;procedure K_kolejka.dodaj();begininc(n);writeln('Podaj imie:');readln(lista[n]^.imie);writeln('Podaj nazwisko:');readln(lista[n]^.nazwisko);end;procedure K_kolejka.usun_1();beginif(n>0)thenbeginfor i:=1 to n-1 dobeginlista[i]^:=lista[i+1]^;end;lista[n]^.imie:='';lista[n]^.nazwisko:='';dec(n);end else writeln('Kolejka pusta');end;procedure K_kolejka.usun_cal();beginif(n>0) thenbeginfor i:=1 to n dobeginlista[i]^.imie:='';lista[i]^.nazwisko:='';end;n:=0;end else writeln('Kolejka pusta');end;procedure K_kolejka.wyswietl();beginif(n>0) thenbeginfor i:=1 to n dobeginwriteln(i,'. ',lista[i]^.imie,' ',lista[i]^.nazwisko);end;end else writeln('Kolejka pusta');end;beginkoniec := 0;kolejka.con;while(koniec <> 1) dobeginwriteln('Wybierz zadanie(d-dodaj, u-usun pierwsza osobe, c-usun calosc, w-wyswietl, z-zakoncz):');read(wybor);case wybor of'd': kolejka.dodaj();'u': kolejka.usun_1();'c': kolejka.usun_cal();'w': kolejka.wyswietl();'z': koniec:=1;else writeln('nieznana instrukcja');end;end;kolejka.des;readln;end. [ Pobierz całość w formacie PDF ]

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • mement.xlx.pl