Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне

@disfatum · Регистрация: 10.10.2013

Студворк — интернет-сервис помощи студентам

Kodzaev · 17.10.2013, 18:50

Pascal

var
  x, y, r, l, h: real;
 
begin
  repeat
    Write('Введите нижнюю границу: ');
    Readln(l);
    Write('Введите верхнюю границу: ');
    Readln(r);
    if r < l then
      Writeln('Нижняя граница должна быть меньше верхней');
  until r > l;
  repeat
    Write('Введите шаг: ');
    Readln(h);
    if r - l < h then
      Writeln('Слишком большой шаг');
  until r - l >= h;
  x := l;
  while x <= r do
  begin
    Writeln('X = ', x:0:5, '   Y = ', x * 2 + 1:0:5);
    x := x + h;
  end;
  Readln
end.

@disfatum 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 28
		1
	Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне 17.10.2013, 18:30. Показов 1498. Ответов 1 Метки нет (Все метки) Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне 0

	17.10.2013, 18:50

Опции темы

Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне

Решение