Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
booz
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 43
1

Переписать отличников в один массив, двоечников в другой

05.05.2015, 18:34. Просмотров 890. Ответов 1
Метки нет (Все метки)

Даны анкетные данные студентов.Переписать отличников в один массив, двоечников в другой.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2015, 18:34
Ответы с готовыми решениями:

Определить отличников, хорошистов, троечников и двоечников
Описать переменную экзаменационная ведомость (предмет, номер группы, номер...

Переписать положительные элементы в один массив, отрицательные – в другой
Переписать положительные элементы в один массив, отрицательные – в другой ...

Переписать элементы одномерного массива с чётными индексами в один массив, а с нечётными - в другой
Переписать положительные(отрицательные) элементы массива с четными индексами в...

Из данного списка в один переписать положительные числа, в другой-отрицательные
Паскаль найти сколько раз в списке встречается данное число. (с помощью...

Переписать в другой массив только отрицательные элементы исходного
Уважаемые форумчане! Прошу вас о помощи!!! нужно выполнить задание а я ни в...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4223 / 3067 / 3793
Регистрация: 05.06.2014
Сообщений: 15,427
06.05.2015, 09:32 2
Лучший ответ Сообщение было отмечено booz как решение

Решение

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
{Даны анкетные данные студентов.Переписать отличников в один массив,
двоечников в другой.}
const
  n=3;
type
  stud=record
    fio:string[128];
    oc1,oc2,oc3:byte;
  end;
var
  a,b:array [1..n] of stud;
  k,i,m:integer;
  x:stud;
begin
  for i:=1 to n do
    begin
      write('Введите ФИО: ');  readln(x.fio);
      write('Введите 1-ю оценку: ');  readln(x.oc1);
      write('Введите 2-ю оценку: ');  readln(x.oc2);
      write('Введите 3-ю оценку: ');  readln(x.oc3);
      if (x.oc1=5) and (x.oc2=5) and  (x.oc3=5) then
        begin
          inc(k);
          a[k].fio:=x.fio;
          a[k].oc1:=x.oc1;
          a[k].oc2:=x.oc2;
          a[k].oc3:=x.oc3;
        end;
      if (x.oc1=2) and (x.oc2=2) and  (x.oc3=2) then
        begin
          inc(m);
          b[m].fio:=x.fio;
          b[m].oc1:=x.oc1;
          b[m].oc2:=x.oc2;
          b[m].oc3:=x.oc3;
        end;
    end;
  writeln('Двоечники: ');
  for i:=1 to m do
    writeln(b[i].fio,' ',b[i].oc1,' ',b[i].oc2,' ',b[i].oc3);
  writeln('Отличники: ');
  for i:=1 to k do
    writeln(a[i].fio,' ',a[i].oc1,' ',a[i].oc2,' ',a[i].oc3);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2015, 09:32

Переписать в другой массив все элементы, расположенные до минимального
Переписать в другой массив все элементы, расположенные до минимального ...

Переписать в другой массив из данного все элементы, расположенные правее последнего отрицательного элемента
Дан массив чисел x1,x2,...,x22. переписать в другой массив из данного все...

Выделить все дробные части чисел в один массив, все целые - в другой массив
в массиве вещественных чисел выделить все дробные части чисел в отдельный...


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

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

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