Центр рейнджеров "Млечный путь"

Народ ай нид хелп. Вобщем такая трабла, я немного пропустил тему про процедуры и функции и теперь вообще не понимаю этой темы. Проги пишем на Турбо паскале 7. Обьясните плс по возможности на примере какой-нить задачи

{объявление функции}
{ключевое_слово имя (параметр: тип_параметра): возвращаемый_тип;}
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.

Падшая шэдова А можешь обьяснить на примере вот такой задачи: Дано координаты трех точек на плоскости. Определить, какая из них лежит дальше от начала координат. Для определения длины отрезка написать функцию(координаты можно задавать свои)

Дано координаты трех точек на плоскости. Определить, какая из них лежит дальше от начала координат. Для определения длины отрезка написать функцию(координаты можно задавать свои)

Может поздно, но вдруг еще кому кому понадобится.

Для таких вопросов вообще тема КНП существует. Вот.

Решение одобряю.

О мои мозгиии... :wall:

Как в Паскале по-русски писать (версия 7.1)? А то только на английском пока получается...

Акси. И ты туда же. :)

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

Ответ на вопрос:
1. Никак. Просто отавить всё как есть.
2. Открыть после работы в Паскале исходный код программы в любом редакторе, поодерживающий печать в DOS-кодировке. По-моему, даже Far подойдёт. И писать кирилицей в этом самом редакторе.
3. Использовать коды кирилицы и писать в Паскале последовательности в виде #x, где x - число, соответствующее нужному тебе символу в таблице DOS-кодировки.

Можно ещё воспользоваться русификатором rk.com, переключение двумя шифтами. В архиве сам rk и батник для запуска.

Акси. И ты туда же.

Ну так тема для Паскаля вроде :)

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

Это была первая версия, которую нашёл поисковик.

Можно ещё воспользоваться русификатором rk.com, переключение двумя шифтами. В архиве сам rk и батник для запуска.

А для какой версии он работает?

А для какой версии он работает?

Для любой :)

Это не "русификатор паскаля", а "русификатор всего в ДОСе". После запуска rk оставляет в памяти резидентную часть и отслеживает нажатия клавиш, так что его можно использовать для любых досовских программ, например тех же C/C++ от борладна, надо только батник подправить.

Хм, его в каком-то определённом месте запускать надо? У меня, увы, паскаль по-прежнему рюсскый не понимай.  :(

Я просто сохраняю и из фара пишу что нужно. А коли такая необходимость появляется раз в сто лет, то ничего дополнительного и не держу.

До меня (сейчас вдруг ;)) дошло почему большинство юзеров пользут паскаль. Его ж по-старинке преподают в институтах!
Я ж тоже когда-то прогуливал проходил его :)

До меня (сейчас вдруг ;)) дошло почему большинство юзеров пользут паскаль. Его ж по-старинке преподают в институтах!

Угу. После него Дельфы осваивать намного проще.

Кажется, я что-то делаю не так. Паскаль "осваивал" в школе, после самостоятельного баловства с Дельфями. В универе преподают Си.

В универе преподают Си.

У нас и С++ и Дельфы.

Хм, его в каком-то определённом месте запускать надо? У меня, увы, паскаль по-прежнему рюсскый не понимай.  :(

Просто распаковать в папку с паскалем и запустить батник, он уже сам паскаль запустит. Правда если экзешник паскаля называется не turbo.exe, то надо батник поправить, поставить нужное имя файла.

Кажется, я что-то делаю не так. Паскаль "осваивал" в школе, после самостоятельного баловства с Дельфями. В универе преподают Си.

Ну кому как повезло :)

Я тоже в школе паскаль изучал, а вот многие мои знакомые в школе максимум QBasic проходили, а у некоторых вообще все уроки информатики ограничивались MS Word и paint.

А нам, как оказалось, препадают вообще всё. И C, и Pascal, и PHP, и ASM... И всё в разных курсах.

Я вообще начинал с QBasic'a, в школе начался Pascal. Попутно записался на курсы по Delphi. Успешно их завершив, начал ковырятся самостоятельно. Закончив увлекаться Delphi, углубился в Pascal (ещё более высокоуровневое программирование), начал совмещать. Потом вообще самостоятельно с нуля пошёл в PHP. И вот, что я скажу. Не важно на каком языке писать, главное правильно мыслить. :)

Акси, а тема КНП на что? ;)

