БЛОК СХЕМА

30.05.2010, 14:07. Показов 408. Ответов 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
type
o=set of char;
m=record
sn:string;
a:array [1..5] of shortint;
end;
var
good,perfect:o;
c:array[1..100] of m;
r,i,j:integer;
f:string;
k:boolean;
b:char;
begin
good:=['4'];
perfect:=['5'];
writeln('Введите количество студентов:');
readln(j);
for i:=1 to j do
begin
writeln('Введите фамилию студента и 5 его оценок через Enter:');
readln(c[i].sn);
for r:=1 to 5 do
read(c[i].a[r]);
end;
writeln('Список студентов,получающих повышенную стипендию:');
for i:=1 to j do
begin
k:=true;
for r:=1 to 5 do
begin
str(c[i].a[r],f);
b:=f[1];
if [b]<=perfect then else begin k:=false; 
break;
end;
end;
if k then
begin
writeln(c[i].sn);
c[i].a[r]:=2;
end;
end;
writeln('Список студентов,получающих обычную стипендию:');
for i:=1 to j do
begin
k:=true;
for r:=1 to 5 do
begin
str(c[i].a[r],f);
b:=f[1];
if ([b]<=perfect)or([b]<=good) then 
else begin k:=false; break;
end;
end;
if k then writeln(c[i].sn);
end;
readln;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

30.05.2010, 14:07

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

блок-схема
помогите составить блок-схему к этой программе Uses crt; const m = 10; n = 5; min = -100; max = 100; var nabor:...

блок-схема
Помогите пожалуйста составить блок-схему :** program Variant7; Const n=2; m=3; type Matrix=array of integer; Summa=array of...

Блок схема
Ребят, кому не сложно, нарисуйте блок схему, для человека мало понимающего в этом, пожалуйста. Группа учащихся (студентов) в...

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

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

30.05.2010, 14:07

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

блок-схема
program lab_5; const nmax=20; var x:array of real; n,i,j:byte; sm:real; begin randomize; write('Размер матрицы='); ...

Блок-схема
Сделать бок-схему к программе. Program lab: Const M=5, N=4; B:array of integer; A:array of integer; begin ...

Блок схема
program koordinata; var x1,y1,x2,y2,x3,y3,x4,y4,a1,a2,a3,r:real; begin readln(x1,y1,x2,y2,x3,y3); ...

Блок -Схема
Помогите сделать Блок-Схему по этой программе uses wincrt; const nbr = 10; type v=array of string; x=array of string; ...

Блок-Схема
Можете помочь построить блок-схему??? const N=3; ******M=3; var A:arrayof real; ****i,e,j,c:byte;

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

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

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Наверх