program study;
uses crt;
type Anketa=Record
Name:string[20];
ParentName:string[20];
Surname:string[20];
Dat:string[10];
Group:string[10]; {name of group}
Stip:real; {grants=stipendiya}
end;
var student:array [1..10] of Anketa;
kl:char;
procedure add(x:anketa);
begin
end;
procedure find(x:anketa);
begin
end;
procedure clear(x:anketa);
begin
end;
procedure print(x:anketa);
begin
end;
begin
writeln('1:Add');
writeln('2:Find');
writeln('3:Clear');
writeln('4:Print');
case kl of
'1':
'2':
'3':
'4':
end;
end.
Record and students
Добрый вечер.
У меня такой вопрос: С помощью записей создать список студентов со следующими характеристиками:
Имя,Отчество,Фамилия,Дата Рождения,Номер группы и стипендия. Список всего этого организрвать в виде массива.
Так вот: программа должна выполнять 1. добавление студентов со всеми хар-ками.
2. поиск студента по маске (по характеристикам).
3. очистка списка.
4. печать (вывод на экран) данных о студенте или о группе студентов (в зависимости о введённых данных).
Вот что я написал:
Помогите пожалуйста.
У меня такой вопрос: С помощью записей создать список студентов со следующими характеристиками:
Имя,Отчество,Фамилия,Дата Рождения,Номер группы и стипендия. Список всего этого организрвать в виде массива.
Так вот: программа должна выполнять 1. добавление студентов со всеми хар-ками.
2. поиск студента по маске (по характеристикам).
3. очистка списка.
4. печать (вывод на экран) данных о студенте или о группе студентов (в зависимости о введённых данных).
Вот что я написал:
Код:
Помогите пожалуйста.
Цитата:
Originally posted by Mandel
Добрый вечер.
У меня такой вопрос...
Помогите пожалуйста.
Добрый вечер.
У меня такой вопрос...
Помогите пожалуйста.
А сам Бегемота накодить не хочешь?:D
{Если не ошибаюсь}
Да вообще не получается: 3 часа сидел.
Цитата:
Originally posted by Mandel
Да вообще не получается: 3 часа сидел.
Да вообще не получается: 3 часа сидел.
О как я угадал! Что же так? :’(
З.Ы.: А ты, собственно, кто?
Ученик школы - 10 класс
Цитата:
Originally posted by Mandel
Ученик школы - 10 класс
Ученик школы - 10 класс
А не гонишь!? И Бегемота не знаешь? И не с ИУ?
Цитата:
Originally posted by Mandel
...С помощью записей создать список студентов со следующими характеристиками:...
Помогите пожалуйста.
...С помощью записей создать список студентов со следующими характеристиками:...
Помогите пожалуйста.
А вот что я написал:P :P
Код:
uses crt;
type Anketa=Record
Name:string[20];
ParentName:string[20];
Surname:string[20];
Dat:string[10];
Group:string[10]; {name of group}
Stip:real; {grants=stipendiya}
end;
var stu:array [1..10] of Anketa;
kl:char;
Name2:string[20];
vvv:boolean;
i,col:byte;
procedure add;
begin
inc(col);
write('Name : ');readln(stu[col].Name);
write('ParentName : ');readln(stu[col].ParentName);
write('Surname : ');readln(stu[col].Surname);
write('Dat : ');readln(stu[col].Dat);
write('Group : ');readln(stu[col].Group);
write('Stip : ');readln(stu[col].Stip);
end;
procedure print(b:byte);
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
writeln('Name : ',stu.Name);
writeln('ParentName : ',stu.ParentName);
writeln('Surname : ',stu.Surname);
writeln('Dat : ',stu.Dat);
writeln('Group : ',stu.Group);
writeln('Stip : ',stu.Stip:0:2);writeln;
readkey;
end;
procedure find;
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
write('Find : ');readln(Name2);
for i:=1 to col do if(stu.name=name2)then print(i);
end;
procedure clear;
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
write('Name : ');readln(Name2);
for i:=1 to col do
if(stu.name=name2)then
begin
for i:=i to col-1 do stu:=stu[i+1];
dec(col);exit;
end;
end;
begin
vvv:=false;col:=0;
repeat
clrscr;
writeln('1:Add');
writeln('2:Find');
writeln('3:Clear');
writeln('4:Print');
writeln('5:Exit');
write('===========> ');readln(kl);
clrscr;
case kl of '1':Add;
'2':Find;
'3':Clear;
'4':For i:=1 to col do print(i);
'5':vvv:=true
else begin
writeln('Net takogo : ',kl);
readkey;
end;
end;
until vvv;
end.
type Anketa=Record
Name:string[20];
ParentName:string[20];
Surname:string[20];
Dat:string[10];
Group:string[10]; {name of group}
Stip:real; {grants=stipendiya}
end;
var stu:array [1..10] of Anketa;
kl:char;
Name2:string[20];
vvv:boolean;
i,col:byte;
procedure add;
begin
inc(col);
write('Name : ');readln(stu[col].Name);
write('ParentName : ');readln(stu[col].ParentName);
write('Surname : ');readln(stu[col].Surname);
write('Dat : ');readln(stu[col].Dat);
write('Group : ');readln(stu[col].Group);
write('Stip : ');readln(stu[col].Stip);
end;
procedure print(b:byte);
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
writeln('Name : ',stu.Name);
writeln('ParentName : ',stu.ParentName);
writeln('Surname : ',stu.Surname);
writeln('Dat : ',stu.Dat);
writeln('Group : ',stu.Group);
writeln('Stip : ',stu.Stip:0:2);writeln;
readkey;
end;
procedure find;
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
write('Find : ');readln(Name2);
for i:=1 to col do if(stu.name=name2)then print(i);
end;
procedure clear;
begin
if col=0 then begin write('Net studentov !');readkey;exit;end;
write('Name : ');readln(Name2);
for i:=1 to col do
if(stu.name=name2)then
begin
for i:=i to col-1 do stu:=stu[i+1];
dec(col);exit;
end;
end;
begin
vvv:=false;col:=0;
repeat
clrscr;
writeln('1:Add');
writeln('2:Find');
writeln('3:Clear');
writeln('4:Print');
writeln('5:Exit');
write('===========> ');readln(kl);
clrscr;
case kl of '1':Add;
'2':Find;
'3':Clear;
'4':For i:=1 to col do print(i);
'5':vvv:=true
else begin
writeln('Net takogo : ',kl);
readkey;
end;
end;
until vvv;
end.
Только я вот непоиму - все мог сам зделать!, в чем тогда прикол или просто лень:???: