Tipul de date Record
1.Program ce afiseaza produsele alimentare (din cele intoduse de la tastatura ) ce au mai putin de 250 kcal/100g.
Program Mancare;
uses crt;
Type calorii=record
den: string;
kcal: integer;
end;
var F: array[1..1000] of calorii;
i,n: integer;
begin
clrscr;
textcolor(1);
textbackground(13);
write('Introdu nr: ');
readln(n);
for i:=1 to n do
begin
write('Introdu denumirea alimentului nr ',i);
readln(F[i].den);
write('Introdu nr. de kcal/100 g: ');
readln(F[i].kcal);
writeln;
end;
for i:=1 to n do
begin
writeln('Alimentul nr.',i);
writeln('Denumire aliment: ',F[i].den);
writeln('Calorii/100g: ',F[i].kcal);
writeln;
end;
for i:=1 to n do
if (F[i].kcal<250) then
begin
writeln('Alimentul nr.',i);
writeln('Denumire aliment: ',F[i].den);
writeln('Calorii/100g: ',F[i].kcal);
writeln;
end;
readkey;
end.
2.Program ce afiseaza automobilele(din cele intoduse de la tastatura ) ce au un consum mai mic de 9l/100km in regim urban si garda la sol>17cm.
Program Masini;
uses crt;
Type auto=record
den: string;
consum,pret,garda: integer;
end;
var A: array[1..1000] of auto;
i,n: integer;
begin
clrscr;
textcolor(2);
textbackground(11);
write('Introdu nr: ');
readln(n);
for i:=1 to n do
begin
write('Introdu denumirea auto nr ',i);
readln(A[i].den);
write('Introdu consumul urban/100km: ');
readln(A[i].consum);
write('Introdu pretul(euro) auto: ');
readln(A[i].pret);
write('Introdu garda la sol(cm): ');
readln(A[i].garda);
writeln;
end;
for i:=1 to n do
begin
writeln('Automobilul nr.',i);
writeln('Denumire auto: ',A[i].den);
writeln('Consum urban/100km: ',A[i].consum);
writeln('Pret(euro): ',A[i].pret);
writeln('Garda la sol(cm): ',A[i].garda);
writeln;
end;
for i:=1 to n do
if (A[i].consum<9) and(A[i].garda>17) then
begin
writeln('Automobilul nr.',i);
writeln('Denumire auto: ',A[i].den);
writeln('Consum urban/100km: ',A[i].consum);
writeln('Pret(euro): ',A[i].pret);
writeln('Garda la sol(cm): ',A[i].garda);
writeln;
end;
readkey;
end.
3.Program ce afiseaza zilele din saptamanile viitoare cand se prognozeaza precipitatii si temperatura <20 grade Celsius in centrul Republicii Moldova.
Program Meteo;
uses crt;
Type Natura=record
data:string;
temp,pres,vant: integer;
prec:boolean;
end;
var M: array[1..50] of Natura;
i,n: integer;
begin
clrscr;
textcolor(3);
textbackground(4);
write('Introdu nr: ');
readln(n);
for i:=1 to n do
begin
write('Introdu data zilei nr ',i);
readln(M[i].data);
write('Introdu presiunea atmosferica(mm ai col. de mercur): ');
readln(M[i].pres);
write('Introdu viteza vantului(m/s): ');
readln(M[i].vant);
write('Vor fi precipitatii?: ');
readln(M[i].prec);
write('Introdu temperatura(grade Celsius): ');
readln(M[i].temp);
writeln;
end;
for i:=1 to n do
begin
writeln('Ziua nr.',i);
writeln('Data: ',M[i].data);
writeln('Temperatura(grade Celsius): ',M[i].temp);
writeln('Presiunea atmosferica(mm ai col. de mercur): ',M[i].pres);
writeln('Viteza vantului(m/s): ',M[i].vant);
writeln('Precipitatii: ',M[i].prec);
writeln;
end;
for i:=1 to n do
if (M[i].prec=True) and (M[i].temp<20) then
begin
writeln('Ziua nr.',i);
writeln('Data: ',M[i].data);
writeln('Temperatura(grade Celsius): ',M[i].temp);
writeln('Presiunea atmosferica(mm ai col. de mercur): ',M[i].pres);
writeln('Viteza vantului(m/s): ',M[i].vant);
writeln('Precipitatii: ',M[i].prec);
writeln('luati-va umbrela si imbracati-va mai gros!');
writeln;
end;
readkey;
end.
