Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
kokos2121
0 / 0 / 0
Регистрация: 20.11.2016
Сообщений: 1
1

Процедуры и функции

20.11.2016, 11:19. Просмотров 193. Ответов 1
Метки нет (Все метки)

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;                                    
var   i,n:integer;
    A,Pow: real;
 
begin
  write('A = ');
  read(A);
  write('N = ');
  read(N);
 
  Pow := 1;
  for i := 1 to N do Pow := Pow * A;
  write(Pow:1:2);
 
end.
1. Процедуру, которая не возвращает значения
2. Процедуру, в которую передаются значения через формальные параметры
3. Процедуру, которая возвращает значение через формальный параметр
4. Функцию

2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  p, s: real;
  k: integer;
 
begin
  write('Введите P: '); 
  readln(p);
  s := 1000; 
  while s <= 1100 do
  begin
    s := s * (p / 100 + 1); 
    inc(k); 
  end;
  writeln('Количество месяцев: ', k);
  writeln('Итоговый размер вклада: ', s);
end.
1. Процедуру, которая не возвращает значения
2. Процедуру, в которую передаются значения через формальные параметры
3. Процедуру, которая возвращает значение через формальный параметр
4. Функцию
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2016, 11:19
Ответы с готовыми решениями:

Оформить вычисления значения интегральной функции в виде процедуры-функции
Оформить вычисления значения интегральной функции F (x), в виде...

Процедуры и функции
Ребят, есть написанная программа: var a:array of integer; ...

Процедуры и функции
Нужно в коде программы, который дан по ссылке...

Процедуры и функции

Переделать процедуры в функции
Можно ли переделать процедуры в функцию? uses crt; const n=4; type...

1
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,003
20.11.2016, 15:20 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure pow_1;
var n,i:integer;
    a,p:real;
begin
p:=1;
write('a=');
readln(a);
write('n=');
readln(n);
for i:=1 to n do p:=p*a;
writeln(p:0:2);
end;
procedure pow_2(a:real;n:integer);
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do p:=p*a;
writeln(p:0:2);
end;
procedure pow_3(a:real;n:integer;var p:real);
var i:integer;
begin
p:=1;
for i:=1 to n do p:=p*a;
end;
function pow_4(a:real;n:integer):real;
var i:integer;
begin
result:=1;
for i:=1 to n do result:=result*a;
end;
var n:integer;
    a,p: real;
begin
writeln('Пример 1');
pow_1;
writeln('Пример 2');
write('a=');
readln(a);
write('n=');
readln(n);
pow_2(a,n);
writeln('Пример 3');
pow_3(a,n,p);
writeln(p:0:2);
writeln('Пример 4');
writeln(pow_4(a,n):0:2)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2016, 15:20

Процедуры и функции. Число наоборот
Добрый вечер! Помогите, пожалуйста! Заменить данные n натуральных чисел на...

Понятие подпрограммы: процедуры и функции
1) Дан массив содержащий n элементов. Определить количество элементов массива,...

Процедуры и функции: Сформировать 3 матрицы A*B; A*C; B*C
Задание. Даны 3 матрицы A,B,C. Сформировать 3 матрицы A*B; A*C; B*C. Помогите...


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

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

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