"Записи с вариантами"

[Mastak]

Помогите, пожалуйстка, с написанием программ.
1) Распечатать список студентов, упорядоченный по алфавиту (нужно ввести 5 студентов и чтобы программа отсортировывала их по алфавиту).
2) Поджсчитать колличество гласных букв в тексте.

[Viteef]

2)

uses crt;
var
  Glas_bukv:string[5];
  Count_Glas_Bukv:integer;
  i:integer;
  k:integer;
  NashText:string;
begin
 read(nashtext);
 Glas_bukv:='аоуыиэ';
 for i:=0 to Length(NashText)-1 do
 for k:=0 to 5 do
 if NashText[i]=Glas_Bukv[k] then Count_Glas_Bukv:=Count_Glas_Bukv+1; 
 writeln('Kolichestvo glasnyh bukv v tekste: ',Count_Glas_Bukv);
 readkey;
end.

1) Сортировки.rar

[Tayfun]

Тут вложен примерный код и файл содержащий фамилии,имена и очества студентов в следующем формате
1 строка. Фамилия
2 строка. Имя
3 строка. Очество
Алгоритм не только упорядочивает по алфовиту, но и исправляет если имя собственное написано с маленькой буквы!
1111.rar

[Mastak]

Tayfun
что-то она не работает

[puporev]

Номальная программа, работает.

[Mastak]

Да, спасибо, а можно переделать, чтобы эти данные вводить нужно было

[Tayfun]

Непроверял, но должно работать!

program Yurkin1210;
uses crt;
type mass=array[1..20,1..3] of string;
var
s:mass;
pp:array[1..18] of integer;
sp,b2,ss,ss2,b:string;
p,i2,j2,j,r,k,t,i,c:integer;
f:text;
bb:boolean;
begin
clrscr;
ss:='abcdefghijklmnopqrstuvwxyz';
ss2:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
writeln('VVEDITE KOLICHESTVO LUDEY');
readln(t);
for i:=1 to t do begin
writeln(i,')FAMILIYA');
readln(s[i,1]);
writeln('IMYA');
readln(s[i,2]);
writeln('OTCHESTVO');
readln(s[i,3]);
end;
for r:=1 to 3 do begin
for i:=1 to t do begin
b:=copy(s[i,r],1,1);
bb:=false;
for j:=1 to 26 do begin
b2:=copy(ss,j,1);
if b=b2 then begin
s[i,r]:=copy(s[i,r],2,length(s[i,r])-1); s[i,r]:=copy(ss2,j,1)+s[i,r];
end;

end;
end;
end;

for i:=1 to t do begin
b:=copy(s[i,1],1,1);
for j:=1 to 26 do begin
b2:=copy(ss2,j,1);
if b=b2 then pp[i]:=j;
end;
end;
for i:=1 to t-1 do
for j:=i+1 to t do
if pp[i]>=pp[j] then
for r:=1 to 3 do begin
k:=pp[i]; pp[i]:=pp[j]; pp[j]:=k;
sp:=s[i,r];s[i,r]:=s[j,r];s[j,r]:=sp;
end;

for i:=1 to t do begin
for r:=1 to 3 do write(s[i,r],' ');
writeln;
end;

readkey;
end.

[Mastak]

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

[Udaf_Alex]

Glas_bukv:='аоуыиэ';
for i:=0 to Length(NashText)-1 do
for k:=0 to 5 do

Первое, гласных букв не 5, а 10 (а,е,ё,и,о,у,ы,э,ю,я). Кроме того, надо учитывать и прописные, и строчные (А, а, Е, е и т.д.), т.е. всего 20 штуков. Ну, если без "Ё", то 18. Т.о. для каждого символа исходного текста надо "прокурутить" внутренний цикл 18 раз, по-моему, не очень С множеством гораздо удобнее

Еще - нулевой символ строки - это не символ, как таковой, а текущая длина строки, представленная в символьном виде, поэтому проверять его не надо, а вот послений символ NachText[Length(NashText)] как раз игнорировать не надо (т.е. цикл надо не от 0 до Length(NashText)-1, а от 1 до Length(NashText)).

var
  bukvy: set of Char;
  Count_Glas_Bukv:integer;
  i:integer;
  k:integer;
  NashText:string;
begin
 read(nashtext);
 bukvy:=['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
 for i:=1 to Length(NashText) do
    if NashText[i] IN bukvy then inc(Count_Glas_Bukv); 
 writeln('Kolichestvo glasnyh bukv v tekste: ',Count_Glas_Bukv);
 readkey;
end.

[Udaf_Alex]

type mass=array[1..20,1..3] of string;
var s:mass;
...
for r:=1 to 3 do begin
k:=pp[i]; pp[i]:=pp[j]; pp[j]:=k;
sp:=s[i,r];s[i,r]:=s[j,r];s[j,r]:=sp;
end;

Если описать s не как двумерный массив, а как массив записей (что, скорее всего, и требовалось в задании - название темы-то "Записи" ), то при перестановке не придется делать вложенный цикл (for r:=1 to 3 do) .

type tName = record
                     first_name, {имя}
                     last_name, {фамилия}
                     part_name: string; {отчество}
                  end;
var s: array [1..20] of tName;
     sp: tName;
...
{если в процессе сортировки потребовалась перестановка i-го и j-го}
sp:=s[i], s[i]:=s[j]; s[j]:=sp;