|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
01.12.2012, 17:05 | #1 (permalink) |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача. Записи Pascal
2. Дана информация о пяти школах. Запись имеет вид: номер школы, год, количество выпускников, число поступивших в ВУЗы. Вывести данные о школе с самым большим отношением числа поступивших к числу выпускников. |
01.12.2012, 17:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Внимательно прочитайте содержимое этих тем Задача на Pascal Pascal. Задача. Помогите Задача в Pascal Pascal ABC, записи, нужен вывод отсортированной строки Задача на Pascal Pascal, ABC, тип записи, нужна помощь |
01.12.2012, 20:13 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Отвечу стандартно: задач на базы данных на основе паскалевских записей у нас рассмотрено море, ищите по слову "record", причем всякие - и про школьников, и про студентов, и про спортсменов, и про автомобили и т.п. Все они строятся по единому шаблону, ничего там сложного нет, а есть большой объем нудной муторной писанины, заниматься которой за Вас, я думаю, желающих не найдется. Так что советую самостоятельно найти и выбрать наиболее близкую задачку и подправить под свои условия.
|
02.12.2012, 18:54 | #3 (permalink) | |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
02.12.2012, 20:09 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Извините за резкость - накипело! Ладно, вот вам листинг для тупого бездумного перекатывания: Код:
const N=5; var School:Array[1..N] of Record Number:Word; Year:Word; Graduated:Word; Matriculated:Word; end; i,i0:integer; Rate:Real; Begin Rate:=0; For i:=1 to N do With School[i] do begin Writeln(i,' school'); Write('Number: '); Readln(Number); Write('Year: '); Readln(Year) ; Write('Graduated: '); Readln(Graduated); Write('Matriculated: '); Readln(Matriculated); Writeln; If Matriculated/Graduated>Rate then begin i0:=i; Rate:=Matriculated/Graduated; end; end; Writeln('Best school:'); With School[i0] do begin Writeln('Number: ',Number); Writeln('Year: ',Year); Writeln('Graduated: ',Graduated); Writeln('Matriculated: ',Matriculated); end; readln; End. |
|
02.12.2012, 21:24 | #5 (permalink) |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо =) вы правы, но на 99% я всетаки пытался что-то сделать... переделывал программку, но запутался .....еще раз спасибо ! Вы никогда не подводите !!
P/S если вам не сложно посоветуйте хороший самоучитель! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.12.2012, 21:50 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|