Используя рекурсивную функцию, найдите n-й член арифметической прогрессии с заданными первым членом а и разностью прогрессии d

@forest_of_fog · Регистрация: 28.12.2009

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

плиз напишите полный текст проги.... я не шарю(

Используя рекурсивную функцию, найдите n-й член арифметической прогрессии с заданными первым членом а и разностью прогрессии d.

@Puporev · 29.12.2009, 11:15

Pascal

uses crt;
function An(a,d,n:integer):integer;
begin
if n=1 then An:=a
else An:=An(a,d,n-1)+d;
end;
var a,d,n:integer;
begin
clrscr;
write('A=');readln(a);
write('Shag=');readln(d);
write('N=');readln(n);
writeln('An=',An(a,d,n));
readln
end.

@forest_of_fog 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 13
		1
	Используя рекурсивную функцию, найдите n-й член арифметической прогрессии с заданными первым членом а и разностью прогрессии d 29.12.2009, 00:34. Показов 3554. Ответов 1 Метки нет (Все метки) плиз напишите полный текст проги.... я не шарю( Используя рекурсивную функцию, найдите n-й член арифметической прогрессии с заданными первым членом а и разностью прогрессии d. 0

	29.12.2009, 11:15

Используя рекурсивную функцию, найдите n-й член арифметической прогрессии с заданными первым членом а и разностью прогрессии d

Решение