Начало   Правила Помощь Поиск Войти Регистрация  
Центр рейнджеров "Млечный путь"
 
23.09.2025 17:28:56
*
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости:
19.06.2023 12:12:17 - Форум ЕГ снова работает.
03.04.2020 10:16:49 - Ведётся подготовка к чемпионату "Механик"
31.05.2019 12:21:10 - ВНИМАНИЕ! ТЕМ КТО ХОЧЕТ ЗАРЕГИСТРИРОВАТЬСЯ НА ФОРУМЕ!
30.07.2018 01:30:46 - Флешмоб
24.04.2018 12:06:56 - Адрес Форума.



FAQ по тегам форума
FAQ по гильдиям
 
  Творчество Гильдии Команды ТР СНК Кланы Соревнования Рейтинги Альбомы Чат  
Страниц: [1] 2 3 ... 5
  Печать  
Тема: Паскаль
Орден Почётного Легиона за активное участие в жизни форума свыше 1000 дней!Песочный череп - знак вечного бана - за попытку взлома
Offline SID
*

Сообщений: 123
Карма: 269 Известность: 544

« : 03.03.2009 21:31:01 »
Народ ай нид хелп. Вобщем такая трабла, я немного пропустил тему про процедуры и функции и теперь вообще не понимаю этой темы. Проги пишем на Турбо паскале 7. Обьясните плс по возможности на примере какой-нить задачи
"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!"Золотой Орден Галактического Совета" за большую работу в разработке, программировании аддона "КР HD: Революция".Offline Падшая шэдова
*

Сообщений: 410
Карма: 700 Известность: 497

« Ответ #1 : 03.03.2009 22:39:26 »
{объявление функции}
{ключевое_слово имя (параметр: тип_параметра): возвращаемый_тип;}
function Max (a, b: integer): integer;
begin
{чтобы функция вернула значение, ей "нужно что-то присвоить"}
if a>b then Max:=a else Max:=b;
end;

{объявление процедуры}
{то же, что и фунция, но ничего не возвращает}
procedure Print (a: integer);
begin
writeln ('Переданное значение в процедуру a = ',a);
end;

{объявляем переменные}
var x, y, z: integer;

begin
writeln ('Введите x и y:');
readln (x, y);
{вызываем функцию, то, что она вернёт запишем в переменную}
z := max (x, y);
{вызываем процедуру}
Print (z);
{если введём x=3, y=4, то на выходе получим строку
"Переданное значение в процедуру a = 4"}
{Есть ещё передачи переменных по ссылке, констант и прочая "кодерская ерунда", но не думаю, что тебе это понадобится}
end.
Орден Почётного Легиона за активное участие в жизни форума свыше 1000 дней!Песочный череп - знак вечного бана - за попытку взлома
Offline SID
*

Сообщений: 123
Карма: 269 Известность: 544

« Ответ #2 : 05.03.2009 17:31:44 »
Падшая шэдова А можешь обьяснить на примере вот такой задачи: Дано координаты трех точек на плоскости. Определить, какая из них лежит дальше от начала координат. Для определения длины отрезка написать функцию(координаты можно задавать свои)
"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!"Песочный череп" знак вечного бана.
Offline Something
*

That's something... cute.
Сообщений: 3017
Карма: 290 Известность: 1772

« Ответ #3 : 10.03.2009 17:27:02 »
Дано координаты трех точек на плоскости. Определить, какая из них лежит дальше от начала координат. Для определения длины отрезка написать функцию(координаты можно задавать свои)
Может поздно, но вдруг еще кому кому понадобится.
"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!"Золотой Орден Галактического Совета" за большую работу в разработке, программировании аддона "КР HD: Революция".Offline Падшая шэдова
*

Сообщений: 410
Карма: 700 Известность: 497

« Ответ #4 : 10.03.2009 18:42:00 »
Для таких вопросов вообще тема КНП существует. Вот.

Решение одобряю.
Почетная "Рука помощи" за обнаружение критического бага в КР2!"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!
Offline SeWar
*

Бездарь
Сообщений: 217
Карма: 974 Известность: 433

