Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Карапузик
0 / 0 / 0
Регистрация: 12.01.2011
Сообщений: 24
1

Решите контрольную

21.06.2011, 09:57. Просмотров 894. Ответов 2
Метки нет (Все метки)

!.Написать программу( Составьте рекурсивную функцию)


#1 Найдите сумму всех трехзначных чисел, кратных 25
#2 Найдите сумму первых n четных натуральных чисел.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2011, 09:57
Ответы с готовыми решениями:

Как правильно оформить контрольную?
Не могу вникнуть как правильно её оформить, там надо в виде каких-то листингов и файлов.Первое...

Вычислить контрольную сумму последовательности
Ввести с клавиатуры последовательность N однобайтных чисел в шестнадцатеричном формате. Вычислить...

Нужно сделать контрольную по теории алгоритмов
1. Сгенерировать элементы массива целого типа случайным образом в заданном диапазоне согласно...

срочно надо сдать контрольную Pascal !!
Помогите пожалуйста осталась неделя до сдачи контрольной ! 2е задачи сам смог решить ) 2...

Определить, сколько учеников написали контрольную работу на положительную оценку
1.В 8а классе была проведена контрольная работа по программированию. Оценки были разные: и 2-ки, и...

2
Puporev
Модератор
56624 / 43303 / 29936
Регистрация: 18.05.2008
Сообщений: 103,025
21.06.2011, 11:52 2
Лучший ответ Сообщение было отмечено Карапузик как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
function Rec1(a:integer):longint;
begin
if a=100 then Rec1:=a
else Rec1:=Rec1(a-25)+a;
end;
begin
clrscr;
write('Сумма трехзначных чисел=',Rec1(975));
readln
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
function Rec2(a,k:integer):longint;
begin
if k=1 then Rec2:=a
else Rec2:=Rec2(a+2,k-1)+a;
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write('Сумма первых ',n,' четных натуральных чисел=',Rec2(2,n));
readln
end.
0
lamed
297 / 297 / 150
Регистрация: 07.05.2011
Сообщений: 592
21.06.2011, 19:43 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{ #2 Найдите сумму первых n четных натуральных чисел. }
function sum(n: integer): integer;
begin
  if n=1 then
    sum := 2
  else
    sum := sum(n-1)+n*2;
end;
 
var
  n: integer;
  s: integer;
begin
  readln(n);
  s:= sum(n);
  writeln('s=', s);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2011, 19:43

Посчитать, сколько учеников написали контрольную работу на положительную оценку
В 9в классе была проведена контрольная работа по программированию. Оценки были разные: и 2-ки, и...

решите дз
пару задач 1)Сколько раз подпоследовательность S входит в строку? 2)проверить монотоность строки...

решите в паскале
Можно ли в квадратном зале площадью s сделать в центре круглую сцену радиусом r, так чтобы от сцены...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru