Вообщем задали задачу, а как решить не знаю. Помогите плизз!!! Вот собственно задача:Пусть элементами круга являются радиус(1-й элемент), диаметр(2-й элемент) и длина окружности(3-й элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга. Turbo Pascal.
var a:integer; b:real; begin writeln('Введите номер элемента и через пробел его значение'); readln(a,b); case a of 1:writeln('Площадь=',2*pi*b*b); 2:writeln('Площадь=',2*pi*(b/2)*(b/2)); 3:writeln('Площадь=',2*pi*(b/pi)*(b/pi)); end; end.
Добавлено спустя 1 минуту, 27 секунд надо же, отступы пропали... никуда они не пропали, нужно пользоваться тэгом [code] Отредактировано модератором: mein. Дата: 22.03.2007 18:23
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения