Важная информация
Показано с 1 по 2 из 2

Тема: Помогите решить

  1. #1 Помогите решить 
    Новичок
    Регистрация
    16.11.2014
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1.Дан текстовый файл. Вывести первое и последнее слово текста наибольшей длины (с учетом знаков препинания, расположенных в начале и в конце слов).
    2.Для группы студентов заданы их оценки по пяти предметам. Используя записи и процедуры, написать программу, которая выводит список студентов, которым назначена стипендия. Стипендия назначается, если средний балл 4.0 и выше. Студентов оценивают по пятибальной системе. (решить с использованием процедур или функций.)
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    284
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1.  
    2. uses crt;
    3. type TRObject=record
    4.      nameObject:string;
    5.      score:byte;
    6.      end;
    7. type TRStudent=record
    8.      nameStudent:string;
    9.      aObj:array [1..5] of TRObject;
    10.      midScore:real;
    11.      end;
    12. const aNameObj: array [1..5] of string = ('химия', 'физика', 'математика', 'история', 'биология' );
    13. var aStudent:array[1..5] of TRStudent;
    14.     i:integer;
    15. procedure inputFIO(i1:integer);
    16. var j:integer;
    17.  
    18. begin
    19.   aStudent[i1].midScore:=0;
    20.    write('введите фио студента:');
    21.   readln(aStudent[i1].nameStudent);
    22.       for j:=1 to 5 do
    23.         begin
    24.           write('введите оценку студента по ',aNameObj[j]);
    25.           readln(aStudent[i1].aObj[j].score);
    26.  
    27.           aStudent[i1].aObj[j].nameObject:=aNameObj[j];
    28.           aStudent[i1].midScore:=aStudent[i1].midScore+aStudent[i1].aObj[j].score;
    29.         end;
    30.    aStudent[i1].midScore:=aStudent[i1].midScore/5;
    31. end;
    32. begin
    33.   for i:=1 to 5 do
    34.     begin
    35.       inputFIO(i);
    36.       writeln('список студентов получающих стипендию');
    37.       if aStudent[i].midScore>=4.0  then writeln(aStudent[i1].nameStudent,' средний бал: ',aStudent[i1].midScore:5:3);
    38.     end;
    39.  
    40.  
    41. end.
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    >Quiet Snow< (14.09.2018)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите решить задачи по С++
    от александр22 в разделе Общие вопросы программирования
    Ответов: 2
    Последнее сообщение: 21.05.2014, 14:00
  2. Помогите решить
    от Origina1 в разделе Visual Basic
    Ответов: 1
    Последнее сообщение: 15.12.2013, 07:35
  3. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  4. помогите решить задачу на qbasic
    от vetal в разделе QBasic
    Ответов: 3
    Последнее сообщение: 05.03.2012, 21:31
  5. Помогите решить задачу
    от Дмитрий 1993 в разделе QBasic
    Ответов: 3
    Последнее сообщение: 24.01.2012, 17:00
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •