Скачайте PASKAL ABC - Паскаль, Turbo Pascal, PascalABC.NET

DRAgon™ · 05.05.2010, 00:06

Скачайте пожалуйста - PASKAL ABC со всеми процедурами и модулями
не могу никак написать програмку из-за них

ROMA2PVT · 05.05.2010, 00:14

http://sunschool.math.sfedu.ru/pabc/index.html
Вот здесь глянь.
Pascal да и паскаль пиши нормально.

DRAgon™ · 05.05.2010, 11:50

Все равно нечего, вот програмку запустил, ниякага звука
USES CRT;
BEGIN
{буква P:}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
{буква I:}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
{буква P:}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
{буква I:}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
{буква N:}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
{буква G:}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(200); NoSound; Delay(80); {тире}
Sound(900); Delay(100); NoSound; Delay(80); {точка}
Delay(300); {пауза}
END.

DRAgon™ · 05.05.2010, 11:54

И еще графику не поддерживает, пишет , что модуль Graph не найден.

Alex2009 · 05.05.2010, 15:01

Для графики модуль GraphABC, для звука модуль Sounds.

DRAgon™ · 05.05.2010, 22:38

Цитата:

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

Для графики модуль GraphABC, для звука модуль Sounds.

Так зачем мне сайт о создании игр, мне паскаль нужен

ROMA2PVT · 05.05.2010, 22:42

Тебе же человек написал.

Цитата:

Для графики модуль GraphABC, для звука модуль Sounds.

А ты какой модуль подключаешь.

Код:

USES CRT;

DRAgon™ · 06.05.2010, 00:29

А что такое тогда USES CRT;?

DRAgon™ · 06.05.2010, 00:32

Цитата:

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

Тебе же человек написал.

А ты какой модуль подключаешь.

Код:

USES CRT;

Для звука нужен модуль CRT

ROMA2PVT · 06.05.2010, 01:17

А чёж ты его используешь раз незнаешь что он делает то?Почитай про модули и будет тебе счастье.

05.05.2010, 00:06	#1
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	Скачайте PASKAL ABC Скачайте пожалуйста - PASKAL ABC со всеми процедурами и модулями не могу никак написать програмку из-за них Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

05.05.2010, 00:14	#2
ROMA2PVT ТАМБОВСКИЙ ВОЛК. Участник клуба Регистрация: 16.03.2010 Сообщений: 1,354	http://sunschool.math.sfedu.ru/pabc/index.html Вот здесь глянь. Pascal да и паскаль пиши нормально. にんじゃ Последний раз редактировалось ROMA2PVT; 05.05.2010 в 01:30.

05.05.2010, 11:50	#3
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	Все равно нечего, вот програмку запустил, ниякага звука USES CRT; BEGIN {буква P:} Sound(900); Delay(100); NoSound; Delay(80); {точка} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} {буква I:} Sound(900); Delay(100); NoSound; Delay(80); {точка} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} {буква P:} Sound(900); Delay(100); NoSound; Delay(80); {точка} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} {буква I:} Sound(900); Delay(100); NoSound; Delay(80); {точка} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} {буква N:} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} {буква G:} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(200); NoSound; Delay(80); {тире} Sound(900); Delay(100); NoSound; Delay(80); {точка} Delay(300); {пауза} END. Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

05.05.2010, 11:54	#4
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	И еще графику не поддерживает, пишет , что модуль Graph не найден. Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

05.05.2010, 15:01	#5
Alex2009 Proger Man Форумчанин Регистрация: 07.03.2009 Сообщений: 584	Для графики модуль GraphABC, для звука модуль Sounds. ShowMessage('Добро пожаловать!');

06.05.2010, 00:29	#8
DRAgon™ Форумчанин Регистрация: 14.03.2010 Сообщений: 362	А что такое тогда USES CRT;? Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

06.05.2010, 01:17	#10
ROMA2PVT ТАМБОВСКИЙ ВОЛК. Участник клуба Регистрация: 16.03.2010 Сообщений: 1,354	А чёж ты его используешь раз незнаешь что он делает то?Почитай про модули и будет тебе счастье. にんじゃ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal ABC	ArcaN0id	Помощь студентам	8	07.12.2009 15:24
component ABC	Volkogriz	Компоненты Delphi	6	31.10.2008 17:41