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

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


textual

Код к задаче: «Операции над записями - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.200 из 5



Похожие ответы
  1. Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали(над половиной главной диагонали и под половиной побочной).

  1. Нужно написать программу на Паскале. Помогите пожалуйста. И чем проще будут записи,тем лучше, я чайник в программировании.

  1. Дана матрица С(5х5) положительных и отрицательных элементов 1) Ввести элементы матрицы и вывести на экран дисплея. 2) Вывести на экран дисплея элементы главной диагонали (i=j), определить их сумму и число положительных элементов главной диагонали. 3) Включить в матрицу дополнительную строку с заданным номером K (K=6), вывести на экран новую матрицу С1. 4) Реализовать поиск элемента по его индексам и вывод его на экран. Начало у меня было положено, сделал первый и половину второго пункта:

  1. Помогите пожалуйста Пусть D – заштрихованная часть плоскости. Нужно определить, принадлежит ли точка с координатами (х, у) плоскости D

  1. Даны действительные числа x,y – координаты точки,R1,R2-соотвественно радиусы большей и меньшей окружностей (см.рис.). центр 2-й окружности – точка с координатами (0,R1). Определить принадлежат ли точка (x,y) области, заштрихованной на рисунке.

  1. Выполнить действия над матрицами:

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

  1. Определить принадлежит ли точка заданная координаты x,y некоторой области даны действительные числа x,y координаты точки определить принадлежит ли точка (x,y) области заштрихованой на рисунке

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