Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Sasha405
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 7
#1

Создать массив записей, каждый элемент которого содержит фамилию студента

30.05.2016, 23:35. Просмотров 828. Ответов 1
Метки нет (Все метки)

Создать массив записей, каждый элемент которого содержит фамилию студента, оценки за четыре экзамена последней сессии, год окончания школы, сведения об изучаемом иностранном языке (английский, немецкий или испанский). Определить студентов, которые окончили школу в прошлом году и имеют оценку по иностранному языку не ниже 5. На дисплей вывести фамилии студентов и их средние баллы за сессию, изучаемый иностранный языке и оценка по иностранному языку. Если удовлетворяющие условиям поиска данные не найдены, вывести сообщение «Таких данных нет».
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2016, 23:35
Ответы с готовыми решениями:

Создать массив, каждый элемент которого рассчитывается по формуле
Создать массив, каждый элемент которого рассчитывается по формуле: I^2-I, где I...

Создать массив, каждый элемент которого равен квадрату предыдущего индекса
Известен первый элемент массива A: A=6. Создать массив, каждый элемент которого...

Массив: Создать вектор, каждый элемент которого вычисляется по заданной формуле...
Мне нужно помочь с этим, я должен вводить числа и мне результат должно выдавать...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Одномерный Известны два первых элемента массива B: B=4, B=8. Создать массив,...

Создать третий массив той же размерности, каждый элемент которого формируется по правилу
даны два двумерных массива одинаковой размерности. Создать третий массив той же...

1
Peoples
1339 / 832 / 747
Регистрация: 06.02.2016
Сообщений: 2,214
Записей в блоге: 17
Завершенные тесты: 4
31.05.2016, 20:00 #2
Лучший ответ Сообщение было отмечено Sasha405 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program pr;
 
const
  Csize = 100;
  Cgod = 2016;
 
type
  Tst = record
    surname: string[50];
    mlang: integer;
    mmath: integer;
    mprog: integer;
    mphys: integer;
    ysch: integer;
    llen: string[50];
  end;
  arr = array [1..Csize] of Tst;
 
var
  i, n: integer;
  a: arr;
  k, f: integer;
 
begin
  k := 0;
  f := 0;
  writeln('Введите количество студентов');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию студента');
    readln(a[i].surname);
    writeln('Введите оценку студента по ин.язу');
    readln(a[i].mlang);
    writeln('Введите оценку студента по математике');
    readln(a[i].mmath);
    writeln('Введите оценку студента по программированию');
    readln(a[i].mprog);
    writeln('Введите оценку студента по физике');
    readln(a[i].mphys);
    writeln('Введите год окончания школы');
    readln(a[i].ysch);
    writeln('Введите изучаемый язык');
    readln(a[i].llen);
    writeln;
  end;
  writeln('Студенты, которые окончили школу в прошлом году и имеют оценку по иностранному языку не ниже 5');
  for i := n downto 1 do
    if (a[i].ysch = Cgod - 1) and (a[i].mlang = 5) then
    begin
      k := k + 1;
      writeln(a[i].surname);
      writeln(a[i].mlang);
      writeln(a[i].mmath);
      writeln(a[i].mprog);
      writeln(a[i].mphys);
      writeln(a[i].ysch);
      writeln(a[i].llen);
      writeln;
    end;
  if k = 0 then
    writeln('таких данных  нет');
  writeln;
  writeln('Фамилии студентов и их средние баллы за сессию, изучаемый иностранный языке и оценка по иностранному языку');
  for i := 1 to n do
  begin
    writeln('Фамилия: ', a[i].surname);
    writeln('Оценка по ин.язу: ', a[i].mlang);
    writeln('Средний бал по сессии: ', (a[i].mmath + a[i].mprog + a[i].mlang + a[i].mphys) / 4);
    writeln('Изучаемый язык: ', a[i].llen);
    writeln;
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2016, 20:00

Создать массив С(m) каждый элемент которого будет равен наименьшему каждой пары элементов из А и B
даны два массива А(m) и B (m).Создать массив С(m) каждый элемент которого будет...

Создать массив, каждый элемент которого равен количеству элементов соответствующей строки матрицы, больших X
Дан двумерный массив размером 5х6, заполненный целыми числами из [-34;45)....

Создать одномерный массив, каждый элемент которого равен первому чётному элементу соответствующего столбца
1. Дан двумерный массив размером 6*5, заполненный случайными числами....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru