Turbo Pascal HELP:):):):):):):):):):):):)PLEASE:):):):):)

28.01.2006

11:06

[1]

w.ch [ Chorďż˝ďż˝y ]

Turbo Pascal HELP:):):):):):):):):):):):)PLEASE:):):):):)

Kto potrafi napisac taki program w TURBO PASCALU i mogłby mi go naoisacNapisac program wstwiajacy do tablicy rekordów informacje o samochodach: rodzaj pojazdu np. ciezarowy, osobowy. jezeli pojazd jest ciezarowy: --numer dowodu rejestracyjnego, tonaz, --typ nadwozia(np. chłodnia, wywrotka). Jezeli pojazd osobowy: --numer dowodu rejestracyjnego, --marka, --rok produkcji. Wsrod informacji podanej przez uzytkownika odszukac samochody ciezarowe o tonazu wiekszym od liczby ton podanej przez uzytkownika.

28.01.2006

11:14

[2]

Maliniarz [ The Watcher ]

Praca z rekordami to nie jest takie hop, siup. Nie prosisz za wiele? Sprobuj cos sam napisac, wklej tu, a mysle ze znajdziesz pomoc, w postaci porad co do Twojego kodu, ewentualnych zmian itp.
Ps W przyszlosci popracuj jeszcze nad tytulem.

28.01.2006

11:16

[3]

Kijano [ Generaďż˝ ]

kidys juz napisalem komus taki program. tylko on mial wpisywac miesa i wedliny. Przerob sobie i bedzie git.

program rzeznia;
uses crt;

type wedliny = record
nazwa:string[20];
cena:real;
end;

type mieso = record
rodzaj:string[20];
cena:real;
nazwa:string[20];
end;

var
wed:array[1..10] of wedliny;
mie:array[1..10] of mieso;
dodanie:boolean;
c:char;
d:integer;
czescszukana:string;

procedure dodaj;

begin
clrscr;
write('Czy produkt jest miesem[m] czy wedlina[w] : [m/w] ');
while (c<>'w') and (c<>'m') do c:=readkey;

if (c='m') then for d:=1 to 10 do if (mie[d].nazwa = '') and (dodanie=false) then begin
write('Podaj nazwe : ');

dodanie:=true;
end;
if (c='w') then for d:=1 to 10 do if (wed[d].nazwa = '') and (dodanie=false) then begin
write('Podaj nazwe : ');readln(wed[d].nazwa);
write('Podaj cene : '); readln(wed[d].cena);
dodanie:=true;
end;
dodanie:=false;
end;

procedure wyszukaj;
begin
clrscr;
write('Podaj jakas czesc :');readln(czescszukana);
for d:=1 to 10 do if mie[d].rodzaj = czescszukana then begin
writeln(mie[d].nazwa);
writeln(mie[d].rodzaj);
writeln(mie[d].cena);
end;
readln;
end;

begin
repeat
clrscr;
writeln('1.Dodaj Produkt');
writeln('2.Wyszukaj');
writeln('3.Wyjscie');
c:=readkey;
if c='2' then wyszukaj;
if c='1' then dodaj;
until c='3';
end.