Pchelka

Здравствуйте, помогите пожалуйста решить эту задачу через операторы цикла.
1. Имеется серия изменений элементов треугольника. Группы элементов пронумерованы. В серии в произвольном порядке могут встречаться такие группы элементов треугольника:

1) основании и высота;

2) две стороны и угол между ними ( угол задан в градусах );

3) три стороны.

Составить программу, которая запрашивает номер группы элементов, вводит соответствующие элементы и вычисляет площадь треугольника. Вычисления прекратить, если в качестве номера группы введен 0.

Вот посмотрите у меня решено,но только не через операторы цикла.
Var a,b,c,alpha,h,s:real;
num:byte;
begin
writeln('Esli nugno nayti ploshad treugolnika po:');
writeln(' 1)osnovaniyu i visote najmite |1|');
writeln(' 2)po dwum storonam i uglu najmite |2|');
writeln(' 3)po trem storonam najmite |3|');
writeln('Dlia vihoda najmite |0|');
readln(num);
case num of
0:exit;
1:
begin
write('vvedite dlinu osnovania: ');
readln(a);
write('vvedite visotu: ');
readln(h);
s:=a*h/2;
end;
2:
begin
write('vvedite dlinu odnoy storoni: ');
readln(a);
write('vvedite dlinu drugoy storoni: ');
readln(b);
write('vvedite ugol v radianah: ');
readln(alpha);
s:=a*b*sin(alpha)/2;
end;
3:
begin
write('vvedite dlinu pervoy storoni: ');
readln(a);
write('vvedite dlinu vtoroy storoni: ');
readln(b);
write('vvedite dlinu tretiey storoni: ');
readln(c);
alpha:=(a+b+c)/2;
s:=sqrt(alpha*(alpha-a)*(alpha-b)*(alpha-c));
end;
end;
writeln('Ploshad = ',s:4:2);
readln;
end.

AlexZir

в начале вставьте repeat
перед пустым readln вставьте until num=0
Это цикл с постусловием, будет работать до тех пор, пока вы не введете вариант 0, потом происходит выход из программы
Для аварийной остановки программы лучше использовать команду halt()

__________________
Убить всех человеков!

Pchelka

repeat ставить в начале программы? если да, то у меня выдает ошибку

Pchelka

Спасибо огромное, а вы можете проверить эту же программу на excelе правильно решено?

Вложения

Задание №5.1. Работа с операторами цикла.rar (11.5 Кб, 12 просмотров)

AlexZir

К сожалению, нет у меня под рукой Excel

__________________
Убить всех человеков!

Pchelka

Посмотрите пожалуйста еще эту программу, мне ее тоже нужно решить через оператор цикла
1. Дано натуральное число N . Вычислить: на картинке пример

uses crt;
var n,i:integer;
s,z:real;
begin
write('n=');
readln(n);
s:=1;
z:=1;
for i:=2 to n do begin
z:=-z/2;
s:=s+z;
end;
write('S=',s:0:5);readln
end.
Правильно ли решено?если нет, то помогите пожалуйста

Миниатюры

 

AlexZir

Правильно

__________________
Убить всех человеков!