ставит курсор в точку (1,3) (1 по горизонтале, 3 по вертикале).Спасибо,всё работает)) По поводу нуля согласна,он тут явно ничего не меняет..
а что делает команда gotoxy(1,3);?
для того, чтобы более - менее красиво выводило ответ.
ставит курсор в точку (1,3) (1 по горизонтале, 3 по вертикале).Спасибо,всё работает)) По поводу нуля согласна,он тут явно ничего не меняет..
а что делает команда gotoxy(1,3);?
используй case ofПомогите
у меня есть 4 решения одной задачи Sin Cos Tg Ctg
надо так шоб пользователь мог вибрать шото одно из етого потом ввести его и дальше сам думаю разберусь зарание спс)
напиши условие задачи.Помогите
у меня есть 4 решения одной задачи Sin Cos Tg Ctg
надо так шоб пользователь мог вибрать шото одно из етого потом ввести его и дальше сам думаю разберусь зарание спс)
по введенному значению косинуса или синуса или тангенса котангенса (пользователь перед етим должен вибрать что он будет вводить) вивести угол которому соответствует это значение (угол в градусах)
что-то в таком роде...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.
можно естественно, например читать как строку, сделать каким-либо алгоритмом чтоб оно подсчитывало выражение, но если этого нету в задании зачем морочить голову? если же есть и это нада реализовать то это другой вопросЕще вотрос можно ли сделать шоб значение вводить как (корень из 3)/2