Напечатать таблицу перевода температуры из градусов по шкале Цельсия(С) в градусы по шкале Фаренгейта (F) для значений от 15 до 30 градусов С с шагом 10С. Перевод осуществляется по формуле F=1,8C+32.
procedure GenNotOdd(var ar1,ar2:array of integer;n:integer); Var i,j:integer; begin i:=1; j:=0; setlength(ar1,n div 2); while i<=n-1 do begin ar1[j]:=ar2[i]; inc(j); i+=2; end; end;
procedure SwapArr(var ar1,ar2:array of integer;var n1,n2:integer); Var buf:array of integer; i,j,otbuf:integer; begin setlength(buf,n2); for i:=0 to n2-1 do buf[i]:=ar2[i]; GenNotOdd(ar2,ar1,n1); GenNotOdd(ar1,buf,n2); otbuf:=n2; n2:=n1 div 2; n1:=otbuf div 2; end;
procedure ReadArr(var ar:array of integer;var n:integer); Var i:integer; begin readln(n); setlength(ar,n); for i:=0 to n-1 do readln(ar[i]); end;
procedure WriteArr(ar:array of integer;n:integer); Var i:integer; begin for i:=0 to n-1 do write(ar[i]:4); writeln; end;
begin ReadArr(ar1,n1); ReadArr(ar2,n2); SwapArr(ar1,ar2,n1,n2); WriteArr(ar1,n1); WriteArr(ar2,n2); end.
Пример ввода: 2 1 2 7 1 2 3 4 5 6 7 Пример вывода: 2 4 6 2
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Эх... сумасшествие это - делать на С++ такие задачи. В качестве обидного бонуса - как выглядит полный аналог программы, но на современном паскале. Можете сравнить размер программы. Смешно, не правда ли?
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Строк:'); var m:=ReadInteger('Столбцов:'); var a:=MatrRandom(n,m,2,5); a.Println(2); Writeln(NewLine,'Суммы по строкам'); a.Rows.Select(x->x.Sum).Println; end.
program temp4;
var
i:integer;
c,f:real;
begin
c:=15;
writeln(' C F');
while c<30 do
begin
writeln(c:5:1,1.8*c+32:5:1);
c:=c+0.1
end
end.