Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Плизз!!! Срочно!!!!
Задание: составить программу решения задачи, используя оператор выбора.

Составить программу, которая случайным образом выбирает один из трех вариантов: вычисление длины окружности и площади круга по заданному радиусу; вычисление периметра и площади треугольника по трем сторонам; вычисление периметра и площади параллелограмма по двум сторонам и углу между ними.

1 | Автор: G@JL4ONOK | 2010-11-01, 16:40   |  Репутация: [ + 0 ]
Стучите, недорого.
64896****.
*******@inbox.ru
2 | Автор: domny | 2010-11-03, 14:54   |  Репутация: [ + -3 ]
Предлагаю код программы!

Code
Program variantov3;
uses crt;
var a, b, c, r, y: integer; {a,b,c - стороны, r-радиус, y-для синуса}
l, P, S, pol: real; {l - длина, P- перимет, S-площадь, pol-полуперимет}
x: byte;
begin
clrscr;
Randomize;
x:=Random(3);
case x of
0: begin
writeln('Vi4islenie dliny okr. i S kruga');
write('Vidite radius='); readln(r);
l:=2*pi*r;
S:=pi*sqr(r);
writeln('l=', l,' ','S=', S);
readln;
end;
1: begin
writeln('Vi4islenie P i S treugolnika');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
pol:=(a+b+c)/2;
S:=sqrt(pol*(pol-a)*(pol-b)*(pol-c));
P:=a+b+c;
writeln('S=', S,' ','P=', P);
readln;
end;
2: begin
writeln('Vi4islenie P i S parallelograma');
write('a='); readln(a);
write('b='); readln(b);
write('sin='); readln(y);
S:=a*b*sin(y);
P:=2*(a+b);
writeln('S=', S,' ','P=', P);
readln
end;
end; end.

(Не забываем ставить "плюсик")


Тот, кто смеется последним, просто не врубился сразу.)
3 | Автор: Ifrit | 2010-11-06, 23:37 | Изменено: Ifrit - Вс, 2010-11-07, 22:35   |  Репутация: [ + 12 ]
Quote (Ifrit)
readln®;

Обратите внимание - на сайте срабатывает автозамена некоторых сочетаний символов. Поэтому код программы надо выделять BB-кодом code.
4 | Автор: admin | 2010-11-07, 11:03   |  Репутация: [ + 22 ]
Quote (admin)
Обратите внимание - на сайте срабатывает автозамена некоторых сочетаний символов. Поэтому код программы надо выделять BB-кодом code.

Учтем)))


Тот, кто смеется последним, просто не врубился сразу.)
5 | Автор: Ifrit | 2010-11-07, 12:45   |  Репутация: [ + 12 ]
Quote (Ifrit)
Учтем)))

так вы подкорректируйте ваш предыдущий код - те кто не понимают будут мучиться со спецзначком
6 | Автор: admin | 2010-11-07, 14:01   |  Репутация: [ + 22 ]
6 | Автор: admin | 2010-11-07, 14:01   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: