Помогите бедному студенту решить 5 задач (Turbo Pascal 7.0).

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Помогите бедному студенту решить 5 задач (Turbo Pascal 7.0)., 5 задач

Опции

Ветас	19.12.2007 23:07 Сообщение #1
Гость	1)Type freal=file of real.Программа выводит на экран все элементы первого файла типа freal,меньше наименьшего элемента второго файла. 2)Дано:x,z:set of 7..24.Присвоить переменной х множество всех чисел,кратных 2,а у переменной z множество всех действительных чисел. 3)Преобразовать исходную последовательность удаливиз нее все нулевые элементы. 4)Дано:type vrema=record cas:0..23;min,sec:0..59;end;var t1,t2:vrema.Программа вводит переменную t1 и присваивает переменной t2 значение на 1с больше чем у первой. 5)Дано:Var T:array[1..6,1..8] of integer;D array [1..6] of boolean.Если в матрице Т строка К симметрична то присвоить К-му элементу логическ. массива D значение true иначе false.[font=Times New Roman]