• Сделать расчет на ЭВМ (PASCAL ABC) ((НУЖНА ПОМОЩЬ))

    ((1))
    Function C (r: real): real;
    Begin
    C:=3.14*r;
    End;
    Var
    cc,r1,r2,r3,r4:real;
    Begin
    Write('Введите значение r1=');
    Readln(r1);
    Write('Введите значение r2=');
    Readln(r2);
    Write('Введите значение r3=');
    Readln(r3);
    Write('Введите значение r4=');
    Readln(r4);
    cc:=C(r1)+C(r2)+C(r3)+C(r4);
    Writeln('c=',cc:5:2);
    End.

    ((2))
    var
    x1, x2, x3, x4, mn : integer;
    function min (a, b : integer) : integer;
    begin
    if a < b
    then min := a
    else min := b
    end;
    begin
    write('введите 4 числа: ');
    readln(x1, x2, x3, x4);
    {Эхо-печать}
    mn := min(x1, min(x2, min(x3, x4)));
    writeln('минимум: ', mn);
    end.

    ((3))
    Var
    x:real;
    res:real;
    y:word;
    Begin
    clrscr;
    write('Введите число в метрах, которое нужно преобразовать: ');
    Readln(x);
    writeln('Введите во что преобразовывать: ');
    writeln('[1] - Декаметр');
    writeln('[2] - Гектаметр');
    writeln('[3] - Километр');
    writeln('[4] - Мириаметр');
    writeln('[5] - Мегаметр');
    readln(y);
    Case y of
    1:
    begin
    res:=x*0.10; writeln('В ',x:3:2,' м ', res:3:2, ' Декаметров');
    end;
    2:
    begin
    res:=x*0.01; writeln('В ',x:3:2,' м ',res:3:2, ' Гектаметров');
    end;
    3:
    begin
    res:=x*0.001; writeln('в ',x:3:2,' м ',res:3:2,' Километров ');
    end;
    4:
    begin
    res:=x*0.0001; writeln('В ',x:3:2,' м ',res:3:2,' Мириаметров');
    end;
    5:
    begin
    res:=x*0.00001; writeln('В ',x:3:2,' м ',res:3:2,'Мегаметров');
    end;
    end;
    readln
    end.

    ((4))
    program lab6;
    uses crt;
    function a(n:integer):real;
    begin
    a:=1/n*sin(pi/4*n)+1/sqr(n)*cos(pi/4*n);
    end;
    var i:integer;
    begin
    clrscr;
    for i:=10 to 25 do
    writeln(i:2,'=',a(i):7:5);
    readln
    end.

Ответы 0

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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