Решение через Turbo Pascal
5-9 класс
|
program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Другие вопросы из категории
B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.
Читайте также
отрицательных, и не равных нуля. Задача решается через Turbo Pascal
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня. Определить:
a) Через сколько дней он будет пробегать не более 20 км?
б) Сколько километров он пробежит на 7-ой день?
вводится n чисел. Найти максимальные.