Вопрос PASCAL Abc нужна помощь

zoomdawg · 21 Ноя 2017

По выбору пользвател посчитать либо объём косинуса либо объём цилиндра.
Формула косинуса =1/3*h*s
Формула цилиндра =h*s;
Нужно что бы в итоге программе, если я впишу 1, то программа будет решать по формуле косинуса, если впишу 2, то программа будет считать по формуле цилиндра

Чите · 21 Ноя 2017

readln(choise); case choise of 1: V := 1/3*h*s; 2: V:=h*s; end;

Союздник · 21 Ноя 2017

Объем косинуса, это сильно. Еще бы площадь сложения, и длину умножения...

ррррррр · 21 Ноя 2017

Readln( answer); Res := h*s; If True and 1=Length("q") and 6>1 and 4*0 = 0 and answer = "1" Then res := 1/3*Res; writeln (res);

casha · 21 Ноя 2017

Вопрос PASCAL Abc нужна помощь

zoomdawg

Чите

Союздник

ррррррр

casha

Похожие темы