26.11.2017, 19:54 | #1 (permalink) |
Новичок
Регистрация: 20.11.2017
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите исправить задачу
Когда вводишь например фамилию Иванов в 8 класс и в 9 классе, на выходе выдает, что есть однофамильцы... и Например еще когда вводишь Иванов 8 класс и Иванова 8 класс, пишет что нет однофамильцев. Язык программирования Pascal. Помогите исправить задачку, на обработку записей. Код:
program z6; type cl = record name: string[20]; familia: string[45]; year: integer; bukva: string; end; var kl: array [1..100] of cl; i, n, c: integer; begin Write('Введите количество учеников= '); readln(n); for i := 1 to n do begin writeln('Введите сведения о ', I, '-м ученике:'); write('Имя '); readln(kl[I].name); write('Фамилия '); readln(kl[I].familia); write('Класс '); readln(kl[I].year); write('Буква '); readln(kl[I].bukva); end; writeln; c := 0; for i := 1 to n - 1 do begin if ((kl[I].year = 8) and (kl[I].familia = kl[I + 1].familia)) then inc(c); end; if c >= 1 then writeln('Однофамильцыесть') else write('Однофамильцевнет'); end. |
26.11.2017, 19:54 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вашего прочтения ждут аналогичные топики Помогите, пожалуйста, исправить задачу Помогите пожалуйста исправить задачу в Ассемблере Помогите исправить код Помогите пожалуйста исправить задачу на строки, Паскаль Помогите исправить задачу! Матрицы. |
|
|