Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
giovinco
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 3
#1

Использование подпрограмм - Pascal

16.05.2009, 20:59. Просмотров 387. Ответов 2
Метки нет (Все метки)


http://www.cyberforum.ru/pascal/thread222554.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2009, 20:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Использование подпрограмм (Pascal):

использование подпрограмм
составить программу нахождения наибольшего общего делителя и наименьшего общего...

Использование подпрограмм!
«Использование подпрограмм». Создание функции Даны натуральные числа n,...

Использование подпрограмм
В справочной аэропорта хранится расписание вылета самолетов на следующие сутки....

Использование подпрограмм и модулей
Создать программу для определения кратчайшего среди 3-х введенных пользователем...

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

2
c00le®
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
16.05.2009, 21:48 #2
Лучший ответ Сообщение было отмечено giovinco как решение

Решение

если что-то не так, думаю поменяете сами:
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
uses crt;
 
const n=3;
 
var
i,j,k,x,pr,f,f1:integer;
a:array [1..n,1..n] of integer;
 
procedure vivod;
begin
clrscr;
randomize;
for i:= 1 to n do
  begin
   for j:= 1 to n do
    begin
     a[i,j]:=random(10);
   write(a[i,j]:2);
  end;
 writeln;
      end; end;
 
procedure sumka(k:integer);
begin
     for i:= 1 to n do
     begin
     x:=1; f1:=0;
     for j:= 1 to n do
   f1:=f1+a[x,j];
   end;
begin
     for i:= 1 to n do
     begin
     f:=0;
     for j:= 1 to n do
   f:=f+a[k,j];
   end;
   pr:=f*f1;
 write('Proizvedenie: ' ,pr); end; end;
 
begin
vivod;
      writeln('Vvedite nomer stroki: ');
          readln(k);
      sumka(k);
 writeln;
 readkey;
end.
1
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
16.05.2009, 22:13 #3
вычисления суммы элементов k-той (катой) строки матрицы.
Объявить типы строка матрицы и матрица.
Pascal
1
2
3
type 
st:array[1..20] of real;
matr:array[1..20] of st;
Сейчас строки - элементы матрицы.
Pascal
1
2
3
4
5
6
7
8
9
10
function Summ(x:st;m:byte):real;
var 
i:byte;
s:real;
begin
s:=0;
for i:=1 to m do
s:=s+x[i];
Summ:=x;
end;
В программе
Pascal
1
2
3
var a:matr;
........     
write('Произведение 1й и 3й строки=',Summ(a[1],3)*Summ(a[3],3):0:4);
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2009, 22:13
Привет! Вот еще темы с решениями:

Составить программу на тему: Использование подпрограмм и модулей.
Задание: В модуль нужно включить подпрограмму определения отношения дробей...

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

Массивы в виде подпрограмм
Написано 4 программы с массивами, помогите записать их с ипользованием function...

Использваоние подпрограмм-функций.
плиз срочно помогите решить теория: 6 ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ-ФУНКЦИЙ...


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

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

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