Задать вопрос
25 октября, 08:23

Умоляю, помогите с Паскалем

1. Пользователь вводит неотрицательное однозначное число A. Написать программу:

вычисляющую в случае ввода 1 - площадь круга с радиусом A,

вычисляющую в случае ввода 2 - площадь квадрата со стороной A,

вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,

выдающую сообщение "нужно ввести число 1, 2, 3" в остальных случаях.

+2
Ответы (1)
  1. 25 октября, 10:17
    0
    1) по заданному радиусу: Program n1;

    Uses CRT;

    Var r, s: real;

    begin

    ClrScr;

    writeln ('Vvedite radius');

    readln (r);

    s:=r*r*pi;

    Writeln ('ploshad = ', s:4:4);

    readln

    end. 2) по заданным сторонам: Program n1;

    Uses CRT;

    Var a, b, s: real;

    begin

    ClrScr;

    writeln ('Vvedite storoni');

    readln (a, b);

    s:=a*b;

    Writeln ('ploshad = ', s:4:4);

    readln

    end. 3) по заданной стороне Program n1;

    Uses CRT;

    Var a, s: real;

    begin

    ClrScr;

    writeln ('Vvedite storony');

    readln (a);

    s:=a*a;

    Writeln ('ploshad = ', s:4:4);

    readln

    end. 3) по одной стороне и высоте к ней: Program n1;

    Uses CRT;

    Var a, b, s: real;

    begin

    ClrScr;

    writeln ('Vvedite storony i vysoty k nei');

    readln (a, b);

    s:=a*b;

    Writeln ('ploshad = ', s:4:4);

    readln

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Умоляю, помогите с Паскалем 1. Пользователь вводит неотрицательное однозначное число A. Написать программу: вычисляющую в случае ввода 1 - ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы