Найти площадь треугольника (по разным исходным данным) [на Delphi]

[Utkin]

я сделал так, и что же? Error 113, то есть данный символ не может быть первым символом в операторе, пишет перед else.

Напоминает разговор слепого с глухим. Я не вижу что Вы там сделали, Вы очевидно не слышите что мы тут говорим.

[gylayko]

исправил, теперь все скомпилило! запускаю прогу, выбрасывает опять назад и выдает ошибку 106.
вот текст программы теперь:

program zadacha21;
var  w,a,b,h,q,c,p,v,t:integer; S:real;
Begin
WriteLn('каким методом вы хотите решить задачу?');
WriteLn('первый-по двоим сторонам, второй-по двоим сторонам и углом между ними, третий-по основе и высоте');
ReadLn(p,v,t);
if (w=p) then
begin
WriteLn('введите две стороны');
ReadLn(a,b);
S:=((a*b)/2);
WriteLn('площадь равна**',S);
end;
if (w=v) then
begin
WriteLn('введите две стороны и угол между ними');
ReadLn(a,b,q);
S:=((((1/2)*b)*c)*(sin(q)));
WriteLn('площадь равна*',S);
end;
if (w=t) then
begin
WriteLn('введите сторону и высоту');
ReadLn(a,h);
S:=(((1/2)*a)*h);
WriteLn('площадь равна*',S);
end;
ReadLn;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[gylayko]

эта ошибка означает, что я пытаюсь впихнуть нечисловую переменную! выдает перед ReadLn(p,v,t)

[Alex11223]

ReadLn(p,v,t);

Вы сейчас просите пользователя ввести 3 числа. Зачем?

if (w=p)
if (w=v)
if (w=t)

Что и с чем вы сравниваете? Чему, по вашему мнению, равно w и что это такое?

[gylayko]

ну я обозначил первый вариант решения (то есть когда задача решается по двум сторонам) буквой р, второй вариант буквой v, а третий t! чтобы пользователь мог выбрать сам вариант который ему удобно! я хочу чтобы он одно число вводил, то есть вариант! w это то, что Вы мне псали, только Вы его называлаи sw.

[Alex11223]

Нет, вы создали переменные с именами p, v и t. и пользователю, и компилятору абсолютно все равно как они называются — они могут содержать только числа в определенном диапазоне. Если вы хотите работать с буквами\строками, то используйте символьный тип char, либо строковой string, но в этом нет необходимости при решении этой задачи. Посмотрите еще раз на мой пример с sw.

if (w=p) и т.д. в данном случае означает следующее: если число, содержащееся в переменной w, равно числу, содержащемуся в переменной p.

Таки советую повторить основы Паскаля\программирования.

[gylayko]

напишите пожалуйста как бы вы решали такую задачу!

[Alex11223]

Я же уже писал раньше (там, где sw).

Создал бы переменную целочисленного типа, попросил бы ввести число 1, 2 или 3 и в зависимости от этого выбрать соответствующий вариант решения.
Вот и получится:

var sw:integer;
...
writeln('Как будем вычислять площадь? По двум сторонам (1), по двум сторонам и углу между ними (2), по основе и высоте (3)?
Введи число (1, 2 или 3): ');
readln(sw);
if (sw = 1) then
begin
вариант1;
end;

if (sw = 2) then
begin
вариант2;
end;

Вообще тут наверно красивее было бы использовать case вместо if'ов, но разницы никакой. Еще можно WriteLn('площадь равна*',S); вынести в самый конец т.к. он повторяется во всех.