А нам, как оказалось, препадают вообще всё. И C, и Pascal, и PHP, и ASM... И всё в разных курсах.

У нас вроде тоже всякое будет, я про настоящий момент говорил.

Не важно на каком языке писать, главное правильно мыслить.

Это точно!
Только дело в том, что паскаль/дельфи в некотором роде мешают этому. В то время как история всех языков движется в направлении универсализации, абстракции, лучшему восприятию на крайняк - дельфя стоит в стороне. Неправильные акценты (классический пример - определение переменных) могут формировать неправильную логику мышления.

офф:
О! я достиг баланса духа: карма=известность :)))

Как раз строгая типизация помогает сформулировать задачу таким образом, чтобы потом не возникало ошибок, связанных с неправильным проектированием. А обилие текста в Pascal'е мне не мешает. Мне так читать гораздо проще. :)

Правда предопределённость переменных порой мешает, да...

О! я достиг баланса духа: карма=известность ))

Подпортил малину  :evil:

Почти уровнял :p

Правда предопределённость переменных порой мешает, да...

Не, тут я про другое, про синтаксис. В си "int x" - делается упор на тип, в паскале "x:int" - на имя. По сути - мелочь, но из таких неприятных мелочей и состоит весь паскаль.
 
Если ты имел в виду инициализацию, т.е. заданные нулевые значения переменных, то это не свойство языка. Она (вроде бы) отключается в опциях компиллятора.

Правда если экзешник паскаля называется не turbo.exe, то надо батник поправить, поставить нужное имя файла.

Понял, спасибо. :yes:

а у некоторых вообще все уроки информатики ограничивались MS Word и paint.

Я в их числе. :) Даже этих уроков почти не было.

Я в их числе.  Даже этих уроков почти не было.

А к информатике, это какое отношение имеет?

А к информатике, это какое отношение имеет?

Когда я учился в школе, к информатике относили всё, что хоть какое-то отношение имело к компьютеру. :)

Когда я учился в школе, к информатике относили всё, что хоть какое-то отношение имело к компьютеру.

Когда я учился в школе, не у нас, мы это проскочили, но классом ниже начали преподавать информатику, без компьютеров. :lol:

Цитата: Акситонъ от 21.03.2009 11:30:48

Когда я учился в школе, к информатике относили всё, что хоть какое-то отношение имело к компьютеру.

Когда я учился в школе, не у нас, мы это проскочили, но классом ниже начали преподавать информатику, без компьютеров. :lol:

Логика и её законы, это преподавали, не? В ЕГЭ по информатике сейчас такого "добра" полным-полно :)
Ну ещё, может быть, системы счисления практиковали там у вас...

Логика и её законы, это преподавали, не?

Без понятия. Я ж говорю, классом ниже, мы проскочили. :)

А вот у нас на уроках информатики учат форматировать дискеты...

А вот у нас на уроках информатики учат форматировать дискеты...

Серьёзно? :eek: Они ж используются только в ускоспециализированных устройствах.

А вот у нас на уроках информатики учат форматировать дискеты...

Оу... А мы в Вакрафт учились играть. :p

А вот у нас на уроках информатики учат форматировать дискеты...

Лобзиком?

Как сделать, чтобы при вводе какого поля в базу данных, пользователь мог ввести только буквы? Например, чтобы вместо фамилии нельзя было цифры или спецсимволы записать?

Добавлено:
И как сделать, чтобы новый файл базы данных создавался не с заданным названием, а название вводилось с клавиатуры?

Базы данных в Паскале? А что за модуль используется?

В любом случае, придётся проверять ручками, удовлетворяет ли тебя введённое значение. Особого ("красивого и простого") на ограничение текущего ввода нет.

Axiton
У тебя (ща буду умничать ;)) неправильная постановка вопроса. Ввод данных в бд производится с помощью неких программных компонентов (напр. DBGrid, cxGrid), которые и определяют возможности обработки вводимых значений. Т.е. все зависит от того какой у тебя компонент и его версия. Без этого ничего сказать нельзя.
 
Про файл бд - тож самое. Все зависит только от типа бд (interbase, paradox, mssql, oracle...) который ты умолчал :)
 
 

А что за модуль используется?

Стандартные, crt и graph.

Особого ("красивого и простого") на ограничение текущего ввода нет.

А как сделать это "некрасиво"? :)

Про файл бд - тож самое. Все зависит только от типа бд (interbase, paradox, mssql, oracle...) который ты умолчал

