Вопрос про цикл

[N@tali]

Вопрос про цикл

скажите пожалуйста как задать правильно не знаю .. надо чтобы результате выводились студеты у которых Инициалы совпадают.... а у меня выводятся студенты у которых имя фамилия отчество полностью совпадают....

а мне надо чтобы только по первым буквам совпадали то есть по инициалам...
помогите пожалуйста с этим...всю программу мне не надо...

for I:=1 to 10 do
begin
s:=student[i].fam;
s1:=student[i].otc;
s2:=student[i].name;
if (s[1]=s1[1])and (s1[1]=s2[1])then
writeln('фамилия студента : ', student[I].fam);end;
end.

 

[George Smith]

N@tali, надо сделать в цикле выборку первых букв в инициалах ...

 

[N@tali]

пожалуйста сделайте мне.... выборка мне непонятно...вы можете поправить мой кусок кода..????

 

[George Smith]

N@tali, извини я в другом языке работаю, но смысл сразу ясен,
по операторам, чёйто похожее, даже у Бейсика так же ...

 

[N@tali]

:tehnari_ru_837: а кто нибудь может помочь???:tehnari_ru_837:

 

[Vladimir_S]

:tehnari_ru_837: а кто нибудь может помочь???:tehnari_ru_837:

В принципе ошибок не вижу. Дайте программу целиком, чтобы можно было погонять.

 

[N@tali]

вот пожалуйста...

type anketa=record
fam: string[45];
otc: string[8];
name: string[50];
curs: 1..5;
grupp: string[3]
end;
var student: array [1..100] of anketa;
 I,z,z1,z2: integer;
 s,s1,s2:string;
begin
{последовательно вводим каждую запись}
 for I:=1 to 10 do
begin
writeln ('введите сведения о', I , '-м студенте');
writeln ('введите фамилию');
readln (student[I].fam);
writeln ('введите отчество');
readln (student[I].otc);
writeln ('введите имя');
readln(student[I].name);
writeln ('введите курс');
readln(student[I].curs);
writeln ('введите группу');
readln (student[I].grupp);
end;
for I:=1 to 10 do
begin
s:=student[i].fam;
s1:=student[i].otc;
s2:=student[i].name;
if (s[1]=s1[1])and (s1[1]=s2[1])then
writeln('фамилия студента : ', student[I].fam);end;
end.

 

[Vladimir_S]

Да... мистика. Я тут набросал тест-программку:

TYPE
 TTT=Record
     fam:String;
     name:String;
     otc:String;
    end;
VAR
 Student:Array[1..3] of TTT;
 s,s1,s2:String;
 i:byte;
Begin
 Student[1].fam:='Ivanov';
 Student[1].name:='Igor';
 Student[1].otc:='Isidorovich';

 Student[2].fam:='Petrova';
 Student[2].name:='Pelageya';
 Student[2].otc:='Porfiryevna';

 Student[3].fam:='Sidorov';
 Student[3].name:='Alexey';
 Student[3].otc:='Rodionovich';

 for i:=1 to 3 do
  begin
   s:=student[i].fam;
   s1:=student[i].otc;
   s2:=student[i].name;
   if (s[1]=s1[1]) and (s1[1]=s2[1]) then
    writeln('фамилия студента : ', student[I].fam);
  end;
 readln;
end.

так у меня четко выдает Ivanov и Petova.
Сейчас Вашу посмотрю.

 

[N@tali]

мне нужно чтобы выдавал результат...
например:
Иванов Александр Петрович
Икаев Алексей Павлович

то есть чтобы первые буквы ФИО совпадали...

 

[Vladimir_S]

мне нужно чтобы выдавал результат...
например:
Иванов Александр Петрович
Икаев Алексей Павлович

то есть чтобы первые буквы ФИО совпадали...

Ах, вот что! Так у Вас же совсем иная проверка - на совпадения трех инициалов для каждого студента (напр. Петрова Прозерпина Порфирьевна).
Ладно, теперь вроде ясно. Это несколько сложнее. Попробую.

 

[N@tali]

Спасибо большое...

 

[N@tali]

и если тебе не трудно исправь пожалуйста ошибку... ругается на что то ... это у меня в паскале АВС.net

Описать класс «дом», содержащий сведения о количестве подъездов и этажей, и количестве квартир на этаже. Предусмотреть инициализацию с проверкой допустимости значений полей. Описать методы вычисления количества квартир в подъезде и в доме.

type
dom=class
private kv:integer;
publiс p; et:integer;
constuctor create(p1,kv1,et1);
begin p:=p1;et:=et1;
if et1>0 then et:=et1 else writeln ('неверное количество')
end;
function kp:integer;
function kd:integer;
begin
result:=p*et*kv;
end;
end;
dom.kp:integer;
begin
result:=et*kv;
end;
begin
var
a1:dom:=newdom(3,4,6);
writeln(a1.p,a1.kv:3,a1.et:3);
writeln(' количество квартир в подъезде');
writeln(a1.kp());
writeln(' количество квартир в доме')
writeln(a1,kd());
end.

 

[Vladimir_S]

Вот - сделал. И даже отладил. Получилось несколько громоздко, но уж что есть:

Const
 SS:String=('***');
 Nstud=10;
type
 anketa=record
  fam: string;
  name: string;
  otc: string;
  curs: 1..5;
  grupp: string[3]
 end;
var
 student: array [1..Nstud] of anketa;
 Initial: array [1..Nstud] of string[3];
 i,j,z,z1,z2: integer;
 s,s1,s2:string;
 b,b1,b2:boolean;
begin
{инициализируем массив Initial}
 for i:=1 to Nstud do
  Initial[i]:=SS;
{последовательно вводим каждую запись}
 for i:=1 to Nstud do
  begin
   writeln ('введите сведения о ', i , '-м студенте');
   writeln ('введите фамилию');
   readln (student[i].fam);
   Initial[i][1]:=student[i].fam[1];
   writeln ('введите имя');
   readln(student[i].name);
   Initial[i][2]:=student[i].name[1];
   writeln ('введите отчество');
   readln (student[i].otc);
   Initial[i][3]:=student[i].otc[1];
   writeln ('введите курс');
   readln(student[i].curs);
   writeln ('введите группу');
   readln (student[i].grupp);
  end;
  for i:=1 to Nstud-1 do
   begin
    writeln;
    b:=false;
    b1:=true;
    for j:=i-1 downto 1 do
     if Initial[j]=Initial[i] then b1:=false;
    if b1 then
     begin
      b2:=true;
      for j:=i+1 to Nstud do
       begin
        if Initial[j]=Initial[i] then b:=true;
        if b then
         begin
          if b2 then
           begin
            Writeln(student[i].fam,' ',student[i].name,' ',student[i].otc);
            Writeln(student[j].fam,' ',student[j].name,' ',student[j].otc);
            b2:=false;
           end
          else
            Writeln(student[j].fam,' ',student[j].name,' ',student[j].otc);
         end;
        b:=false;
       end;
     end;
   end;
 readln;
end.

А со второй задачкой, увы - помочь не смогу: ООП не занимаюсь, и в этих конструкторах-деструкторах не волоку.

 

[N@tali]

спасибо огромное

 

[Vladimir_S]

спасибо огромное

Да, между прочим: переменные z,z1,z2, s,s1,s2 можно убрать: в программе они не используются.