Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal] Сортировка фамилий


Автор: BadJungo 26.10.2006, 15:12
Только не могли бы вы не только написать код проги, но и попытаться объяснить мне как написать такую прогу... Просто я не был на занятии где объясняли этут тему и никак не могу в ней разобраться.

Задание:

Даны 2 текста. Один из фамилий, а другой из соответствующих фамилиям дат рождения. Сформировать новый текст, в котором каждая строка содержит фамилию и дату рождения.

Заранее благодарю...

Автор: anwe 28.10.2006, 19:31
А не лучше ли спросить у своих товарищей по группе? Ведь обучение эффективнее, если проводится с глазу на глаз.
А если на то пошло, то уточни задание: в чем даны эти 2 текста, в каком виде надо вывести новый текст и куда - в файл, в Мемо, grid, ListView или еще куда?

Автор: Alexeis 28.10.2006, 19:57
anwe,  smile  это же не делфи а паскаль.
Код

Uses crt;//подключаем модуль CRT

const
   m : array[1..4] of String = ('Vasea', 'Roma', 'Jenea', 'Shuric');
   d : array[1..4] of String = ('12.07.84', '25.01.83', '13.09.85', '17.11.83');

var
  i : integer;
  r : array[1..4] of String;//строка для результата

begin
  clrscr;//чистим экран
  for i := 1 to 4
  do
    r[i] := m[i] + ' ' + d[i]; //объединение строк

  for i := 1 to 4
  do
    writeln(r[i]); //Вывод строк
  readkey; //Ждем нажатие клавиши для выхода
end.

Автор: anwe 28.10.2006, 20:20
Цитата
это же не делфи а паскаль.

Прошу прощения. Дал маху!  smile 

Автор: BadJungo 29.10.2006, 12:01
Даже не думал что это так просто)))
Пойду  smile ) Всего-то надо было параметры для массивов задать))

Добавлено @ 12:04 
А если честно, то большое вам спасибо...
Только не могли бы вы пояснить что именно делают эти 2 строки? Ведь мне надо научиться делать такие проги, на экзамене-то я не смогу к вам обратиться  smile 

m : array[1..4] of String = ('Vasea', 'Roma', 'Jenea', 'Shuric');
d : array[1..4] of String = ('12.07.84', '25.01.83', '13.09.85', '17.11.83');


Автор: likehood 29.10.2006, 13:13
Цитата(BadJungo @  29.10.2006,  13:01 Найти цитируемый пост)
Только не могли бы вы пояснить что именно делают эти 2 строки?

Они создают два массива, каждый из которых содержит по 4 строки, причем этим строкам тут же присваиваются начальные значения,
которые перечисляются в скобках через запятую.

Автор: anwe 29.10.2006, 13:14
Цитата
Ведь мне надо научиться делать такие проги, на экзамене-то я не смогу к вам обратиться

А что, возьми ноутбук, на экзамене выйти по беспроводной связи в инет на форум, пиши сюда свою задачу, жди ответа.  smile Это лирическое отступление.
По сути. Эти две срочки - этот константы. Видишь объявление секции констант const?
m и d - это имена двух массивов. Почему имеено массивов? - Потому что они объявлены как array. В квадратных скобках указаны их размерности. Так по правилам в паскале показывается размерность - через две точки. Допустим массив размерностью 20 будет объявлен так: array[1..20].
Далее идет указание массив каких элементов, вернее каких типов данных он. В данном примере оба массива строковых данных. Если бы это было объявление переменных в секции var, то на этом бы все и закончилось. Но здесь это постоянные, то есть массивы содержат неизменные на протяжении программы данные. Они объявляются через знак =, а уже в круглых скобках указаны конкретные значения каждого элемента массива. И заметь, если это строки, то они обрамляются кавычками, сами значения отделены друг от друга запятыми.
Ну, я думаю, что не надо объяснять что такое 'Vasea' и '12.07.84'?  smile 

Не успел!!

Автор: BadJungo 29.10.2006, 13:22
Ну ладно, спасибо вам, правда проверить не могу прогу, она с Symantec'ом конфликтует что-то... Хотя я его удалил вроде!
Тогда если можно вопрос не по теме:
У кого нить есть какая-нибудь справочная литература(или ссылка на неё) по работе с модулями, а-то я тут поискал и не нашел...

Автор: likehood 29.10.2006, 13:32
Цитата(BadJungo @  29.10.2006,  14:22 Найти цитируемый пост)
Ну ладно, спасибо вам, правда проверить не могу прогу, она с Symantec'ом конфликтует что-то

Да alexeis1 нам тут злобный вирус написал, а мы и незаметили. smile 
Цитата(BadJungo @  29.10.2006,  14:22 Найти цитируемый пост)
У кого нить есть какая-нибудь справочная литература(или ссылка на неё) по работе с модулями

Пойдет почти любая литература по Delphi.

Автор: Alexeis 29.10.2006, 13:41
http://forum.vingrad.ru/index.php?showtopic=41311

Автор: BadJungo 29.10.2006, 13:42
Сорри за ошибку... Не прога конфликтует, а паскаль!

Автор: BadJungo 29.10.2006, 14:32
Спасибо всем!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)