Модули

@Daniloff91 · Регистрация: 07.04.2009

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

Доброго времени суток.
Ребят решил задачу ща с выложу код! Мне учитель сказал сделать ее по модулю! Я на этой теме не был выручите пожалуйста

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
uses crt;
type
 strana=(austria,bolgaria,frg,italy,norvegia,france,greciya);
 cap=(vena,sofia,afini,rim,oslo,parizh,bon);
var s:strana; l:byte;
    c:cap;
begin
clrscr;
writeln('vvedite stranu');
readln(l);
case l of
1:s:=austria;
2:s:=bolgaria;
3:s:=frg;
4:s:=Italy;
5:s:=norvegia;
6:s:=france;
7:s:=greciya;
end;
case s of
austria:c:=vena;
bolgaria:c:=sofia;
frg:c:=bon;
italy:c:=rim;
france:c:=parizh;
norvegia:c:=oslo;
greciya:c:=afini;
end;
case c of
vena:writeln('vena');
sofia:writeln('sofia');
bon:writeln('bon');
rim:writeln('rim');
parizh:writeln('parizh');
oslo:writeln('oslo');
afini:writeln('afini');
end;
readln;
end.

Добавлено через 15 минут
И еще вот программа льстец..... щА нипишу код 5 мин

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
uses crt;
var s,m,d:string;
begin
writeln ('vvedute m ili d');
readln (s);
if s=m then writeln ('vam nravyatsya devvochki') else ('malchiki');
readkey;
end.

Вот как то так! Надо тоже сделать с помощью unit!!!!!!!!!
Выручайте плизззззззз

@Puporev · 02.10.2009, 07:58

Создадите .pas файл с текстом модуля, сохраните с именем strany(как название Unit)
Нажмете Ctrl+F9, будет предложение продолжить компиляцию модуля, согласитемь.
В папке с программой появится модуль, файл STRANY.TPU
А вообще наберите в поисковой системе Модули Паскаль и изучайте, 5 минут работы и стыдно по таким пустякам создавать тему за темой.
Текст модуля

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
unit strany;
interface
type
 strana=(austria,bolgaria,frg,italy,norvegia,france,greciya);
 cap=(vena,sofia,afini,rim,oslo,parizh,bon);
procedure Capital(s:strana;var c:cap);
implementation
procedure Capital;
var l:byte;
begin
writeln('vvedite stranu:');
writeln('1-austria 2-bolgaria 3-frg 4-italy 5-norvegia 6-france 7-greciya');
readln(l);
case l of
1:s:=austria;
2:s:=bolgaria;
3:s:=frg;
4:s:=Italy;
5:s:=norvegia;
6:s:=france;
7:s:=greciya;
end;
case s of
austria:c:=vena;
bolgaria:c:=sofia;
frg:c:=bon;
italy:c:=rim;
france:c:=parizh;
norvegia:c:=oslo;
greciya:c:=afini;
end;
case c of
vena:writeln('vena');
sofia:writeln('sofia');
bon:writeln('bon');
rim:writeln('rim');
parizh:writeln('parizh');
oslo:writeln('oslo');
afini:writeln('afini');
end;
end;
end.

Текст программы

Pascal
1
2
3
4
5
6
7
8
uses crt,strany;{подключаем модуль}
var st:strana;
    cp:cap;
begin
clrscr;
Capital(st,cp);
readln;
end.

Добавлено через 15 минут
№2.
Текст модуля

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
unit lstec;
interface
procedure D_M(c:char);
implementation
procedure D_M;
begin
repeat
writeln ('vvedute M/m ili D/d');
readln (c);
if c in ['d','D'] then writeln ('Vam nravyatsya devvochki') else
if c in ['M','m'] then writeln('Vam nravyatsya malchiki')
else writeln('Neverno vveden simvol! Povtorite.');
until c in ['D','d','M','m'];
end;
end.

Текст программы.

Pascal
1
2
3
4
5
6
7
uses crt,lstec;
var sm:char;
begin
clrscr;
D_M(sm);
readkey;
end.

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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. . .