Задача В Pascal

Тема в разделе "Pascal and Delphi", создана пользователем vovkaa, 13 ноя 2012.

  1. vovkaa

    vovkaa Гость

    это про студентов, получивших в сумме по трем экзаменам 14 баллов, а мне надо
    Средний бал сдачи студентами сессии, но что-то у меня не выходит, помогите пожалуйста.
    Свою программу могу скинуть только позже, а то осталась в универе.
    Ещё раз прошу помогите, заранее спасибо, если что то мой ид в контакте: http://vk.com/vovka__a

    Код (Delphi):
    PROGRAM z7;
    TYPE st=RECORD           
    fam:STRING;          
    godr:INTEGER;        
    otm:ARRAY[1..3] OF INTEGER;
    prop:INTEGER;        
    END;
    VAR gr:ARRAY[1..5] OF st;    
    i,j,ind: INTEGER;
    BEGIN
    WRITELN(‘Введите информацию о студентах’);
    FOR i:=1 TO 5 DO
    BEGIN
    READ(gr[i].fam);
    READ(gr[i].godr);
    FOR j:=1 TO 3 DO READ(gr[i].otm[j]);
    READLN(gr[i].prop);
    END;
    ind:=0;
    FOR i:=1 TO 5 DO
    IF (gr[i].otm[1]+gr[i].otm[2]+gr[i].otm[3])=14 THEN
    BEGIN
    IF md=0 THEN
    BEGIN
    WRITELN(‘Spisok studentiv, poluchivshikh’);
    WRITELN(14 ballov v sessiyou’);
    END;
    WRITELN(gr[i].fam);
    ind:=1;
    END;
    IF ind=0 THEN
    WRITELN(‘Studenti, polychivchih 4 ballov y sessiyou’);
    END.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код (Delphi):
    PROGRAM z7;
    //читаете количество оценок, предметов и информацию по студентам.


    FOR i:=1 TO CountStudent DO
    begin
    FOR j:=1 TO CountMark DO
    begin
    //при чтении очередной оценки для студента - суммируешь
    READ(gr[i].otm[j]);
    gr[i].sum:=gr[i].sum+gr[i].otm[j];
    end;
    gr[i].middle= sum/CountMark
    end;

    //выводишь
     
  3. vovkaa

    vovkaa Гость

    спасибо
     
Загрузка...
Похожие Темы - Задача Pascal
  1. anerita
    Ответов:
    14
    Просмотров:
    3.305
  2. Янчик
    Ответов:
    0
    Просмотров:
    490
  3. TrishaRay
    Ответов:
    1
    Просмотров:
    783
  4. elzim
    Ответов:
    0
    Просмотров:
    932
  5. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.128

Поделиться этой страницей