Перевести код с Паскаля на Си

@Nurike_Silver · Регистрация: 30.09.2019

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
const n=4;
type Strana=record
          nazv:string[20];
          chisl:real;
          plosh:real;
          plotn:real;
          end;
var zp:strana;
    mx,mn:real;
    i,j:integer;
    s:string;
    f:file of Strana;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Spisok stran:');
for i:=1 to n do
  begin
     writeln('Strana ',i);
     write(' nazvanie: ');readln(zp.nazv);
     write(' chislennost: ');readln(zp.chisl);
     write(' ploshad: ');readln(zp.plosh);
     zp.plotn:=zp.chisl/zp.plosh;
     write(f,zp);
   end;
reset(f);
mx:=0;mn:=1000000; s:='';
while not eof(f) do
 begin
  read(f,zp);
  if zp.plotn>mx then mx:=zp.plotn;
  if zp.plotn<mn then
   begin
    mn:=zp.plotn;
    s:=zp.nazv;
   end;
 end;
close(f);
writeln('Max plotnost=',mx:0:2);
writeln('Strana s min plotnostjyu ',s);
readln
end

Рыжий Лис · 19.10.2020, 08:30

C

#define N 4
struct Country {
    char name[20];
    float population;
    float bla_bla;
} zp;
 
int main(){
    puts("Spisok stran");
 
}

Добавлено через 1 минуту

C

1	scanf("%19d", &zp.name);

	19.10.2020, 08:30

Опции темы