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

Строки, множества и записи

22.12.2016, 18:12. Просмотров 277. Ответов 1
Метки нет (Все метки)

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
Type student=Record
      Fio:string[30];
      god:string[4];
      mesto:string[12];
      exz:array[1..3] of byte;
     End;
Var A:array[1..30] of student;
    i,oz,v,j,n:byte;
    sr:real;
    st:string[3];
Begin
    write('Кол-во студентов: ');readln(n);
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' студенте');
      write('Ф.И.О: ');readln(A[i].Fio);
      write('Год рождения: ');readln(A[i].god);
      write('Место жительства: ');readln(A[i].mesto);
      writeln('Оценки по экзаменам');
      For j:=1 to 3 do
      Begin
        read(A[i].exz[j]);
        sr:=sr+A[i].exz[j];
      End;
    End;
    sr:=sr/(n*3);
    writeln('1) Выборка по среднему баллу');
    writeln('2) Выборка по первым 3 буква фамилии');
    writeln('3) Выборка по оценке по физ-ре');
    readln(v);
    Case v of
     1:;//тутутут
     2:
     Begin
       write('Первые 3 буквы фамилии: ');readln(st);
       For i:=1 to n do
        if Copy(A[i].Fio,1,3)=st then writeln(A[i].Fio);
     End;
     3:
     Begin
       write('Оценка по физре: ');readln(oz);
       For i:=1 to n do
        if A[i].exz[2]=oz then writeln(A[i].Fio);
     End;
    End;
End.
Когда начинаю писать 2-го студента, сразу перекидывает на год (не вводится ФИО). И подскажите, пожалуйста, как со средним баллом работать
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2016, 18:12
Ответы с готовыми решениями:

Строки, множества и записи
Список группы бегунов на короткие дистанции: Ф.*И.*О., год рождения, пол, место жительства, вес,...

Строки, записи, множества
Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова...

Строки, записи, множества
Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но...

Строки, записи, множества
В городе N имеется 100 кондитерских магазинов. Известно, что в каждом из этих магазинов не более 20...

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4763 / 3408 / 4014
Регистрация: 05.06.2014
Сообщений: 17,032
22.12.2016, 19:03 2
Попробуйте все read заменить на readln.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2016, 19:03

ЗАПИСИ, МНОЖЕСТВА, ПЕРЕЧИСЛИМЫЙ ТИП, СТРОКИ
Прошу помощи.. 1. Багаж пассажира характеризуется кол-вом вещей и общим весом вещей. Пусть дан...

записи и множества
1.Поля структуры: шифр книги, ФИО автора, название книги, год издания и признак наличия. 1) Выдать...

записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...


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

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

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