Тема паскалю посвящена. :shy: Обычный файл данных, *.dat.

Ввод данных в бд производится с помощью неких программных компонентов

Единственный программный компонент - написанный на паскале файл exe. :) Указанные в скобках слова мне ни о чём не говорят. :(

Да, ты определённо имел ввиду "записи" (record).

А как сделать это "некрасиво"?

М... Как вариант - читаешь строку, введённую пользователем. Затем посимвольно её проверяешь (читай: пробегаешь строку в цикле до конца), входит ли каждый проверяемый символ в тот диапазон, куда входят просто числа. После первого несовпадения - выдаёшь ошибку и "не принимаешь" такой ввод. Если можно принимать знаковое число, то также можешь сделать допущение, что первый знак в строке - минус. Ну и если нужно число с точкой - то поэкспериментируй. Тоже посимвольная проверка. ;)

Падшая шэдова
Спасибо, попробую.

А по поводу ввода пользователем названия файла есть идеи?:)

Читаешь строку, введённую пользователем. Потом просто открываешь файл с таким именем. :)
 
var fname: string;
...
readln (fname);
assign (input, fname);
reset (input);
{так же делаем, когда нужно задать файл вывода... :)}
{при таком способе работы требуется проверять ошибки ввода/вывода, если {$I-}/{$I+} у тебя в конспектах не встречается - обращайся ;) }
...
close (input);

readln (fname); assign (input, fname); reset (input); {так же делаем, когда нужно задать файл вывода... }

Только одно маленькое "но" для файла вывода: вместо reset(input) следует писать rewrite(output).
Хотя... не мне вам объяснять :)

Ну, само собой. :)

Читаешь строку, введённую пользователем. Потом просто открываешь файл с таким именем.

Благодарю. :) :yes: А как сделать, чтобы файл создавался с расширением .dat?

Ну как... Rewrite пытается создать создать файл и именем, которое ты указал. Оно может быть совершенно любым. Хоть "abra.cadabra". Если тебе нужо обязательно, чтобы файл был с расширением "*.dat", то проверь последние 4 символа, чтобы они были ".dat". Если нет - то "допиши" их за пользователя сам.

Axiton
А, ну я тебя понял :) Мы в совсем разных областях.

Падшая шэдова, т.е., как я понял, расширение файла должен пользователь прописывать? :unwit:

Ну типа того. Pascal'ю абсолютно всё равно, какое имя файла ты будешь исользовать. Главное, чтобы он смог его создать или найти.

А нельзя сделать так, чтобы пользователь вводил только название файла, а расширение dat добавлялось автоматически?

Кстати, при переименовании файла расширение надо заново вводить?

Всё, с именем разобрался полностью. Спасибо. :yes:

Как вариант - читаешь строку, введённую пользователем. Затем посимвольно её проверяешь (читай: пробегаешь строку в цикле до конца), входит ли каждый проверяемый символ в тот диапазон, куда входят просто числа.

Можно вот это поподробнее? Как проверить строку посимвольно?

На данный момент ввод ФИО выглядит вот так:

repeat
   writeln;
   writeln('Enter FIO of the architector');
   readln(s.fio);
    if length(s.fio)=0 then
      writeln('FIO is not written');
until length(s.fio)>0;

Как проверить строку посимвольно?

Фором. Если s — строка, то s[i] — i-тый символ. В паскале вроде нумерация с единицы, так что с единицы до длины, но точно уже не помню.

А как потом открыть файл, название которого введено пользователем?

assign(f, fname); ?

