Файлы Опции

[mitz]

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

[Rian]

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

[mitz]

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

Да, на Делфи. Непонятно, как написать и проверить эту самую triangl(t).

[Гость]

Нельзя ли подробнее расписать, что в каждой строке должно быть, т.к. строк требуется 27, а литер всего 26?

[klem4]

27 строк врятли получится А вот 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

[mitz]

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

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

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

[mitz]

Спасибо за помощь!