Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Файлы

Автор: mitz 19.04.2008 16:10

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

Автор: feniks25 19.04.2008 17:07

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

Автор: mitz 1.05.2008 4:18

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

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

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

Автор: Гость 1.05.2008 12:51

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

Автор: klem4 1.05.2008 13:54

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

Автор: mitz 16.05.2008 16:47

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

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

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


Прикрепленные файлы
Прикрепленный файл  Program.zip ( 3.83 килобайт ) Кол-во скачиваний: 190

Автор: mitz 21.05.2008 19:18

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