Kód: Vybrať všetko
Error 20:Variable identifier expectedKód: Vybrať všetko
Error 20:Variable identifier expected
Kód: Vybrať všetko
case of ...Kód: Vybrať všetko
case premenna of ...aky project?Murthrag napísal:ludia viete niekto programovat v pascale??????? potreboval by som pomoc. treba mi spravit projekt a ja som z toho jelen...... ak niekto ma zaujem.. pls helpnite mi
Kód: Vybrať všetko
program Murthrag;
const
POCET_HLADANYCH = 100; //maximalny pocet hladanych vozidiel
type
date = record
den, mesiac, rok: char;
end;
type
VOZIDLO = record
farba, spz, znacka: string[20];
datum: date;
end;
var
auta, hladane: text;
auto: vozidlo;
pole_spz: array [1..POCET_HLADANYCH] of string[20];
i, pocet: integer;
begin
i:=1;
assign(auta, 'auta.txt');
reset(auta);
assign(hladane, 'hladane.txt');
reset(hladane);
while (not eof(hladane)) and (i<POCET_HLADANYCH) do
begin
i:=i+1;
readln(hladane,pole_spz[i]);
end;
pocet:=i;
while not eof(auta) do
begin
readln(auta, auto.spz);
for i:=1 to pocet do
begin
if auto.spz=pole_spz[i] then
begin
read(hladane, auto.farba, auto.znacka, auto.datum.den, auto.datum.mesiac, auto.datum.rok);
writeln('Naslo sa auto s spz ', auto.spz, ', farbou ', auto.farba, 'a znackou ', auto.znacka, 'dna ', auto.datum.den, auto.datum.mesiac, auto.datum.rok);
end;
end;
end;
readln;
end.
Kód: Vybrať všetko
type
ShortString = String[32];
var
pole: array[1..50, 1..4] of ShortString;