подскажите как составить блок-схему

30.05.2010, 14:57. Показов 551. Ответов 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
39
40
41
42
43
Program z4;
var i,j,Sum,min,max,N,M:integer;
A:array[1..100,1..100] of integer;
Sr,minSr,maxSr:real;
begin
write('vvvedite kolichestvo predmetov');
read(N);
write('vvedite kolichestvo studentov');
read(M);
for i:=1 to N do
for j:=1 to M do
read (A[i,j]);
maxSr:=0;
max:=0;
for j:=1 to M do
begin
Sum:=0;
for i:=1 to N do
Sum:=Sum+A[i,j];
Sr:=Sum/N;
if Sr>maxSr then
begin
maxSr:=Sr;
max:=j;
end;
end;
minSr:=maxSr;
min:=0;
for i:=1 to N do
begin
Sum:=0;
for j:=1 to M do
Sum:=Sum+A[i,j];
Sr:=Sum/M;
if Sr<minSr then
begin
minSr:=Sr;
min:=i;
end;
end;
write('student s max crednim ballom');
write('predmet po kotoromu crednii ball naimenshii');
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

30.05.2010, 14:57

Ответы с готовыми решениями:

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

Как составить блок-схему?
1. Написать программу для решения следуещего, используя по крайней мере, два вида циклов. Получить последовательность чисел, таких, что...

как составить блок схему
введите с клавиатуры два числа N и M. если оба числа больше 100 то замените каждое из них меньшим и выводите результат. если первое число...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

30.05.2010, 14:57

Помогаю со студенческими работами здесь

Как составить эту блок-схему?
Вопрос жизни и смерти , кто может составить блок схему к этому Program x; uses Crt, Graph; Const punkt: array of string=('O...

Как правильно составить блок-схему
Как правильно составить блок-схему к данной программе Program OKR3; Uses Crt; Var s,u,x:real; n,m:integer; begin ClrScr;...

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок-схему
Uses crt; const Nmax = 10; var A: array of integer; i, j, n, m: byte; begin clrscr; randomize; repeat

Составить блок-схему
uses crt; var a,b,c,x,y:integer; Begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c);

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх