|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2011, 10:04 | #1 |
Форумчанин
Регистрация: 05.05.2007
Сообщений: 236
|
три задачи
привет всем!...
я понемаю то что я по статусу не могу просить, но я забыл паскаль. помогите решить три задачи: 1) Имеется текстовый файл. Переписать в другой файл его строки, оканчивающиеся заданным словом. 2) Создайте файл Каталог книг. По заданному значению года издания выведите на печать сведения о произведениях, изданных в указанном году. 3) Реализовать в виде модуля набор подпрограмм для выполнения следующих действий над матрицами: 1) нахождение суммы элементов каждой строки данной матрицы; 2) нахождение наибольшего элемента главной диагонали; 3) вывод матрицы в общепринятом виде. Используя этот модуль решить следующую задачу: найти максимальное значение среди сумм элементов каждой строки заданной матрицы. Найти наибольший элемент главной диагонали и заменить его на 0. Полученную матрицу вывести в общепринятом виде. зарание спасибо! |
09.06.2011, 14:36 | #2 |
Пользователь
Регистрация: 01.02.2009
Сообщений: 52
|
1 задача, остальные за вознаграждение))
program temp; uses crt; var f1,f2: text; w,s: string; l1,l2,bw,bs,i: integer; t: boolean; begin CLRSCR; writeln('Enter the word: '); readln(w); l1 := length(w); assign(f2,'text2.txt'); assign(f1,'text1.txt'); reset(f1); while not eof(f1) do begin readln(f1,s); l2 := length(s); bw := l1; bs := l2; for i := 1 to l1 do if w[bw] = s[bs] then begin bw := bw-1; bs := bs-1; t := true; end else t := false; if t = true then begin append(f2); writeln(f2,s); end; end; close(f1); close(f2); readln; end.
Машины должны работать! Люди должны думать!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Три задачи на Паскале | TheVenom | Помощь студентам | 2 | 19.01.2011 20:38 |
Три задачи | abarmot_1 | Помощь студентам | 6 | 16.11.2010 09:13 |
три задачи (С++) | VHomer | Помощь студентам | 5 | 10.11.2008 15:22 |
Paslal.три задачи. | ромка) | Фриланс | 4 | 28.05.2008 16:29 |