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

> ВНИМАНИЕ!

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

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


Новичок
*

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

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


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


Знаток
****

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

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


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


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


Новичок
*

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

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


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

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

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


Гость






Нельзя ли подробнее расписать, что в каждой строке должно быть, т.к. строк требуется 27, а литер всего 26?
 К началу страницы 
+ Ответить 
klem4
сообщение 1.05.2008 9:54
Сообщение #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 
 К началу страницы 
+ Ответить 
mitz
сообщение 16.05.2008 12:47
Сообщение #6


Новичок
*

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

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


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

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

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

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


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


Новичок
*

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

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


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

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

 

- Текстовая версия 28.07.2025 10:30
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"