Вернуться   MUruZ MU Online Forum > Основной > Общий

Общий Разговоры на различные темы.

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2010, 21:57   #21
xxalexx
Россошь_sity
 
Аватар для xxalexx
 
Регистрация: 12.01.2008
Сообщений: 1,918
По умолчанию

MyStruct = record ммм а че это??? рекорд что делает?
__________________

Идея живет лишь мгновение но затроньте чувства и она станет вечной
Offline   Ответить с цитированием
Старый 22.02.2010, 21:58   #22
Microsoft
Hero
 
Аватар для Microsoft
 
Регистрация: 10.12.2006
Сообщений: 1,260
По умолчанию

MyStruct = record ммм а че это??? рекорд что делает?
[/b]
Понятно :)

Пойду почитаю про паскаль, завтра постараюсь выложить.
__________________
LifeStream
Lin Kuei
Offline   Ответить с цитированием
Старый 22.02.2010, 22:01   #23
xxalexx
Россошь_sity
 
Аватар для xxalexx
 
Регистрация: 12.01.2008
Сообщений: 1,918
По умолчанию

мм мне через массивы надо все это провернуть
__________________

Идея живет лишь мгновение но затроньте чувства и она станет вечной
Offline   Ответить с цитированием
Старый 22.02.2010, 22:29   #24
razor
Murderer
 
Регистрация: 09.06.2006
Сообщений: 258
По умолчанию

ппц скока проггеров сразу нашлось, может мне кто с веб-дизайном поможет, коль на то пошло?)
__________________
Nickname: 2HARD4YOU
Class: Lord Emperor
Level: 350+ [20+]
Offline   Ответить с цитированием
Старый 22.02.2010, 22:36   #25
xxalexx
Россошь_sity
 
Аватар для xxalexx
 
Регистрация: 12.01.2008
Сообщений: 1,918
По умолчанию

ппц скока проггеров сразу нашлось, может мне кто с веб-дизайном поможет, коль на то пошло?)
[/b]
как токо с прогами разберусь глаза вылечу помогу если успею а тут нас много тебе фотошоп или сам HTML
__________________

Идея живет лишь мгновение но затроньте чувства и она станет вечной
Offline   Ответить с цитированием
Старый 22.02.2010, 22:48   #26
Microsoft
Hero
 
Аватар для Microsoft
 
Регистрация: 10.12.2006
Сообщений: 1,260
По умолчанию

Примерно так. Подчеркивание - это пробелы, привычка :)

program Test;

const
__MAXSIZE = 100;
__DATAFILE = 'Data.txt'; // не помню, нужно ли указывать полный путь

var
__Data: text;
__Name: array[1..MAXSIZE] of string;
__Phone: array[1..MAXSIZE] of string;
__i: integer;
__s: string;

begin

for i := 1 to MAXSIZE do begin
__Name[i] := '';
__Phone[i] := '';
end;

Assign(Data, DATAFILE);
Reset(Data);

for i := 1 to MAXSIZE do begin
__if not EOF(Data) then ReadLn(Data, Name[i]) else Break;
__if not EOF(Data) then ReadLn(Data, Phone[i]) else Break;
end;

Close(Data);

while true do begin // Бесконечный цикл

__Write('Введите фамилию: ');
__Read(s);

__if s = 'q' then Break; // Выходим из проги как всегда через жо... через "q" :)

__for i := 1 to MAXSIZE do begin
____if Name[i] = s then begin
______WriteLn(' Номер телефона: ', Phone[i]);
______Break;
____end;
__end;

end;

WriteLn('Спасибо что обратились в нашу контору :)');

end.


Вот наша Data.txt:
Иванов
111-11-11
Петров
222-22-22
Сидоров
333-33-33
Дятлов
656-56-56
Трофимов
233-33-33
Петросян
545-54-54


Если не ошибаюсь, в конце файла обязательно должна быть пустая строка.
__________________
LifeStream
Lin Kuei
Offline   Ответить с цитированием
Старый 22.02.2010, 23:33   #27
xxalexx
Россошь_sity
 
Аватар для xxalexx
 
Регистрация: 12.01.2008
Сообщений: 1,918
По умолчанию

огромное спс завтра попробую
__________________

Идея живет лишь мгновение но затроньте чувства и она станет вечной
Offline   Ответить с цитированием
Старый 23.02.2010, 02:07   #28
bandit
Newbie
 
Регистрация: 14.12.2009
Сообщений: 19
Cool

не согласился чтоб я за блесы тебе решил.

да ты из аськи смылся
Offline   Ответить с цитированием
Старый 23.02.2010, 09:29   #29
razor
Murderer
 
Регистрация: 09.06.2006
Сообщений: 258
По умолчанию

как токо с прогами разберусь глаза вылечу помогу если успею а тут нас много тебе фотошоп или сам HTML
[/b]
мне CSS) HTML и фотошоп знаю, ща же куча видеокурсов в инете)
Лан, может кто подскажет, как сделать резиновый дизайн, то бишь не зависящий от разрешения экрана) Я вот только знаю, что нужно соотношение в % стаить вместо пикселей и все) еще проблемы с <div>-тегами) вообщем не в этой теме...
__________________
Nickname: 2HARD4YOU
Class: Lord Emperor
Level: 350+ [20+]
Offline   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.