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

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

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


http://www.cyberforum.ru/turbo-pascal/thread289076.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2016, 23:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать массив записей, каждый элемент которого содержит фамилию студента (Turbo Pascal):

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

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

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

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

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

1
Peoples
1269 / 774 / 730
Регистрация: 06.02.2016
Сообщений: 2,081
Записей в блоге: 15
Завершенные тесты: 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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