Прошу переделать код программы с языка Паскаль на С++.Вот код Паскаль:varf:array[1..500] of record fam:string; bal:boolean; end;buf:boolean; str:string; b1,b2,i,n,j:integer; c:char; beginreadln(n); for i:=1 to n do beginrepea...
Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
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.
Гость
Ответ(ы) на вопрос:
Гость..................................................
Не нашли ответ?
Похожие вопросы