Деф здесь (http://srclan.org/forum/index.php?topic=833.msg30827#msg30827) написал. Если с проверкой — воткнуть это под условие соответственно.

zavron_lb
Это, как я понял, создание. Просто там процедура дозаписи в файл, программа может уже и не знать какое имя было введено пользователем при создании файла.

Не, это как раз открытие. А если строку с названием как-то проверяешь, то где-то она у тебя уже записана.

Или я тебя совсем не понимаю. :3

Axiton
Просто создай файл настроек и храни там нужное тебе имя.

Цитата: Остап Блендер от 25.03.2009 04:15:13

А вот у нас на уроках информатики учат форматировать дискеты...

Серьёзно? :eek: Они ж используются только в ускоспециализированных устройствах.
 

Ээээ... Чиво? 0_0
 
 
 Насчет Паскаля в школе - я бы вырывал руки.
В универе - тоже самое.

ИМХО, Qbasic'a для понимания сути программирования хватает за глаза, к тому же там ненужно углубляться в эти идиотские синтаксические тонкости.
Алсо, паскаль-таки скорее жив, чем мертв, в отличии от бейсика.

А вот есть у меня лаба:

Program lab3;
{User enters some value and then program prints all numerics under this value}
var
N : integer;
i : integer;
Code: integer;
userprint : string;
label
1;
begin
1: WriteLn('Enter N value from 0 to 32767');
ReadLn(userprint);
Val(userprint, N, Code);
if Code <> 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;

if N < 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;

for i := N-1 downto 1 do WriteLn(i);

WriteLn('Enter any char and then press Enter to end problem');
ReadLn;
end.

Если вводишь не число или число меньше 0 - приходится вводить снова.
А как сделать так, что бы при вводе, скажем, "00000000009" юзера снова заставляли вводить нормальное число?

Если первый символ в строке ноль, посылать юзера.

Или даже лучше будет вообще все символы проверить, и пропускать только если первый символ от единицы до девяти, а остальные — хотя бы цифры.

Общими усилиями с zavron_lb упростили до:

Program lab3;
uses crt;
var
N,i,code: integer;
userprint : string;
begin
ClrScr;
repeat
WriteLn('Enter N value from 0 to 32767');
ReadLn(userprint);
Val(userprint, N, Code);
until (code=0) and (userprint[1]<>'0') and (N>0);

for i := N-1 downto 1 do WriteLn(i);

WriteLn('Enter any char and then press Enter to end problem');
ReadLn;
end.

Может и пригодится кому, хз.

Ээээ... Чиво? 0_0

А где они ещё используются? В компьютерах они уже не нужны, есть более надёжные и ёмкие девайсы.

А где они ещё используются? В компьютерах они уже не нужны, есть более надёжные и ёмкие девайсы.

Они используются у меня дома как загрузочные =)

Они используются у меня дома как загрузочные =)

Неужели у тебя нет загрузочного СД? Я дискеты на компе давно не юзал.

Неужели у тебя нет загрузочного СД? Я дискеты на компе давно не юзал.

Есть. Но порой и дискеты тоже рулят.
Например, у меня тут сидиром накрылся.
Что мне оставалось делать? =)

Например, у меня тут сидиром накрылся.

Одновременно с хардом? Иначе зачем тебе бы с дискеты грузиться?

Одновременно с хардом?

Одновременно с виндой.

Одновременно с виндой.

И ты устанавливал Винду с дискет??? :eek: :lol:

И ты устанавливал Винду с дискет???

Да еклмн, я её восстанавливал. =)

2Акси.

Assign - ставит в соответствие файловому потоку f файл fname. Только лишь ставит в соответствие и ничего больше.

После этого нужно сделать одну из вещей (лишь одну, всё остальное выдаст ошибку):
а) Reset - ищет файл и открывает его для чтения, ставит курсор чтения в начало файла. Если файл не найден или защищён от чтения - выдаст ошибку.
б) Rewrite - если файл существует, то сотрёт его с диска. После чего создаёт новый файл с этим же названием, открывает его для записи. Если файл невозможно удалить или не возможно создать файл с таким именем - то выдаст ошибку.
в) Append - если файл существует, то открывает файл для записи, при этом курсор записи ставить в конец файла. Если файла не существует, то создаст его, откроет для записи.

Все ошибки храняться в IOResult. Если контроль ошибок отключён ({$I-}), то ошибка не кладёт программу.

Ещё вопросы? :)

Все ошибки храняться в IOResult

Точнее, коды ошибок.
Если IOResult = 0 - ошибок нет.

{$I-}

А я-то думаю, что я ставлю "-" перед $I и не работает?.. >_<

А как вывести строку разных спецсимволов самым экономичным способом?
Писать долго и нудно что-нибудь типа "#205 #205 #205 #205 #205 #205 #205" нельзя, жалуется на слишком длинную строку.
Нажать на ALT и ввести код символа (тогда ведь должен нужный символ напечататься?) тоже не получается. Вместо этого открывается какой-то Windows List...

Что-то не очень понял. Ну да ладно.

#xx - это и есть самый экономичный символ. Жалуется на длинную строку - по пробуй разделить на несколько маленьких. Если много одинаковых символов - выводи циклом.