Пожалуйста помогите их написать поскольку я самоучка и меня никто не учит пытаюся сам написать пару прог столкнулся вот с такими проблемами и не знаю в чем ошибка помогите пожалуйста, а задания мне друг дал мы с ним вместе над ними кумекаем и у меня там были ошибк они не работали не знаю как их переделать если кто знает как их написать напишите пожалуйста вот несколько из них:

13) Опишите , используя структуру данных запись , вступительных экзаменов. Абитуриенты сдавали три экзамена для поступления необходимо набрать 12 баллов . Определить списки абитуриентов , зачисленных в институт , количество несдавших экзамены. списки абитуриентов сдавших все на 5


1) опишите, используя структуру данных запись , телефонную кнтгу . составить программу выдающую список абонентов , имеющих телефонный номер начинаю щийся на 331

*никак не могу заставить прогу читать именно первые три цифры*

6)опишите используя структуру данных запись записную книжку, составить прогу выдающую список друзей , кому в этом году исполняется 25 лет. (фамилия и инициалы год рождения дата рождения месяц рождения)

*не получается составить поиск по 25 и заставить её считать года*


5) Описать используя структуру данных запись школьный класс, (фио, дата рождения , месяц рождения, год рождения)
Составить программу выдающую список учеников рожденных в мае

*аналогично*

11) Описать используя структуру данных запись , таблицу соревнований (название команды, количество набраных очков).Выбрать команду занявшую первое место . Упорядочить список команд , в зависимости от занятого места.

*какие-то проблемы с упорядочинием*

http://forum.vingrad.ru/index.php?showtopic=23697

Сообщение от
4.6.2004, 18:20

Странно, не правда ли?

Это сообщение отредактировал(а) Pakshin A. S. - 12.6.2004, 10:57

Меня там закрыли не знаю почему, пришлось создавать новую тему, чтобы тут-же её не закрыли пришлось написать начало сообщения по другому, кстати ты мне очень помог, спасибо тебе, ты очень мне помог и с последними прогами тоже я понял в чем была моя ошибка, но там есть и не решенные, которые я пока не сделал , а писать все заново очень долго, так что вот так.
Добавлено @ 18:09
Классный сайт, ты действительно профи правильно делаешь, что помогаешь новичкам наш препод нас совсем не учит приходится все делать самим и если что спросить не у кого, твои дипломы впечатляют, а проги ты пишешь полезные.

Спасибо за похвалу.

Про преподов: я - почти самоучка (книги, форум, изобретательность, научный тык и был один студент, который привел мои беспорядочные знания в порядок), учитель в школе сам у меня брал "уроки"...



Как закрыли???

А вот так даже ничего не объяснили

На 5 пункт отвечу
Результат будем заноситьв таблицу StringGrid1.
Считаем, что нужный файл с данными уже есть.
Если нужно показать как скажи я отвечу.

Код

.......................... type Uch = record  FIO:string[25];  Day:ShortInt;  Month:string[12] end; ........................ Procedure ......(); var f: file of Uch; zap: Uch; a: integer; begin AssignFile(f,<файл с данными>); Reset(f); a:=o; for i:= 1 to filesize(f) do  begin   Read(f,zap);   if zap.Month = 'май' then StringGrid1.Cells[1,a+1]:=zap.Month;  end;

Это сообщение отредактировал(а) Jey_k - 14.6.2004, 20:28

Цитата

1) опишите, используя структуру данных запись , телефонную кнтгу . составить программу выдающую список абонентов , имеющих телефонный номер начинаю щийся на 331 *никак не могу заставить прогу читать именно первые три цифры*

Циклом листаешь все записи и вытаскиваешь с помощью финкции Copy() первые 3 цифры
if Copy($telefon, 1, 3) = '331' then //делай что-нить!!!

Цитата

6)опишите используя структуру данных запись записную книжку, составить прогу выдающую список друзей , кому в этом году исполняется 25 лет. (фамилия и инициалы год рождения дата рождения месяц рождения) *не получается составить поиск по 25 и заставить её считать года*

Ламерство, чему тя учили????
type students = record
name:string;
year:Integer;
end;
var S:Student;
//ввод сам сделай
for I: = 1 to 10 do
if (2004 - S.year) = 25 then WriteLn(S.Name, ' 25 лет');
Вот таким макаром!!!
Разберись с записями и у тя все получится, тут никто делать за тебя все не будет, а вот советом помогут!!!!

Код

type students = record          name:string;          year:Integer;        end; var S:array[1..10] of Student; {структура}      i:integer;      n:string;  {имя}      y:integer;  {возраст} begin {ввод } for i:=1 to 10 do {если в структуре всего 10 записей}  begin    Writeln('Введите имя студента: '); readln(n);    Writeln('Введите возраст: '); readln(y);    s[i].name:=n;    s[i].year:=y;  end; {проверка на 25 лет} for I:=1 to 10 do  if (2004-S[i].year)=25 then WriteLn(S.Name, ' 25 лет'); readln; end.

Вот такие пироги. Все вроде разжевал, осталось только проглотить!

MacTep Согласен, посмотрите, чуть выше )))
Просто очень спешил ))
С Уважением...

Огромное всем спасибо, очень помогли!!!

ОФФТОП: Sorry, конечно, но пораскинуть мозгами пра минут, почитать учебник (для начинающих) и эти задачки - фигня. Надо тренировать свои мозги, а не сразу сдаваться и звать на помощь... Вот сидели бы здесь "плохие" люди и не написали такие подробные решения: что тогда?

Ну мы же здесь вовсе не плохие очкастые дядьки с цифрами в глазах

М	Тема закрыта