Организация меню,обработка массива,его ввод и вывод из файла.

11.02.2010, 22:42. **Показов** 1544. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Здравствуйте мудрые форумчане)))

Злющий препод

дал лабораторку,над которой я наверно умру(((

Задачка не из простых,я как бы не прошу ещё решить,просто есть весьма интересные ньюансы в которых я совсем запутался.Вообщем помогите кто чем может.

Цель такая-организовать работу с определённым массивом и сделать это всё в красивом меню.Пункты работы:
1)Процедура первая создание самого меню.Цвета любые,форма любая.
1.Ввод массива
под пунктики:
с клавиатуры
из файла
2.Обработка (о чём идёт речь не так то просто сказать)
3. Вывод на экран
прям с проги
с файла
4.Формирование по закону (я так понял это переработка моих введённых чисел по условию)
5.Выдох...выход тоесть....
2,3,4,5,6) как понимаете это те процедуры которые будут срабатывать при нажатии того или иного пункта меню
7)тело самой программы

Пролагаю задание:
Даны числа Хи Y1,Y2...Y12.Вычислить верно ли,что Y1<=X<=Y12 и T1<=X<=T2,где T1-наименьшее,а Т2-наибольшее среди Y1...Y12
T1,T2-найти
Y(i)=B+M*e^-i
i=1,12;M=12;B=5;X=6;

В подпрограммах я лох.....мы их только выучили,пытался делать без них,с метками,так более оценивается имхо оно сложнее,но ничё толкового не вышло.

Прилогаю просто так,для виду.Но плиз идеи высказывайте по процедурам,а не по этому.

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
61
62
63
64
PROGRAM LABA_6;
USES CRT;
CONST S:ARRAY[1..3] OF STRING[22]=('VVOD S KLAVIATYRI','VVOD IZ FAILA','FORMIROVANIE PO ZAKONY');
COL=GREEN;
COL_BK=BLUE;
COL_MN=RED;
COL_BK_MN=BLACK;
VAR A:ARRAY[1..10] OF REAL;
IM,IW:BYTE;
C:CHAR;
 
BEGIN
TEXTBACKGROUND(BLACK);
CLRSCR;
WINDOW(1,1,28,8);
TEXTCOLOR(COL_MN);
TEXTBACKGROUND(COL_BK_MN);
CLRSCR;
GOTOXY(1,8);
WRITE(#$C0);
FOR IW:=1 TO 26 DO WRITE(#$C4);
WRITE(#$D9);
GOTOXY(1,1);
INSLINE;
WRITE(#$DA);
FOR IW:=1 TO 26 DO WRITE(#$C4);
WRITE(#$BF);
FOR IW:=2 TO 7 DO BEGIN GOTOXY(1,IW);WRITELN(#$B3);GOTOXY(28,IW);WRITE(#$B3);END;
WINDOW(2,2,27,6);
TEXTCOLOR(COL_MN);
TEXTBACKGROUND(COL_BK_MN);
WRITE(S[1]);
CLREOL;
WRITELN;
TEXTCOLOR(COL);
TEXTBACKGROUND(COL_BK);
WRITE(S[2]);
CLREOL;
WRITELN;
WRITE(S[3]);
CLREOL;
IM:=1;
GOTOXY(1,1);
REPEAT
C:=READKEY;
CASE C OF
#72:BEGIN GOTOXY(1,IM);TEXTCOLOR(COL);TEXTBACKGROUND(COL_BK);WRITE(S[IM]);CLREOL;DEC(IM);
IF IM<1 THEN IM:=3;GOTOXY(1,IM);TEXTCOLOR(COL_MN);TEXTBACKGROUND(COL_BK_MN);WRITE(S[IM]);
CLREOL; END;
#80:BEGIN GOTOXY(1,IM);TEXTCOLOR(COL);TEXTBACKGROUND(COL_BK);WRITE(S[IM]);CLREOL;INC(IM);
IF IM>3 THEN IM:=1;GOTOXY(1,IM);TEXTCOLOR(COL_MN);TEXTBACKGROUND(COL_BK_MN);WRITE(S[IM]);
CLREOL; END;
#13: BREAK;
END;{PO CASE}
UNTIL FALSE;
WINDOW(1,10,45,15);
CASE IM OF
1:WRITE(IM);
2:WRITE(IM);
3:WRITE(IM);
END;{PO CASE}
 
READLN
END.

На данный момент это всё что у меня есть,буду постепенно добавлять информацию.....

@ЛоРД_Оледжан · 12.02.2010, 15:51

artchy, если Вам нужно что бы в программе было меню то без процедур Вам не обойтись это однозначно, и потом

Сообщение от artchy

сделать это всё в красивом меню

уточните меню должно быть сделано в модуле CRT или графическое (c использованием модуля GRAPH)? Управление меню должно осуществлятся стрелками или цифрами?

14.02.2010, 19:30

Значит так,использовать нужно модуль CRT....
А вот то что стрелками или цифрами не играет никакой роли.....но стрелками канеш помажёрней как-то будет)))
Ну то что без процедур не обойтись эт я уже вкурил.....

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

artchy
	14.02.2010, 19:30
	Значит так,использовать нужно модуль CRT.... А вот то что стрелками или цифрами не играет никакой роли.....но стрелками канеш помажёрней как-то будет))) Ну то что без процедур не обойтись эт я уже вкурил.....