Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 14.12.2011, 20:59   #1 (permalink)
TpaXmopucm
Member
 
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите переделать

измените чтобы выводило учеников Которые не получают стипендию! спасибо зарание!
Цитата:
TYPE
St=Record
N:Byte;
Name:String;
Bd:String;
Course:Byte;
Year:Integer;
Mark:Real;
End;
VAR
f:file of St;
Stud:St;
N_st,i,j:Byte;
C:Char;
BEGIN
Assign(f, 'D:\Data');
Rewrite(f);
N_st:=0;
Repeat
Write('Next student? Y/N ');
Readln(C);
If (C='Y') or (C='y') then
begin
Inc(N_st);
With Stud do
begin
N:=N_st;
Writeln('Surname,Name (e.g. Ivanov Petr):');
Readln(Name);
Writeln('Birthday (format dd.mm.yyyy, e.g. 03.08.1743):');
Readln(Bd);
Write('Course: ');
Readln(Course);
Write('Year of entry: ');
Readln(Year);
Write('Mark: ');
Readln(Mark);
Writeln;
end;
Write(f,Stud);
end;
Until (C='N') or (C='n');
Close(f);
Reset(f);
For i:=1 to N_st do
begin
Read(f,Stud);
With Stud do
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
end;
Writeln;
Write('Enter the first letter: ');
Readln(C);
Reset(f);
For i:=1 to N_st do
begin
Read(f,Stud);
With Stud do
If Name[1]=C then
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
end;
Close(f);
Readln;
END.
TpaXmopucm вне форума   Ответить с цитированием

Старый 14.12.2011, 20:59
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, попробуйте поискать ответ в схожих обсуждениях

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

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.