Протабулировать функцию

@woin_a · Регистрация: 06.12.2012

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

Определить a+(a+h)+(a+2h)+(a+3h)+...+b, где a,b,h - вещественные числа.
Для a=1, b=2, h=0.5 должно получиться 4.5
Выводить с точностью до одного знака после точки.
Пример
Для входных данных 1 2 0.5 Ответ должен быть: 4.5

@Puporev · 07.12.2012, 14:13

Сообщение от woin_a

Для a=1, b=2, h=0.5 должно получиться 4.5

Получится ряд значений 1.0 1.5 2.0

@Zhexon · 07.12.2012, 16:05

Pascal

var
  a,b,h,s : real;
begin
  write('input a,b,h: '); readln(a,b,h);
  s:=a;
  while a<b do begin
    a:=a+h; s:=s+a;
  end;
  writeln('Sum= ',s:0:1);
  readln;
End.

@woin_a 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 11
		1
	Протабулировать функцию 07.12.2012, 10:16. Показов 1023. Ответов 2 Метки нет (Все метки) Определить a+(a+h)+(a+2h)+(a+3h)+...+b, где a,b,h - вещественные числа. Для a=1, b=2, h=0.5 должно получиться 4.5 Выводить с точностью до одного знака после точки. Пример Для входных данных 1 2 0.5 Ответ должен быть: 4.5 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2012, 14:13	2
	Сообщение от woin_a Для a=1, b=2, h=0.5 должно получиться 4.5 Получится ряд значений 1.0 1.5 2.0 0

	07.12.2012, 16:05

Протабулировать функцию

Решение