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

Разработать библиотечный модуль

16.11.2010, 22:44. Просмотров 273. Ответов 0
Метки нет (Все метки)

вот нам дали задание из предыдущик лаб Разработать библиотечный модуль...как его надо делать.,вызывающую процедуры и функции....????Вот как моно сделать с этой программкой:????
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
uses crt;
const n=5;
m=5;
var a:array[1..n,1..m]of integer;
i,j,k,t,d:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(11)-5;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to m do
if odd(j) then
for i:=1 to n-1 do
begin
k:=i;
for d:=i+1 to n do
if a[k,j]>a[d,j] then k:=d;
t:=a[i,j];
a[i,j]:=a[k,j];
a[k,j]:=t;
end;
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2010, 22:44
Ответы с готовыми решениями:

Разработать библиотечный модуль
разработать библиотечный модуль из этой программы(находит мин элмент одномерного массива): Type ...

Разработать библиотечный модуль
Разработать библиотечный модуль из ранее созданных программ в лабораторных работах. Составить...

Разработать библиотечный модуль
Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для...

Разработать библиотечный модуль
Помогите пожалуйста, не выходит разработать библиотечный модуль, не понимаю, как вызвать модуль,...

Разработать библиотечный модуль из данной программы
Разработать библиотечный модуль из var a:arrayof integer; i,j,n,k:integer; procedure...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2010, 22:44

Разработать библиотечный модуль из ранее созданных программ
Пытался сделать сам, но нечего из этого не получилось.... Разработать библиотечный модуль из ранее...

Подскажите пожалуйста, как разработать библиотечный модуль.
program laba; uses crt; const nmax=20; var a:array of integer; n,i,j,z,sum:integer; begin...

Разработать библиотечный модуль по сложению и вычитанию вводимых чисел
Разработать библиотечный модуль по сложению и вычитанию вводимых чисел


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

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

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