ropr8tst.pas

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

program pr8;
type medicamente=record
     cod:integer;
     denumirea:string[30];
     pretul:integer;
     end;
var n,i:integer;
    v:array[1..100] of medicamente;
    p:real;
begin
write('n=');readln(n);
for i:=1 to n do
   with v[i] do  begin
                 write('codul');readln(cod);
                 write('denumirea');readln(denumirea);
                 write('pretul');readln(pretul);
                 end;
for i:= 1 to n do
  if v[i].cod<=1000 then begin
                         p:=v[i].pretul +5/100*v[i].pretul;
                         write('noul pret este ',p:2:2);
                         end
                    else begin
                         p:=v[i].pretul +10/100*v[i].pretul;
                         write('noul pret este ',p:2:2);
                         end;
end.