roreg1.pas

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

program inreg1;
type date=record
     titlu:string[50];
     pret:integer;
     numar:integer;
     valoare:longint;
     end;
     carte=array[1..100] of date;
var n,i,s:integer;
    v:carte;
begin
write('n=');readln(n);
for i := 1 to n do
                with v[i] do
                          begin
                          write('titlul ');readln(titlu);
                          write('pret ');readln(pret);
                          write('mumar ');readln(numar);
                          valoare:=pret*numar;
                        end;
repeat
n:=n+1;
with v[n] do
          begin
          write('titlu ');readln(titlu);
          write('pret ');readln(pret);
          write('numar ');readln(numar);
          valoare:=pret*numar;
          end;
until v[n].pret=0;
for i := 1 to n-1 do
  with v[i] do writeln(titlu:20,pret:20,numar:20,valoare:20);
for i := 1 to n do
s:=s+v[i].valoare;
write('val totala ',s );
  end.