Люди помогите написать программу! Опции

[ska4ai]

Уже 2 дня сижу, с массивами ниччего не пойму, как в них вводить буквы. Задача такая: задан список русских фамилий(вместе с именами и отчествами), упорядочить их по алфавиту.
Проверить, и исправить если нужно,написание собственных имён с прописных букв. Заранее всем спасибо!!!

Добавлено через 14 мин.
и ещё дополнение. Я ввожу фамилии с клавы, и сколько их я не знаю. как тут обьявлять массив?

[ska4ai]

а можно это в виде кода всё. мне нужна полностью программа

Сообщение отредактировано: ska4ai - 3.11.2008 20:19

[Rian]

а можно это в виде кода всё. мне нужна полностью программа

конечно можно

uses crt;
var
mas:array [1..20]of string[30];
i,x:integer;
count:integer;
st,st2:string[30];
begin
clrscr;
writeln('write family');
count:=0;
   repeat
   st:='';
   readln(st);
     count:=count+1;
     mas[count]:=st;

     for i:=1 to count do
     for x:=1 to count do
       if mas[x]>mas[i] then begin
       st2:=mas[x];
       mas[x]:=mas[i];
       mas[i]:=st2;
       end;

   until (st='')or(count=20);

writeln('END');
for i:=1 to count do writeln(mas[i]);

readkey;
end.

М

Почему паскалевский код небольшого размера - в аттаче? Вставляй в сообщение и обрамляй тегами, не заставляй других делать лишнюю работу и захламлять диск.. Я исправил. Lapp