Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 01.12.2012, 17:05   #1 (permalink)
TpaXmopucm
Member
 
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача. Записи Pascal

Помогите пожалуйста ! Решите задачу !
2.
Дана информация о пяти школах. Запись имеет вид: номер школы, год, количество
выпускников, число поступивших в ВУЗы. Вывести данные о школе с самым большим
отношением числа поступивших к числу выпускников.
TpaXmopucm вне форума   Ответить с цитированием

Старый 01.12.2012, 17:05
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Внимательно прочитайте содержимое этих тем

Задача на Pascal
Pascal. Задача. Помогите
Задача в Pascal
Pascal ABC, записи, нужен вывод отсортированной строки
Задача на Pascal
Pascal, ABC, тип записи, нужна помощь

Старый 01.12.2012, 20:13   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Отвечу стандартно: задач на базы данных на основе паскалевских записей у нас рассмотрено море, ищите по слову "record", причем всякие - и про школьников, и про студентов, и про спортсменов, и про автомобили и т.п. Все они строятся по единому шаблону, ничего там сложного нет, а есть большой объем нудной муторной писанины, заниматься которой за Вас, я думаю, желающих не найдется. Так что советую самостоятельно найти и выбрать наиболее близкую задачку и подправить под свои условия.
Vladimir_S вне форума   Ответить с цитированием
Старый 02.12.2012, 18:54   #3 (permalink)
TpaXmopucm
Member
 
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Отвечу стандартно: задач на базы данных на основе паскалевских записей у нас рассмотрено море, ищите по слову "record", причем всякие - и про школьников, и про студентов, и про спортсменов, и про автомобили и т.п. Все они строятся по единому шаблону, ничего там сложного нет, а есть большой объем нудной муторной писанины, заниматься которой за Вас, я думаю, желающих не найдется. Так что советую самостоятельно найти и выбрать наиболее близкую задачку и подправить под свои условия.
пытался разобраться переделывая другой код , но ничего не получается плиз помогите пожалуйста .... завтра ответить нужно!
TpaXmopucm вне форума   Ответить с цитированием
Старый 02.12.2012, 20:09   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от TpaXmopucm Посмотреть сообщение
пытался разобраться переделывая другой код , но ничего не получается плиз помогите пожалуйста .... завтра ответить нужно!
Ну Вы и зануда, сударь! Ведь вот ну только что проходила аналогичная задачка: Помогите решить задачу Pascal , переделки - плёвые, ну ничего не желаем делать!!! Всё давайте за меня, а я пошел. И не врите, что Вы там что-то пытались, ничего Вы не пытались, иначе было бы что выложить и показать. Лень, наглость и полная безответственность. Прежде всего - перед своим же будущим.
Извините за резкость - накипело!
Ладно, вот вам листинг для тупого бездумного перекатывания:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 02.12.2012, 21:24   #5 (permalink)
TpaXmopucm
Member
 
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо =) вы правы, но на 99% я всетаки пытался что-то сделать... переделывал программку, но запутался .....еще раз спасибо ! Вы никогда не подводите !!
P/S если вам не сложно посоветуйте хороший самоучитель!
TpaXmopucm вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 02.12.2012, 21:50   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от TpaXmopucm Посмотреть сообщение
P/S если вам не сложно посоветуйте хороший самоучитель!
Лучший самоучитель - это практика, практика и еще раз практика! Ставьте себе задачки, пишите программы и ОБЯЗАТЕЛЬНО доводите до ума. Очень скоро и навык появится, и сложности уйдут в небытие. Удачи!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:21.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.