« Ответ #5 : 10.03.2009 19:19:51 »
О мои мозгиии... :wall:
Почетный Орден  "Звезда Свободы" I-й степени за огромную работу по подготовке правительственных заданий для "КР2: Перезагрузка"Звезда героя, за выдающиеся заслуги перед форумом!"Ивикус" и почетное звание "Архивариус форума" — за проведение архивных исследований в области истории форума и кланов, а также создание ее обновляемых электронных версий и проявленное при этом трудолюбие и объективность.
Орден Галактического Совета - за создание пяти своих и доработку остальных правительственных заданий для патча КР!Орден Почетного Легиона за активное участие в жизни форума свыше 1000 дней!!!"Медаль Звездной Гвардии" за длительный стаж безукоризненной работы на благо форума.
Почётный орден "Звезда свободы" III-й степени за помощь в организации работы и создании скрипта для аддона "Революция""Звезда Эгемона". Редчайшая награда Галактического Совета. Выдана за выдающиеся заслуги перед Форумом и за форумный стаж свыше 2000 дней
Offline Axiton
*


Сообщений: 2165
Карма: 1550 Известность: 1737

« Ответ #6 : 13.03.2009 19:26:11 »
Как в Паскале по-русски писать (версия 7.1)? А то только на английском пока получается...
"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!"Золотой Орден Галактического Совета" за большую работу в разработке, программировании аддона "КР HD: Революция".Offline Падшая шэдова
*

Сообщений: 410
Карма: 700 Известность: 497

« Ответ #7 : 13.03.2009 20:18:24 »
Акси. И ты туда же. :)

Вообще, впервые слышу о 7.1. Это с надстрокой какой-то? Последняя версия Паскаля, официально выпущенная Borland'ом, была 7.0.

Ответ на вопрос:
1. Никак. Просто отавить всё как есть.
2. Открыть после работы в Паскале исходный код программы в любом редакторе, поодерживающий печать в DOS-кодировке. По-моему, даже Far подойдёт. И писать кирилицей в этом самом редакторе.
3. Использовать коды кирилицы и писать в Паскале последовательности в виде #x, где x - число, соответствующее нужному тебе символу в таблице DOS-кодировки.
"Урановый Млеко" за победу в первом конкурсе на лучший комплект погон для форума EG"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!
Offline kleho
*

Сообщений: 43
Карма: 320 Известность: 443

« Ответ #8 : 14.03.2009 09:18:01 »
Можно ещё воспользоваться русификатором rk.com, переключение двумя шифтами. В архиве сам rk и батник для запуска.
Почетный Орден  "Звезда Свободы" I-й степени за огромную работу по подготовке правительственных заданий для "КР2: Перезагрузка"Звезда героя, за выдающиеся заслуги перед форумом!"Ивикус" и почетное звание "Архивариус форума" — за проведение архивных исследований в области истории форума и кланов, а также создание ее обновляемых электронных версий и проявленное при этом трудолюбие и объективность.
Орден Галактического Совета - за создание пяти своих и доработку остальных правительственных заданий для патча КР!Орден Почетного Легиона за активное участие в жизни форума свыше 1000 дней!!!"Медаль Звездной Гвардии" за длительный стаж безукоризненной работы на благо форума.
Почётный орден "Звезда свободы" III-й степени за помощь в организации работы и создании скрипта для аддона "Революция""Звезда Эгемона". Редчайшая награда Галактического Совета. Выдана за выдающиеся заслуги перед Форумом и за форумный стаж свыше 2000 дней
Offline Axiton
*


Сообщений: 2165
Карма: 1550 Известность: 1737

« Ответ #9 : 16.03.2009 16:17:49 »
Акси. И ты туда же.
Ну так тема для Паскаля вроде :)

Вообще, впервые слышу о 7.1. Это с надстрокой какой-то?
Это была первая версия, которую нашёл поисковик.

Можно ещё воспользоваться русификатором rk.com, переключение двумя шифтами. В архиве сам rk и батник для запуска.
А для какой версии он работает?
"Урановый Млеко" за победу в первом конкурсе на лучший комплект погон для форума EG"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!
Offline kleho
*

Сообщений: 43
Карма: 320 Известность: 443

« Ответ #10 : 17.03.2009 00:20:01 »
А для какой версии он работает?
Для любой :)

