Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 01.11.2011, 16:01   #1
mrRenTgeN
Новичок
Джуниор
 
Регистрация: 01.11.2011
Сообщений: 1
Восклицание обработкой записей

дана задача в которой сказано что нужно по результатам сессии составить программу определения среднего балла каждой группы на курсе и занимающего ею места по числу отличников. принять на курсе три группы с количеством студентов в каждой группе 3,4,5 человек. ведомость содержит данные по одному предмету.


Код:
        uses crt;
          type student=record index:string;
               ysp:array[1..5] of byte;
          end;
        var
          f:file of student;
          a:student;
          j,i,n:byte;
begin
        clrscr;
        assign (f,'d:\student.txt');
        rewrite (f);
        n:=3;
        for i:=1 to 3 do begin
           writeln (' vvedite gruppy');
           readln (a.index[i]);
           writeln (' vvedite ocenki ekzamenu:');
            for j:=1 to n do
            readln (a.ysp[i]);
            write (f,a);
            n:=n+1
        end;
        close(f);
end.
я вот вроде как одну часть проги сделал.. ввод данных а вот вывод нихренна не получается помогите пожалуйста
mrRenTgeN вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа в ТР с обработкой матриц Ирина FAT Помощь студентам 3 11.04.2011 18:17
работа в ТР с обработкой матриц Ирина FAT Помощь студентам 0 11.04.2011 17:26
Проблема с обработкой хтмл gufon Общие вопросы Delphi 13 28.03.2011 11:44
Помогите с обработкой изображений Dude_first Мультимедиа в Delphi 3 31.08.2007 16:54