Форум программистов [Powered by Invision Power Board]

Цитата

После поступления в ВУЗ о студентах собрана информация: фамилия, нуждается ли в общежитии, на какой основе поступил (коммерческой или госбюджетной), какой язык изучал. Определить:
1). Сколько человек нуждаются в общежитии.
2). Списки языковых групп.
3). Сколько студентов обучается на коммерческой основе.

Цитата(Ornik @ 7.12.2010, 19:44

)

Привет, форумчане. Подскажите пожалуйста код задачи:

Код


Program LAB8;

USES
CRT;

TYPE
zapis = Record
familiya: string;
obschejitie: string;
osnova: string;
language: string;
end;

const
endarray= 5;
Zapisi: array [1..endarray] of zapis=
((familiya: 'Sokolov'; obschejitie: 'true';
osnova: 'budjet'; language: 'angliiskii'),
(familiya: 'Petrov'; obschejitie: 'false';
osnova: 'kommercheskaya'; language: 'francuzskii'),
(familiya: 'Ivanov'; obschejitie: 'true';
osnova: 'budjet'; language: 'nemeckii'),
(familiya: 'Korolev'; obschejitie: 'false';
osnova: 'budjet'; language: 'angliiskii'),
(familiya: 'Novikov'; obschejitie: 'false';
osnova: 'kommercheskaya'; language: 'nemeckii'));

var
n:integer;

Procedure OsnKommerc (var x:integer);
Var i: integer;
Begin
x:=0;
for i:=1 to endarray do
if zapisi[i].osnova='kommercheskaya' then x:=x+1;
end;

Procedure Obsch (var x: integer);
Var i: integer;
Begin
x:=0;
for i:=1 to endarray do
if zapisi[i].obschejitie='true' then x:=x+1;
end;

Procedure LangGroup;
Var i: integer;
Begin
for i:=1 to endarray do
if zapisi[i].language='angliiskii' then writeln ('Angliiskii: ', zapisi[i].familiya);
if zapisi[i].language='nemeckii' then writeln ('Nemeckii: ', zapisi[i].familiya);
if zapisi[i].language='francuzskii' then writeln ('Francuzskii: ', zapisi[i].familiya);
end;

BEGIN

CLRSCR;

OsnKommerc (n);
Writeln ('Studentov na kommercheskoi osnove - ', n);

Writeln ('===========================================');

Obsch (n);
Writeln ('Studentov, nujdauyschihsya v oschejitii - ', n);

Writeln ('===========================================');

LangGroup;

Readln;

END.

Код


if zapisi[i].language='nemeckii' then writeln ('Nemeckii: ', zapisi[i].familiya);

Код


procedure LangGroup;
var 
  i: integer;
begin
  for i:=1 to endarray do
  begin
    if zapisi[i].language='angliiskii' then writeln ('Angliiskii: ', zapisi[i].familiya);
    if zapisi[i].language='nemeckii' then writeln ('Nemeckii: ', zapisi[i].familiya);
    if zapisi[i].language='francuzskii' then writeln ('Francuzskii: ', zapisi[i].familiya);
  end;
end;

Код


procedure LangGroup;
var 
  i: integer;
begin
  writeln('Angliiskii:');
  for i:=1 to endarray do
    if zapisi[i].language='angliiskii' then
      writeln ( zapisi[i].familiya );

  writeln('Nemeckii:');
  for i:=1 to endarray do
    if zapisi[i].language='nemeckii' then
      writeln ( zapisi[i].familiya );

  writeln('Francuzskii:');
  for i:=1 to endarray do
    if zapisi[i].language='francuzskii' then
      writeln ( zapisi[i].familiya );
end;