Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

ПОЖАЛУЙСТА ПОМОГИТЕ!! Начертить схему, записать алгоритм и программу на языке программирования Паскаль для вычисления таблицы значений функции

Для x=1,2,3,4,5,6,7,8,9,10.

{5x, если x >= 0} {4x+2, если x < 0}

Ответ оставил Гость

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln(*********************);
   writeln(*    X    *    Y    *);
   writeln(*********************);
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln(*    x,    *    ,y,    *);
      end;
   writeln(*********************);
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write (Введите ,i,-е значение );
         readln (mas[i]);
      end;
    writeln(*********************);
    writeln(*    X    *    Y    *);
    writeln(*********************);
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln(*    ,mas[i],    *    ,y,    *);
      end;
   writeln(*********************);
end.