Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача Pascal ABC

Автор: MrFarick 9.03.2017 23:35

найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10. ( решите через while или repeat) mega_chok.gif

Автор: Федосеев Павел 10.03.2017 14:28

program Func;

const
  a = 2.0;
var
  x, y:  real;
  Count: integer;
begin
  Count := 0;
  x := -5;
  repeat
    y := a * (x + 1);
    if y < 10 then
      Inc(Count);
    writeln('x=', x: 6: 2, ' y=', y: 6: 2);
    x := x + 1.0;
  until x > 15;
  writeln('y<10: ', Count);

end.