составте программу пж на PascalABCNET очень прошу пожалуйста
Приложения:
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
var x:=ReadReal('x=');
var ω:=x<1.2 ? a*x*x+b*x+c : x=1.2 ? a*x+Sqrt(x*x+1) : (a+b*x)/Sqrt(x*x+1);
Writeln('ω=',ω)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
var x:=ReadReal('x=');
var ω:=x<1.2 ? a*x*x+b*x+c : x=1.2 ? a*x+Sqrt(x*x+1) : (a+b*x)/Sqrt(x*x+1);
Writeln('ω=',ω)
end.
Приложения:
Ответил Аноним
0
Тем более. Гнать надо нафик таких "специалистов". В вузе преподавать информатику, на разбираясь в исполняющей среде...
Ответил Аноним
0
Консоль вызывают только для совместимости со старыми программами, использующими символы для так называемой псевдографики".
Ответил Аноним
0
Там, где есть конструкция GoToXY
Ответил Сэм7771
0
можете зайти ко мне я выложил полное условие новый вопрос
Ответил Аноним
0
В иных случаях не пишут ни uses Crt, ни ReadKey.
Новые вопросы