ставит курсор в точку (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