ropr4tst.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 25 行

program pr4;
type date=record
     cod:integer;
     denumire:string[20];
     pret:string[10];
     stoc :integer;
     cantin,cantie:integer;
     end;
var n,i:integer;
    v:array[1..100] of date;
begin
write('n=');readln(n);
for i:= 1 to n do
              with v[i] do begin
                           write('cod');readln(cod);
                           write('denumire');readln(denumire);
                           write('pret ');readln(pret);
                           write('stoc');readln(stoc);
                           write('cantitate intrare ');readln(cantin);
                           write('cantitate iesire ');readln(cantie);
                           end;
for i:=1 to n do
  if v[i].cantin-v[i].cantie>v[i].stoc then with v[i] do
writeln(cod:10,denumire:10,pret:10,stoc:10,cantin:10,cantie:10);
  end.