Поделитесь своими знаниями, ответьте на вопрос:
6.вывести на экран таблицу перевода температуры из градусов по шкале цельсия (с) в градусы по шкале фаренгейта (f) для значений от 0ос до 30oс с шагом 2ос (перевод осуществляется по формуле f = 1, 8∙c + 32 ( конструкція while)
на паскале
vara,b: array [0..15] of real;
i: integer; begin
for i: =0 to 15 doa[i]: =i*2;
for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;
end.
вот еще через while
vara,b: array [0..15] of real;
i: integer; begin
for i: =0 to 15 doa[i]: =i*2;
i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.