Это не "русификатор паскаля", а "русификатор всего в ДОСе". После запуска rk оставляет в памяти резидентную часть и отслеживает нажатия клавиш, так что его можно использовать для любых досовских программ, например тех же C/C++ от борладна, надо только батник подправить.
Почетный Орден  "Звезда Свободы" I-й степени за огромную работу по подготовке правительственных заданий для "КР2: Перезагрузка"Звезда героя, за выдающиеся заслуги перед форумом!"Ивикус" и почетное звание "Архивариус форума" — за проведение архивных исследований в области истории форума и кланов, а также создание ее обновляемых электронных версий и проявленное при этом трудолюбие и объективность.
Орден Галактического Совета - за создание пяти своих и доработку остальных правительственных заданий для патча КР!Орден Почетного Легиона за активное участие в жизни форума свыше 1000 дней!!!"Медаль Звездной Гвардии" за длительный стаж безукоризненной работы на благо форума.
Почётный орден "Звезда свободы" III-й степени за помощь в организации работы и создании скрипта для аддона "Революция""Звезда Эгемона". Редчайшая награда Галактического Совета. Выдана за выдающиеся заслуги перед Форумом и за форумный стаж свыше 2000 дней
Offline Axiton
*


Сообщений: 2165
Карма: 1550 Известность: 1737

« Ответ #11 : 17.03.2009 14:58:13 »
Хм, его в каком-то определённом месте запускать надо? У меня, увы, паскаль по-прежнему рюсскый не понимай.  :(
"Ивикус" за долгую и плодотворную работу на благо форума в качестве модератора, программиста и вообще хорошего человека!Орден Почётного Легиона за активное участие в жизни форума свыше 1000 дней!Элерфероид. За создание программы "СПФ ListCreator", значительно облегчившей составление сообщений как в голосовании "СПФ", так и просто сообщений на форуме.
"Медаль элитной охраны"  за продолжительное время усердной работы на благо форума."Именная монета" — за предложения, способствующие развитию форума!"Орден Галактического Совета" за тестирование, реализацию новшеств и прочую помощь в разработке аддона "КР HD: Революция".
Offline zavron_lb
*

=(ДК:LB)=
Сообщений: 864
Карма: 355 Известность: 655

« Ответ #12 : 17.03.2009 15:23:03 »
Я просто сохраняю и из фара пишу что нужно. А коли такая необходимость появляется раз в сто лет, то ничего дополнительного и не держу.
"Символ Творца", почетная награда за создание новых медалей для форума ЕГ"Ашианская лента" за III место в конкурсе "На лучший рисунок корабля".Орден Почетного Легиона за активное участие в жизни форума свыше 1000 дней!!!
"Именная Монета" за создание и дальнейшую модернизацию полезнейшего трейнера, помогающего многим рейнджерам воплощать задуманное, видеть на несколько ходов вперед, еще больше чувствовать ту безграничную вселенную."Табель воина" - знак Чемпиона по КР 2 (версии 1.8.1)
Offline Нарком
*

Сообщений: 188
Карма: 205 Известность: 169

« Ответ #13 : 17.03.2009 16:35:23 »
До меня (сейчас вдруг ;)) дошло почему большинство юзеров пользут паскаль. Его ж по-старинке преподают в институтах!
Я ж тоже когда-то прогуливал проходил его :)
"Орден Почётного Легиона" за активное участие в жизни форума свыше 1000 дней!!!"Песочный череп" знак вечного бана.
Offline Something
*

That's something... cute.
Сообщений: 3017
Карма: 290 Известность: 1772

« Ответ #14 : 17.03.2009 16:53:12 »
До меня (сейчас вдруг ;)) дошло почему большинство юзеров пользут паскаль. Его ж по-старинке преподают в институтах!
Угу. После него Дельфы осваивать намного проще.
Страниц: [1] 2 3 ... 5
 
 

Powered by SMF 2.0 Beta 4 | SMF © 2006–2008, Simple Machines LLC
WAP2 RSS
Skin by [cer]
Страница сгенерирована за 0.041 секунд. Запросов: 66.

FRC | СВР | WR | LB | СБР | РБ | РДВ | АсТис | Авалон | СКР | FGC | КРУ | SLS | КЛАС