![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Ton |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Задача на файлы. Дано предложение. Каждое слово оканчивающееся на 'a' переписать в творительном падеже. Результат вывести на экран.( написать подпрограммой с использованием процедур ввода и вывода).
uses crt; var s, wrd : string; i : Integer; begin Assign (input, 'input.txt'); Reset (input); Assign (output, 'output.txt'); Rewrite (output); while not EoF do begin ReadLn (s); s := s + ' '; wrd := ''; for i := 1 to Length(s) do if s[i] = ' ' then begin if wrd[Length(wrd)] = 'а' then begin Delete (wrd, Length(wrd)-1, 1); WriteLn (wrd + 'ой') end; wrd := '' end else wrd := wrd + s[i] end end. !!!СДЕЛАЛ БЕЗ ПОДПРОГРАММ, ПОМОГИТЕ СДЕЛАТЬ С ПОДПРОГРАММАМИ ВОТ ПРИМЕР : uses crt; const vid: array[1..3] of integer = (100, 200, 300); n = 3; type zap = record ; fio: string[10]; rez: byte; kolvo: array[1..3] of integer; st: integer; end; mas = array[1..n] of zap; var a: mas; procedure vvod(var a: mas); var i, j, fio, st, kolvo: byte; begin for i := 1 to n do begin writeln('Введите данные', i, 'zap'); with a[i] do begin write('Fio '); readln(fio); write('Введите количество акций первого вида '); readln(kolvo[1]); write('Введите количество акций второго вида '); readln(kolvo[2]); write('Введите количество акций третьего вида '); readln(kolvo[3]); st := 0; for j := 1 to 3 do st := st + vid[j] * kolvo[i]; end; end; end; procedure print(a: mas); var i: byte; begin for i := 1 to n do writeln(a[i].fio: 10, a[i].st: 5); end; procedure Max(a: mas); var max: real; i: integer; begin max := a[1].st; for i := 2 to n do if a[i].st > max then max := a[i].st; for i := 1 to n do if a[i].st = max then writeln(a[i].fio, a[i].st: 8); readln; end; begin clrscr; vvod(a); print(a); max(a); readln end. Сообщение отредактировано: Ton - 12.03.2013 15:01 |
![]() ![]() |
![]() |
Текстовая версия | 31.07.2025 23:01 |