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

[gylayko]

найти площадь триугольника но предложить пользователю выбор: по двоим сторонам, по двоим сторонам и углом между ними, по основе и высоте!
вот код программы:

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

скажите что я тут не так делаю и что нужно исправить!

[veniside]

> ReadLn(1,2,3);

оригинально

> что нужно исправить

я бы начал с языка. Читать без содрогания невозможно же. "По двоим сторонам".

[gylayko]

ну а в самой проге что не так? если не обращать внимания на русский текст??

[Alex11223]

1,2,3:word

Разве имена, начинающиеся с цифр, разрешены? Вообще зачем вам тут 3 переменные? Не проще уж тогда одну использовать? И выражения типа if 1 ... if 2 ... некорректны. Такое возможно только если бы это были имена переменных типа boolean, но, как выше написано, подобные имена запрещены )

[gylayko]

ну ввел я там 1,2,3:boolean и толку? теперь перед 1,2,3:boolean пишет begin expected! куда там begin еще пихать?

[gylayko]

теперь перенес эту строку в начало, теперь не показывает что begin expected! даже переименовал переменные в p,v,t , теперь выдает Error 64 : Cannot Read or Write variables of this type ! что делать??

[Alex11223]

А вы хоть 1 страницу учебника\основ языка (Паскаль) прочитали?

пишет begin expected

Видимо компилятор в шоке от имен переменных начинающихся с цифр.

Вообще вам не подходит тип boolean в данном случае: переменные этого типа могут хранить всего 2 значения, 1 либо 0. Используйте другой целочисленный тип (integer, short, word ...). И 3 переменные для этого не нужны.

т.е. как-то так:

var sw:integer;
...
readln(sw);
if (sw = 1) then ...

...

if (sw = 2) then ...

[Utkin]

Зачем там else? Чтобы не возникала каша с if, я обычно оформляю блоки (и всем рекомендую) вида:

if bla-bla then
begin
    
    bla-bla
end;
else
begin
    bla-bla
end;

[gylayko]

if bla-bla then
begin

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

[Alex11223]

Зачем там else

А где else?
Кстати да, автор забыли про блоки begin\end в if и вероятно сейчас столкнулся с неожиданной и непонятной ошибкой)

то есть данный символ не может быть первым символом в операторе, пишет перед else

После end перед else нельзя ставить ;.