Массивы и текстовые Файлы Опции

[Angelus]

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

1)

(Условие)
Разработать программу обработки заданного массива. Программа должна включать ввод исходного массива, его обработку и вывод результатов.
(Задача)
Переписать каждый третий элемент массива К(15) в К1(5).

2)
(Условие)
В программе обработать исходный текстовый файл в соответствии с указанным вариантом. Если задание предполагает изменение текста, то получить новый файл, а затем вывести его. Исходный текстовый файл заготовить при помощи любого текстового редактора.
(Задача)
Подсчитать количество строк, не содержащих заданный символ.


3)
(Условие)
Требуется вначале заготовить файл комбинированного типа отдельной программой (количество записей в файле должно быть не менее 10), а затем выполнить обработку этого файла в соответствии с заданием.
Составить программу обработки сведений о студентах своей группы. Данные находятся в файле. Последовательность данных следующая:
фамилия - 20 символов,
имя - 15 символов,
отчество - 20 символов,
число, месяц, год рождения - целые,
оценки по 4 предметам сессии – целый массив (последовательность экзаменов: ЛА и АГ, мат. анализ, физика, ПТЦА);
количество неудовлетворительных оценок, полученных студентом.
В программе предусмотреть вывод содержимого исходного файла для тех полей, которые представляют интерес для выполнения конкретного задания.
(Задача)
Выбор родившихся в заданном году.







Не дайте погибнуть :molitva:

Сообщение отредактировано: Angelus - 3.09.2005 14:44

[klem4]

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

для первого задания :

i:=3;
while(i<=15) do begin
    k1[i div 3]:=k[i];
    inc(i,3);
end;

Для второго читаешь строку S из файла , а затем провераешь, есть ли в ней заданный символ CH с помощью ф-и pos

if pos(ch, s) = 0 then // символ есть, увеличиваем счетчик на 1
  inc(count);

:no: Наоборот, смотри что требуется:

Подсчитать количество строк, не содержащих заданный символ.

Volvo

исправил ;)

klem4

ну а 3-е -- стандартная задача на записи, поищи по форуму.

зы на все дополнительные впросы может ответить наш FAQ, ну а если ответов не найдешь, то спрашивай ...

Сообщение отредактировано: klem4 - 4.09.2005 10:30