Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 8
1

Написание программы через процедуры и функции

16.11.2013, 11:45. Показов 1512. Ответов 2
Метки нет (Все метки)

Написал такие программы, но требуют, что бы они были прописаны через процедуры и функции с параметрами.
Код
program pro1;
var
   a, i: integer;
   p: real;
procedure max;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
end;

begin max;
      if (p < a) then writeln('Произведение меньше')
                 else writeln('Произведение больше');
end.
Код
program pro2;
var
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then writeln('=', i);
end.
Код
program pro3;

var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=1 to a div 2 do if a mod i=0  then sum:=sum+i ;
     writeln ('совершенное число = ', sum);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2013, 11:45
Ответы с готовыми решениями:

Нужно изменить написание программы через процедуры и функции
uses crt; const n=5;m=6; var a:array of integer; b:array of integer; var...

Подскажите алгоритм ( с чего начать написание программы , какие процедуры нужны)
Дан файл f, компоненты U0,U1,…Un которого являются последовательными числами Фибоначчи. Получить в...

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Написание программы через модули
Здравствуйте!!Есть программа на с++ #include &lt;iostream.h&gt; #include &lt;conio.h&gt; int main() { char...

2
1 / 1 / 1
Регистрация: 27.05.2013
Сообщений: 43
16.11.2013, 12:31 2
Лучший ответ Сообщение было отмечено русяш как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program pro1;
 
var
  a: integer;
  p: real;
 
procedure max(var a: integer);
var
  i: byte;
begin
  writeln('Введите число');
  readln(a);
  p := 1;
  for i := 1 to a do 
  begin
    if (i mod 2 <> 0) then p := p * i;
  end;
  writeln('произведение нечетных чисел = ', p);
end;
 
begin
  max(a);
  if (p < a) then writeln('Произведение меньше')
  else writeln('Произведение больше');
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pro2;
 
var
  a: integer;
 
procedure Chet(a: integer);
var
  i: byte;
begin
  for i := a downto 1 do 
    if a mod i = 0 then writeln('=', i);
  
end;
 
begin
  writeln('Введите число');
  readln(a);
  Chet(a);
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pro3;
 
var
  sum: longint;
  a, i: integer;
 
procedure search(a: integer; var sum: longint);
var
  i: byte;
begin
  for i := 1 to a div 2 do if a mod i = 0  then sum := sum + i;
end;
 
begin
  writeln('Введите число');
  readln(a);
  search(a, sum);
  writeln('совершенное число = ', sum);
end.
1
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 8
16.11.2013, 12:37  [ТС] 3
Дружище, Спасибо большое. Выручил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2013, 12:37

Написание программы по подсчету значения функции
Здравствуйте! Помогите с задачей! Стоит задача: написать программу для подсчета значения ...

С++ Программа ,Функции , Варианты написание программы
Можно ли эту программу записать немного иначе , даже не знаю как сказать , просто начали...

Написание программы вычисления функции. Ошибка
Написал программу, не могу понять, где описать часть условия, и вывести главное. Задание написать...

Написание программы-функции для вектор-строки
Здравствуйте, уважаемые посетители форума, дедушки, новички , профи, вообщем всем привет.Вообщем,...

Написание программы , вычисляющую значение функции на интервале с шагом
Помогите пожалуйста решить проблему, выскакивает ошибка exitcode = 207

Машина Тьюринга, написание программы для вычисления функции f(n)=n-2 (=0, если n=0,1)
Записать в алфавите {a,l,*} программу машины Тьюринга для вычисления функции f(n)=n-2 (=0, если...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru