Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Задача по pascal

Автор: Kirill_pascal 9.12.2011, 17:08

1-ая задача:

Ввести анкету студента как одно единое данное. Анкета включает в себя следующие поля:
- фамилия студента - 10 симв.
- пол студента - 1 симв.
- дата рождения студента - 10 симв. (В виде ДД.ММ.ГГГГ)
Одно поле анкеты отделяется от другого одним пробелом.
Распечатать введенный данные в следующей таблице:

http://s017.radikal.ru/i429/1112/0e/c8a5f9cf6635.jpg

2-ая задача:
Ввести три строковых именных, содержащие календарные даты в виде ГГГГ.ММ.ЧЧ. Выбрать и распечатать наиболее раннюю дату.

Очень прошу помочь мне с этими заданиями, так как сам я не в зуб ногой в этой теме sad.gif Заранее спасибо!

Автор: Julia 10.12.2011, 13:33

С типом запись знакомы?

Автор: Kirill_pascal 12.12.2011, 15:12

ну да, а что?

Автор: Julia 13.12.2011, 14:15

2. Пусть в переменной s хранится ваша дата. Разберем ее на составляющие.
PosDot:=Pos('.',s); {Ищем позицию точки в строке}
YearStr:=Copy(s,1,PosDot-1); {выделяем подстроку с первого символа в количестве PosDot-1 символ}
val(YearStr,Year,error); {преобразовываем стоку в число}
delete(s,1,PosDot); {удаляем обработанную подстроку вместе с точкой}

Аналогично выделяется месяц, а день - это то, что останется.


Дальше справитесь?

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)