Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача по pascal > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
Kirill_pascal
1-ая задача:

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

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

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

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

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


Дальше справитесь?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2025 Invision Power Services, Inc.