• Прошу переделать код программы с языка Паскаль на С++.
    Вот код Паскаль:
    var
    f:array[1..500] of record 
    fam:string; 
    bal:boolean; 
    end;
    buf:boolean; 
    str:string; 
    b1,b2,i,n,j:integer;  
    c:char; 
    begin
    readln(n); 
    for i:=1 to n do  
    begin
    repeat 
    begin
    read(c);
    f[i].fam:=f[i].fam+c; 
    end;
    until c=' ';   
    repeat  
    begin
    read(c);
    f[i].fam:=f[i].fam+c; 
    end;
    until c=' ';
    f[i].bal:=false; 
    read(b1,b2);  
    if (b1<30)or(b2<30) then f[i].bal:=true; 
    end; 
    For i := 1 To n-1 do begin  
    For j := i + 1 To n do
    If f[i].fam > f[j].fam Then 
    begin
    str:= f[i].fam;
    f[i].fam:= f[j].fam;
    f[j].fam:= str;
    buf:= f[i].bal;
    f[i].bal:= f[j].bal;
    f[j].bal:= buf;
    end;
    end; 
    for i:=1 to n do
    if f[i].bal=true then writeln (f[i].fam); 
    end.

Ответы 1

  • ..................................................
    • Автор:

      jakoblowe
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years