Операции над записями - Pascal

  1. В данную программу сделать так: У кого средний бал больше 4.0 того выводит на экран.

textual

Код:

program KK;
 
const
  N = 3;//количество студентов 
 
type
  FIO = record
    family: string[20];   // фамилия 
    name: string[15];   // имя
    surname: string[20];   // отчество
  end;
 
type
  mas = array[1..5] of byte;
 
type
  student = record
    studentFIO: FIO;
    group: integer;
    points: mas;
  end;
//*******************************************************
var
  BAZA: array[1..N] of student;
  m: student;
  i, j, k: integer;
  sr: real;
 
begin
  //******************заполнение данных**********************************
  for i := 1 to N do
  begin
    write('Фамилия: ');readln(BAZA[i].studentFIO.family);
    write('Имя: ');readln(BAZA[i].studentFIO.name);
    write('Отчество: ');readln(BAZA[i].studentFIO.surname);
    write('Группа: ');readln(BAZA[i].group);
    writeln('оценки:');
    for j := 1 to 5 do 
    begin
      write(j, ') ');
      readln(BAZA[i].points[j]);
    end;
  end;
  
  //******************Вывод данных**********************************
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if BAZA[j].studentFIO.family > BAZA[j + 1].studentFIO.family then
      begin
        m := BAZA[j];
        BAZA[j] := BAZA[j + 1];
        BAZA[j + 1] := m;
      end;
  writeln('*********************************************************');
  for i := 1 to N do
  begin
    write('Фамилия: ');
    writeln(BAZA[i].studentFIO.family);
    write('Имя: ');
    writeln(BAZA[i].studentFIO.name);
    write('Отчество: ');
    writeln(BAZA[i].studentFIO.surname);
    write('группа: ');
    writeln(BAZA[i].group);
    writeln('оценки:');;
    for j := 1 to 5 do 
      write(BAZA[i].points[j]:3);
    writeln;
    writeln('*********************************************************');
  end;
  //*****************************************************************
  sr := 0;
  writeln('Студенты, чей средний балл больше 4.0:');
  for i := 1 to N do
  begin
    for j := 1 to 5 do
      sr := sr + BAZA[i].points[j];
    sr := sr / 5;
    if sr > 4 then 
      writeln(BAZA[i].studentFIO.family, '  ', BAZA[i].group);
  end;
end.

Похожие ответы
  1. 1. Описать символьный массив длиной 80 символов. 2. Ввести предложение, состоящее из слов, разделенных пробелами. . Слово заканчивается заданной буквой. 4. Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слова с указанием их длины, слова, удовлетворяющие заданию, пометить примечанием, например, "Начинается на заданную букву". 5. В случае исключительных ситуаций выдать сообщение СТРОКА ПУСТА СЛОВ, УДОВЛЕТВОРЯЮЩИХ ЗАДАНИЮ, НЕТ СЛОВО ЕДИНСТВЕННОЕДобавлено через 15 минут если можно с коментами

  1. Пожалуйста, очень срочно надо написать программу на языке Pascal (Turbo или ABC). Найти все натуральные числа, не превосходящие заданного m, двоичная запись которых представляет собой симметричную последовательность нулей и единиц (начинающуюся с единицы). Показать десятичную и двоичную записи этих чисел.

  1. Элементы двумерных массивов выбрать произвольно. Вывести их на печать в формате и с заголовком. Для решения данной задачи использовать подпрограмму типа Function. В матрицах А(9,4) и Р(4,2) найти минимальный элемент 4-й строки матрицы.

  1. В заданном тексте подсчтитать сколько предложений оканчиваются на "." "?" "!".

  1. Разработайте алгоритм для вычисления объема цилиндра, если известны его высота и радиус основания.

  1. пожалуйста, помогите решить две задачи через процедуры: 1. написать программу заполнения двумерного массива, с последующим выводом массива на экран, положительными и отрицательными значениями. 2. написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали.

  1. помогите пожалуйста. создать файл целых чисел вводя данные с клавиатуры. переписать четные числа во второй файла, подсчитать их количество. определить размер файла. если он превышает заданное пользователем значение, то обрезать его

  1. В данной работе необходимо выполнить задачу программирования типовых алгоритмов с использованием подпрограмм, разных видов. В задании необходимо создать две программы и выполнить следующие действия: 1.Создать программу с реализацией действий задания с использованием функции. 2.Создать программу с реализацией тех же действий задания с использованием процедуры. Дана матрица A[1:7;1:7]. Заменить отрицательные элементы на главной диагонали значениями сумм строк, на которых находятся эти элементы, а положительные элементы на главной диагонали значениями сумм столбцов, на которых находятся эти элементы. Получение сумм элементов строк и столбцов реализовать одной функцией и одной процедурой.

  1. Помогите с задачей: Дан текстовый файл содержащий строки. Вывести на экран самую длинную строку.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика