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 ]
Tematy
- Strona pocz±tkowa
- Materialy budowlane, Budownictwo, II semestr, Materiały Budowlane
- Materiały budowlane - Pojęcia 1, Budownictwo S1, Semestr II, Materiały budowlane, Egzamin, Pojęcia
- Materiały budowlane - Ściany z pustaków, Budownictwo S1, Semestr II, Materiały budowlane, Materiały
- Materiały kompozytowe, STUDIA, SEMESTR IV, Materiały kompozytowe
- mat au2 mat au2, II semestr, Rachunkowość, Inne
- Materiały budowlane - Cienkowarstwowe tynki mineralne, Budownictwo S1, Semestr II, Materiały budowlane, Materiały
- Maszyny elektryczne 2 - wykład 4 EKO 2015 2016 letni, Politechnika Białostocka - Ekoenergetyka, semestr IV, Maszyny Elektryczne 2, Wykłady
- Matematyka - Teoria - Całka nieoznaczona 1, Budownictwo S1, Semestr II, Matematyka, Teoria
- Matematyka Teoria, Politechnika Łódzka, I semestr, Analiza Matematyczna 1 ,Wstęp, Teoria
- Matematyka - Teoria - Całka oznaczona, Budownictwo S1, Semestr II, Matematyka, Teoria
- zanotowane.pl
- doc.pisz.pl
- pdf.pisz.pl
- telenovel.pev.pl