Определить количество отличников; число учащихся с фамилией, начинающейся на букву А.

@KYRMAZ · Регистрация: 08.04.2011

Author24 — интернет-сервис помощи студентам

Прошу помогите решить мне задачку,кто может?

Дана ведомость учащихся, занимающихся в кружке программирования. Определить количество отличников; число учащихся с фамилией, начинающейся на букву А.

@Mиxaил · 14.04.2011, 14:10

Написал процедуру для считывания данных из типизированного файла...

Pascal

type
    TRec = record
        Surname : string[20];
    mark    : 1..5;
    end;
    
    TFileRecord = file of TRec;
 
//========================================================
 
function CountStudent (var f : TFileRecord) : byte;
var
    Count : byte;
    Rec   : TRec;
begin
    ReSet(f);
    Count := 0;
    while (not EOF(f)) do
        begin
        Read(f, Rec);
        if (Rec.Mark = 5) and (Rec.Surname[1] = 'A') then
        Inc(Count);
        end;
    Close(f);
    CountStudent := Count;
end;
 
//========================================================

@KYRMAZ 0 / 0 / 0 Регистрация: 08.04.2011 Сообщений: 34
		1
	Определить количество отличников; число учащихся с фамилией, начинающейся на букву А. 14.04.2011, 10:04. Показов 1295. Ответов 1 Метки нет (Все метки) Прошу помогите решить мне задачку,кто может? Дана ведомость учащихся, занимающихся в кружке программирования. Определить количество отличников; число учащихся с фамилией, начинающейся на букву А. 0

	14.04.2011, 14:10

Определить количество отличников; число учащихся с фамилией, начинающейся на букву А.

Решение