Developing.ru

Код: Выделить всё

program laba7;
type tPlanet=record
                  name:array[1..9]of char;
                  a:Real;    //раст от солнца
                  kolSput:integer;    //количество спутников
                  p,r,m:Real;     //период, радиус, масса
             end;
 Planets=array[1..8]of tPlanet;

procedure Vvod(var plan:Planets);
var i,j:integer;
begin
 for i:=1 to 8 do
  begin
   Writeln('название планеты');
   Readln(plan[i].name[j]);
   Writeln('количество спутников');
   Readln(plan[i].kolsput);
   Writeln('расст от Солнца');
   Readln(plan[i].a);
   Writeln('период');
   Readln(plan[i].p);
   Writeln('ср.радиус ');
   Readln(plan[i].r);
   Writeln('масса');
   Readln(plan[i].m);
  end;
end;
procedure VIVOD
.
.
.
.
Procedure obrabotka
.
.
.
.
.
Procedure VIV      
.
.
.
.
.
end.