Страница 1 из 1

работа со строками и записями

Добавлено: 16 дек 2009, 00:14
eXTrEMe888
Привет народ!!очень нужна ваша помощь в составлении кода программы (точнее основных частей) по таким вопросам (у меня не оч получается пока что то):
Работа со строками:
1.Удалить из заданного текста все пробелы, подсчитать длину получившегося текста и число удаленных пробелов.
Работа с записями:
Составить список, содержащий сведения об N студентах. Для каждого учащегося указать:
- фамилия;
- ИНН (идентификационный номер налогоплательщика);
- дата выдачи Свидетельства о постановке на учет в налоговом органе;
- дата рождения;
- год поступления в университет;
- курс;
- группа;
- количество семестров обучения;
- оценки каждой сессии по всем семестрам.
Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая обеспечивает ввод исходных данных, обработку и вывод на экран информации

2.Вывести на экран оценки за последнюю сессию всех студентов, фамилии которых начинаются на буквы Б, В, Г. N = 7.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!! =)))

Re: работа со строками и записями

Добавлено: 16 дек 2009, 06:05
BHy4ok
1. while pos(' ',S)>0 do begin delete(s,pos(' ',S),1);
Length(S);
Ищите подобные задачи на форуме, уже обсуждалось.

Re: работа со строками и записями

Добавлено: 16 дек 2009, 10:38
Хыиуду
&quot писал(а):1. while pos(' ',S)>0 do begin delete(s,pos(' ',S),1);
Length(S);
Тогда уж
prev_len:=length(s);
while pos(' ',S)>0 do begin delete(s,pos(' ',S),1);
spaces_deleted:=prev_len-length(s);

Re: работа со строками и записями

Добавлено: 17 дек 2009, 00:35
XTen
Пиши, решу
ICQ: 410-691-984