Объясните пожалуйста по этапам что эта процедура выполняет!

26.10.2010, 14:24. Показов 485. Ответов 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
Unit mymenu;
{подпрограмма " Создание меню "}
 
Interface
Uses crt;
Var
Item: array [1..10] of String;
 
Procedure writemenu(X,Y: Word; S: String); {Отрисовка меню}
Function Menu(Items: Word;x1:integer; y1 : integer): Word; {меню}
 
Implementation
 
Procedure writemenu(X,Y: Word; S: String);
begin
GotoXY(X, Y);
Write(S)
end;
 
Function Menu(Items: Word;x1:integer; y1 : integer): Word;
var
Now, i: Word;
ch : char;
begin
===== вот с этого момента и до конца========
Now := 1;
repeat
for i := 1 to Items do begin
If i = Now then begin
TextBackGround(White);
TextColor(Black);
end
else begin
TextBackGround(black);
TextColor(White);
end;
TextColor(White);
writemenu(x1,y1-Items div 2+i+1, Item[i])
end;
gotoXY(1,25);
ch := ReadKey;
==== и что какой код клавиш обозначает а то в книге не понятно======
Case ch of
#13: Break;
#27: Now := Items;
#0: Case Readkey of
#72, #75: Now := (Now + (Items-2)) mod Items + 1;
#80, #77: Now := Now mod Items + 1
end
end
until False;
Menu := Now;
TextBackGround(black);
TextColor(White);
end;
 
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

26.10.2010, 14:24

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

Объясните, что делает эта процедура. Построчно
Procedure vvod(Var x:Matr; n:Byte); Var d,i,j:Byte; S,y : String; Begin clrscr; writeln('Введите матрицу построчно'); For...

Объясните пожалуйста пошагово что делает эта программа
#include <stdio.h> #include <fstream> #include <iostream> using namespace std; void main() int n,m; ifstream...

Объясните, пожалуйста, что это за процедура "unpack"?
объясните пожалуйста ,что это за профедура repeat unpack (q^.key,buf,1);

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

26.10.2010, 14:24

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

Что выполняет эта функция?
int f4(char c) { int i, old, nw; for (i=0, old=0, nw=0; c='\0'; i++) { if (c==' ') old = 0; else...

Что выполняет эта функция?
void f1(char c) { int i, j; char s; for (i=0, c!='\0';i++); for (j=0, i--;i>j; i--, j++) { s=c; c=c; c=s; } }

Что выполняет эта функция?
Что выполняет приведенная функция? Какова вычислительная сложность алгоритма (наихудшая оценка, используйте OO-нотацию)? Ответ оформите...

Что выполняет эта функция?
#include <stdio.h> #include <string.h> #include <stdlib.h> void F6(char c, int nn) { int k, mm; for (mm = nn, k = 0; mm...

Что выполняет эта часть программы?
Задача: Изменить порядок символов в строке S1 на обратный не используя других строк. Код программы: #include "stdafx.h" ...

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

Наверх