![]() |
Начальные контакты ТОЛЬКО через личку!!
![]() ![]() |
![]() |
SpEctAtOr |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Репутация: ![]() ![]() ![]() |
1. Дан текст из слов, разделенных произвольным числом пробелов. Определить число слов, начинающихся на ту же букву, что и третье слово.
2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные. 3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения* Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD. 1. Дан текст из слов, разделенных произвольным числом пробелов. Определить число слов, начинающихся на ту же букву, что и третье слово. 2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные. 3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения* Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD. Код Program zad; uses crt; type facts=record fam:string; name:string; otchestvo:string; birthday:integer;{god, mesjac, deni rojdenija} end; const n=3; var spludej:array[1..n] of facts; person:integer; i:integer; Begin clrscr; for i:=1 to n do begin writeln('vvedite dannie o ',i,' 4eloBeke'); writeln('Familija '); readln(spludej[i].fam); writeln('Imja '); readln(spludej[i].name); writeln('ot4estBo '); readln(spludej[i].otchestvo); writeln('god, mesjac, deni rojdenija '); readln(spludej[i].birthday); end; clrscr; writeln('vvedite god, mesjac, deni rojdenija 4eloBeka'); readln(person); clrscr; for i:=1 to n do if spludej[i].birthday=person then writeln(spludej[i].fam) end. необходима дороботка(а именно :алфавитный порядок и форма); 4. Дана таблица по форме: *ФИО*отметки о посещении 10-ти занятий (0-пропустил, 1-присутствовал)*оценки задач* Сформировать таблицу: *ФИО*количество пропусков*средний балл*количество задач*зачёт(незачёт). Зачёт ставится студентам, пропустившим не более 5 занятий, сделавших не менее 8 задач, в том числе №9 и №10, и имеющих не менее 4-х оценок "4" и "5". Использовать тип RECORD. (это еще не все задачи) |
-Anton- |
![]()
Сообщение
#2
|
Гость ![]() |
Могу сделать <...> вырезано модератором.
Тут не доска объявлений, а автору было бы не плохо указать цену. Сообщение отредактировано: klem4 - 13.12.2005 19:12 |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2024 10:09 |