Температура в градусац цельсия изменяется от 0 до 100 с шагом 5. написать программу перевода температуры из градусов цельсия в градусы фаренгейта(f формула перевода: f=1.8+32.

program c2f;

 

uses

    crt;

 

var i: integer;

        c,f: real;

 

begin

    clrscr; {очистить экран}

    writeln('from celsius to fahrenheit: ');

    write('type temperature (in celsius): '); read(c);

    f : = 32 + 2*c * (1 - 1/10);

    writeln('temperature in fahrenheit: ', f: 3: 3);

    { : 3: 3 - общее количество знаков и знаков после запятой }

    writeln(' celsius to fahrenheit from 0 to 100, step 5: ');

    i : = 0;

    while i < = 100 do

    begin

        f : = 32 + 2*i * (1 - 1/10);

        writeln(' c = ',i: 3,' | f = ', f: 3: 3);

        i : = i + 5;

    end;

    readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

end.

программа на паскале

var a: array [1..21,1..2] of real; i: integer; begin

a[1,1]: =0.0 ; for i: =2 to 21 doa[i,1]: =a[i-1,1]+5; for i: =1 to 21 doa[i,2]: =a[i,1]*1.8+32.0; for i: =1 to 21 dowriteln (a[i,1]: 3: 0,' celcia = ',a[i,2]: 3: 0,' farrengeit'); readln; end.

Const   m = 10; // количество строк   n = 10; // количество столбцов var   arr: array [1..m, 1..n] of integer;   i,j,z,min,temp : integer; begin   for j : = 1 to m do     for i : = 1 to n do       arr[j, i] : = random(99);         writeln('исходный массив: ');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end;   for j : = 1 to m do   begin     for i : = 1 to n - 1 do     begin       min : = i;           for z : = i + 1 to n do           if arr[j, z] < arr[j, min]  then             min : = z;             temp : = arr[j, min];       arr[j, min] : = arr[j, i];       arr[j, i] : = temp;     end;   end;         writeln;   writeln('отсортированный массив');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end; end.

Эту уже решали здесь. но, если трудно поискать, то вот программа: var a,b,c,d,x,y,z,y1,z1,y2,z2,nod: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); y1: =a*d+c*b; y2: =y1; z1: =b*d; z2: =z1; while (y2> 0)and(z2> 0) do   if y2> z2 then y2: =y2 mod z2 else z2: =z2 mod y2; nod: =y2+z2; y1: =y1 div nod;   z: =z1 div nod; x: =y1 div z; y: =y1 mod z; if x> 0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end. пример: 1-я дробь (числитель и знаменатель): 3 4 2-я дробь (числитель и знаменатель): 5 6 1 7/12