сервис вопросов и ответовvar a, R : integer;
5-9 класс|
|
Function F(x : integer) : integer;
begin
if x<= 0 then F:=0
else F:=x+ F(x-2);
end;
begin
a:=8;
R:=F(a);
write(R);
end.
В паскале ответ 20, как он получается? объясните поподробнее
Sofijka05
02 сент. 2013 г., 22:40:07 (10 лет назад)
шмарко
02 сент. 2013 г., 23:45:07 (10 лет назад)
рекурсия
F = 8 + 6 + 4 + 2 = 20
когда зашли за 0 рекурсия останавливается
Ответить
Другие вопросы из категории
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
С клавиатуры вводятся 100 чисел. Найти сумму тех из них, которые больше 10.
На языке Паскаль. Очень нужно!
помогите нужен кроссворд на тему информатика выполненный в PowerPoint с гиперссылкой а также тесты ребусы. Помогите может кто нибудь знает где
можно это скачать ну или кто нибудь это умеет делать.
Читайте также
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 1)Program z1; var a:integer; begin a:=10; while
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
Задание: Какое значение будет принимать переменная Y после выполнения фрагментов программы, сколько раз будет выполнен цикл? 1) Var x,y:
integer;
Begin
Y:=0;
For x:=1 to 9 do
Y:=y+1;
Writeln (‘y = ’,y);
End.
2) Var
Y, x: integer;
Begin
Y:=0;
X:=10;
While x>0 do
Begin
X:= x-2;
Y:= y+x;
End;
Writeln (‘y = ’,y)
End.
Помогите пожалуйстаа!! Определите результат работы программы, написанной на языке Паскаль. 1) program a5 var i, m:
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
почему в ответе получается 26? var s,i:integer;
mas:array[1..10] of integer;
begin
mas[1]:=14;
mas[2]:=10;
mas[3]:=-8;
mas[4]:=6 ;
mas[5]:=12;
mas[6]:=4 ;
mas[7]:=-16 ;
mas[8]:=-7 ;
mas[9]:=5;
mas[10]:=3;
s:=0;
for i:=1 to 5 do
mas[2*i]:=0;
for i:=1 to 10 do
if mas[i]>5 then s:=s+mas[i];
write(s);
end.
Вы находитесь на странице вопроса "var a, R : integer;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.