IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Люди помогите написать программу!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


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

Добавлено через 14 мин.
и ещё дополнение. Я ввожу фамилии с клавы, и сколько их я не знаю. как тут обьявлять массив?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


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

Сообщение отредактировано: ska4ai -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


Цитата(ska4ai @ 3.11.2008 19:16) *

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

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

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



--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


 ! 
ska4ai, приведи название в соответствие с Правилами (п.4) - иначе тема будет закрыта



2 feniks25:
1. Почему ты сортируешь весь массив после ввода каждой строки? для надежности? smile.gif
2. Почему в сортировке стоит полный цикл? Прежде, чем учить других, почитай сам про сортировку: Методы сортировок .
3. family <> фамилия smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.04.2024 19:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name