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

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Файлы
сообщение
Сообщение #1


Новичок
*

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

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


Помогите, пожалуйста, с задачей:
Описать и проверить процедуру triangl(t), формирующую текстовый файл t из 27 строк, в первой из которых 27 литер ‘а’, во второй – 26 литер ‘b’ и т.д., в 27-й одна литера ‘z’.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

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

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


Что пробовал делать, что не знаешь?
на делфи?


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


Новичок
*

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

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


Цитата(feniks25 @ 19.04.2008 14:07) *

Что пробовал делать, что не знаешь?
на делфи?

Да, на Делфи. Непонятно, как написать и проверить эту самую triangl(t).
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Нельзя ли подробнее расписать, что в каждой строке должно быть, т.к. строк требуется 27, а литер всего 26?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

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

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


27 строк врятли получится smile.gif А вот 26 легко.

function BuildString(const ch: char; const len: byte): string;
var
i: byte;
begin
result := '';
for i := 1 to len do
result := ConCat(result, ch);
end;

procedure Triangle(const fileName: string);
var
f: Text;
ch: char;
begin
assign(f, fileName);
rewrite(f);

for ch := 'a' to 'z' do
writeln(f, BuildString(ch, 123 - ord(ch)));

close(f);
end;


Код
aaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbb
cccccccccccccccccccccccc
ddddddddddddddddddddddd
eeeeeeeeeeeeeeeeeeeeee
fffffffffffffffffffff
gggggggggggggggggggg
hhhhhhhhhhhhhhhhhhh
iiiiiiiiiiiiiiiiii
jjjjjjjjjjjjjjjjj
kkkkkkkkkkkkkkkk
lllllllllllllll
mmmmmmmmmmmmmm
nnnnnnnnnnnnn
oooooooooooo
ppppppppppp
qqqqqqqqqq
rrrrrrrrr
ssssssss
ttttttt
uuuuuu
vvvvv
wwww
xxx
yy
z


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


Цитата(mitz @ 19.04.2008 13:10) *

Помогите, пожалуйста, с задачей:
Описать и проверить процедуру triangl(t), формирующую текстовый файл t из 27 строк, в первой из которых 27 литер ‘а’, во второй – 26 литер ‘b’ и т.д., в 27-й одна литера ‘z’.

В общем, я задачу сделал, осталось только её немного доделать: добавить обзор для открытия текстового файла, а также, чтобы не появлялось сообщение "Файл успешно открыт" при случае, когда файл не открыт. smile.gif

Сообщение отредактировано: volvo -


Прикрепленные файлы
Прикрепленный файл  Program.zip ( 3.83 килобайт ) Кол-во скачиваний: 92
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

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

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


Спасибо за помощь! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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