Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 07.04.2009
Сообщений: 57
1

Модули

01.10.2009, 18:56. Просмотров 743. Ответов 1
Метки нет (Все метки)


Доброго времени суток.
Ребят решил задачу ща с выложу код! Мне учитель сказал сделать ее по модулю! Я на этой теме не был выручите пожалуйста
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!!!!!!!!!
Выручайте плизззззззз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2009, 18:56
Ответы с готовыми решениями:

Модули
Дана задача: Написать подпрограмму (процедуру или функцию) для вычисления суммы , когда вид...

Модули
РЕализовать в виде модуля набора подпрограмм для выполнения операции над вектором: сложение....

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

Модули
NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete...

1
Модератор
62859 / 46906 / 32327
Регистрация: 18.05.2008
Сообщений: 113,654
02.10.2009, 07:58 2
Создадите .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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2009, 07:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Модули
Написать программу c помошью модуля, вычисляющую удвоенный квадрат площади треугольника с помощью...

Модули
помогите плиз завтро надо сдавать ваще хз как сделать... создать функции MyVal – преобразовать...

Модули.
Задание в вордовском документе. Срок выполнения до субботы. Заранее большое спасибо!

Модули
Помогите!!Не врубаюсь в тему модули!Надо решить... Разработать модуль, реализующий функции...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.