Задание №2 по дисциплине «Информатика»



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Решить задачу: с использованием условного оператора.
Составить программу вычисления функции
formula

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,f,x1,x2,x3:real;
begin
writeln ('vvedite X');
readln (x);
if x<0 then
begin
x1:=-4;
writeln (x1:2:0);
end;

if (0<=x) AND (x<1) then begin x2:=sqr (x)+3*x+4; writeln (x2:2:0); end; if (x>=1) then
begin
x3:=sqr (sqr (x)+3*x+4);
writeln (x3:2:0);
end;
readln;
end.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!