01.04.2013, 00:23 | #1 (permalink) |
Новичок
Регистрация: 27.03.2013
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -10
|
Pascal. Динамическая память
Задание такое: Запись содержит фамилию и 4 оценки. Удалить из списка записи с неудовлетворительными оценками. |
01.04.2013, 00:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Содержание вашего топика схоже с этими темами Pascal ABC Pascal Pascal Динамическая головка 15ГД-14 |
01.04.2013, 20:56 | #4 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Так, не так. Просто как вариант может подойдёт.
Код:
Type STDN = record FIO: String; O1,O2,O3,O4:integer; end; var j,i:integer; STUDNI:array [1..1000] of ^STDN; bol:char; begin bol:='y'; i:=0; writeln('Введите студней и их 4 оценки'); while bol='y' do begin inc(i); new(STUDNI[i]); begin write('ФИО ',i,':');readln(STUDNI[i]^.FIO); write('Оценка 1 :');readln(STUDNI[i]^.O1); write('Оценка 2 :');readln(STUDNI[i]^.O2); write('Оценка 3 :');readln(STUDNI[i]^.O3); write('Оценка 4 :');readln(STUDNI[i]^.O4); end; writeln('Есть еще студни y/n');read(bol); end; for j:=1 to i do begin if (STUDNI[j]^.O1<3)or (STUDNI[j]^.O2<3)or (STUDNI[j]^.O3<3)or (STUDNI[j]^.O4<3)then Dispose(STUDNI[j]) else Writeln(STUDNI[j]^.FIO); end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|