Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
temacska1
0 / 0 / 0
Регистрация: 02.05.2013
Сообщений: 37
#1

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

06.06.2013, 15:56. Просмотров 661. Ответов 1
Метки нет (Все метки)

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

программу, которая подключает созданный модуль и использует его подпрограммы.
продолжение на картинке)
0
Миниатюры
Создать личный модуль, содержащий указанные подпрограммы. Написать  программу, которая подключает созданный модуль и использует его подпрограммы  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2013, 15:56
Ответы с готовыми решениями:

Создать модуль, содержащий подпрограммы создание изображения окна, крыши, двери, стены
Создать модуль, содержащий подпрограммы создание изображения окна, крыши,...

Написать программу которая использует меню и подпрограммы , реализуют по выбору пользователя следующие операции:
Помогите сделать программу в паскале Проводимости . Информация о множестве...

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

Создать модуль и программу, которая будет тестировать модуль
Модуль должен состоять из процедур и функций которые надам я Процедура: ...

Создать модуль,содержащей подпрограммы вычисляющие различные тригонометрические функции
Используя созданный модуль,вычислить y=arccos ctg\frac{{arcsin}^{2}x}{{tgx}^{2}}

1
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,963
Завершенные тесты: 6
06.06.2013, 17:34 #2
Лучший ответ Сообщение было отмечено temacska1 как решение

Решение

1)
Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt, unit1;
const n = 20;
var
x: array [1..n] of integer;
i: byte;
begin
write('ГЊГ*Г±Г±ГЁГў X: ');
for i:=1 to n do
begin
x[i]:=-10+random(30);
write(x[i],' ');
end;
writeln;
arr(x);
end.
Модуль:
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
Unit unit1;
interface
const n = 20;
procedure arr (x: array [1..n] of integer);
implementation
procedure arr (x: array [1..n] of integer);
var
i,j,l: byte;
y,z: array [1..n] of integer;
begin
j:=0; l:=0;
for i:=1 to n do
if (x[i] < 0) then
begin
inc(j);
z[j]:=x[i];
end
else
begin
inc(l);
y[l]:=x[i];
end;
write('ГЊГ*Г±Г±ГЁГў Z: ');
for i:=1 to j do write(z[i],' ');
writeln;
write('ГЊГ*Г±Г±ГЁГў Y: ');
for i:=1 to l do write(y[i],' ');
writeln;
end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2013, 17:34

Написать программу, которая будет содержать подпрограммы первого и второго задания
1)Вычислить произведение и количество четных элементов массива A. 2)Определить...

Написать модуль, содержащий тригонометрическую функцию секанс
Нужна помощь! Написать модуль, содержащий тригонометрическую функцию секанс...

Создать собственный модуль, содержащий рекурсивную процедуру на строки
Дана строка состоящая из слов разделённых 1 или несколькими пробелом, вывести...


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

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

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