Turbo Pascal

Пух

كنت بلهاء
Модератор
Спасибо,всё работает)) По поводу нуля согласна,он тут явно ничего не меняет..
а что делает команда gotoxy(1,3);?
ставит курсор в точку (1,3) (1 по горизонтале, 3 по вертикале).
для того, чтобы более - менее красиво выводило ответ.
 

zVonok

New Member
Помогите
у меня есть 4 решения одной задачи Sin Cos Tg Ctg
надо так шоб пользователь мог вибрать шото одно из етого потом ввести его и дальше сам думаю разберусь зарание спс :))
 

Пух

كنت بلهاء
Модератор
Помогите
у меня есть 4 решения одной задачи Sin Cos Tg Ctg
надо так шоб пользователь мог вибрать шото одно из етого потом ввести его и дальше сам думаю разберусь зарание спс :))
напиши условие задачи.
95% что нужно юзать case of
 

zVonok

New Member
по введенному значению косинуса или синуса или тангенса котангенса (пользователь перед етим должен вибрать что он будет вводить) вивести угол которому соответствует это значение (угол в градусах)
 

Пух

كنت بلهاء
Модератор
по введенному значению косинуса или синуса или тангенса котангенса (пользователь перед етим должен вибрать что он будет вводить) вивести угол которому соответствует это значение (угол в градусах)
program gr;
uses crt;
var a,x:real; v:byte;
begin
clrscr;
writeln('1. sin(x)');
writeln('2. cos(x)');
writeln('3. tg(x)');
writeln('4. ctg(x)');
writeln('Введите номер пункта меню');
readln(v);
case v of
1:begin
write('Введите значение sin(x)');
readln(a);
x:={что-то типа arcsin(a) + перевод в градусы}
write('sin(',x,')=',a);
end;
2:begtin
write('Введите значение cos(x)');
readln(a);
x:={что-то типа arccos(a) + перевод в градусы}
write('cos(',x,')=',a);
end;
3:{тоже самое для тангенса}
4:{тоже самое для котангенса (ctg=1/tg}
readln;
end.
что-то в таком роде...
 

zVonok

New Member
Еще вотрос можно ли сделать шоб значение вводить как (корень из 3)/2
 

xZ_

Хьёзь
Еще вотрос можно ли сделать шоб значение вводить как (корень из 3)/2
можно естественно, например читать как строку, сделать каким-либо алгоритмом чтоб оно подсчитывало выражение, но если этого нету в задании зачем морочить голову? если же есть и это нада реализовать то это другой вопрос
 
Зверху