Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 18

Блок схема

26.02.2011, 16:02. Показов 601. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с блок схемой к этой задаче.
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
Program zadacha;
uses Crt;
const N = 4;
var
a:array [1..N, 1..N] of integer;
i,j,max,min: integer;
begin
ClrScr;
max := abs(a[1,1]);
min := max;
WriteLn('Матрица:');
for i := 1 to N do
begin
for j := 1 to N do
begin
a[i,j] := random(8) - 4;
if abs(a[i,j]) > max then
max := abs(a[i,j])
else
if abs(a[i,j]) < min then
min := abs(a[i,j]);
Write(a[i,j]:2,' ')
end;
WriteLn
end;
WriteLn('Результат: ', (max + min)*0.5:2:2);
ReadLn
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.02.2011, 16:02
Ответы с готовыми решениями:

Блок схема
Помогите с блок-схемой к этой задаче. Program proga; {Имя программы} uses crt; {список используемых модулей } const ds=; var...

блок схема
ребят пришлите пожалуйста блок схему вот по этой программе: Program F1; const N=6; var max, j, l, i;integer; T, Z:array of...

Блок-схема
Народ, помогите с блок-схемой. const maxSubstr = 3; NA = -1; type subR = record D: integer; LMin, LMax:...

1
 Аватар для N@tali
781 / 462 / 85
Регистрация: 20.02.2010
Сообщений: 974
26.02.2011, 23:50
схема
Вложения
Тип файла: rar схема.rar (40.0 Кб, 13 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.02.2011, 23:50
Помогаю со студенческими работами здесь

Блок-схема
program sort_roz; uses crt; type roz=(a,v,g,av,kt,yu); const sor:array of string= ('анжелика','виктория','гагарин','аве...

Блок-схема
Program Zadacha; Uses crt; uses crt; const n=10; var a:array of integer; i,j,k,mx,imx:byte; begin clrscr; randomize; ...

Блок-схема
Помогите пожалуста нарисовать блок-схему к программе. Заранее благодарна! type matrix = array of integer; var a:matrix; ...

Блок-схема
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); ...

Блок-схема
составить блок-схему к программе Program Massiv2; сonst n=10; var a: array of real; i,j,k:integer; sum, max:...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 05.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 03.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru