ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Пользователь вводит неотрицательное однозначное число A. Написать программу:
10-11 класс
|
вычисляющую в случае ввода 1 - площадь круга с радиусом A,
вычисляющую в случае ввода 2 - площадь квадрата со стороной A,
вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.
var a:integer;
s:real;
begin
readln(a);
case a of
1: begin s:=pi*a*a; writeln(s); end;
2: begin s:=a*a; writeln(s); end;
3: begin s:=a*a*sqrt(3)/4; writeln(s); end;
else writeln('нужно ввести число 1, 2, 3');
end;
end.
Другие вопросы из категории
процедуру RectDiag(a, b, d), вычисляющую диагональ
прямоугольника со сторонами a, b (a, b — входные, d
— выходной параметр вещественного типа).
Нужно написать программу в паскале
Найти наименьшее общее кратное n натуральных чисел, используя алгоритм евклида.
Programe...
var....:real
begin
write('....='):
readln(....):
формула и дальше
Задача.
Троим толстунам дали на десерт кремовые пирожные. Масса одного пирожные составляла х кг, а масса Толстяков в соответствии х1 кг, 2 кг, х3 кг. Первый Толстяк съел n пирожных. Каждый следующий Толстяк съедал в два раза больше предыдущего, но при этом все они не могли съесть больше, чем половина их собственной массы. Сколько пирожных съели Толстяка?
документов
1)380000 байт
2)5листов по 100 символов (16бит код)
3)0.75мбайт
2)Определите информационный объем растрового изображения размером
1024х768 пикселей и состоящее из 64 цветов
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.
Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)
13.
Нужно написать программу на цикле с предусловием, на Паскале.
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.