решение задач за деньги Опции

[SpEctAtOr]

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-]

Могу сделать <...> вырезано модератором.

Тут не доска объявлений, а автору было бы не плохо указать цену.

Сообщение отредактировано: klem4 - 13.12.2005 23:12