Вот программа, рисующая маленького кита с фонтаном воды над ним. Сделано через закраску клеток роботом. Поле для робота для этого рисунка нужно в 16 столбцов и 14 строк (сам рисунок 14 на 12 клеток, и по одной клетке с каждой стороны на обязательные отступы от рисунка- так его лучше видно будет). Начальное положение робота- верхний левый угол.
Рисунок в программе можно задать любой, самому- там всё забито в виде текстовой строки (рисуется горизонтальная строка из клеток, начиная со следующей по диагонали клетки от верхнего левого угла- то есть, сам рисунок идёт с отступом в одну клетку от сторон поля). Для каждой клетки рисунка нужно указать- закрасить её, или оставить пустой. Пустые клетки отмечаются знаком равно (=), закрашенные клетки- ноликом (0), конец строки- точкой (её ставить обязательно в конце строки). Также, если после какого то момента в строке дальше идут только пустые клетки, то можно их знаками равно не указывать, а поставить перенос строки (точку).
На первом скрине показан сам рисунок кита, а на втором- как этот рисунок выглядит в программе, если её разбить на строки (так видно рисунок в строках программы, но правда так программа не заработает, придётся после составления рисунка в программе опять сделать строку символов цельной).
при а[ц]=".": нц пока слева свободно; влево кц; вниз
всё
кц
кон
А вот (на всякий случай) программа для чертёжника, рисующая жирафика (смотри третий скрин). Тут уже конечно не универсальная программа, а составленная конкретно для этого рисунка.
Запись 5 строк в файл }
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программа работает, и выводит '
+'данный текст, чтобы доказать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 четвертая');
writeln(outfile, 'Пятая строка');
CloseFile(outfile);
end;
// вывод на экран точнее в мемо или лист бокс
procedure TForm1.Button2Click(Sender: TObject);
begin
// выводим в мемо
Memo1.Lines.LoadFromFile('outfile.txt');
// либо в лист бокс как тебе лучше
ListBox1.Items.LoadFromFile('outfile.txt');
end;
// кнопка для закрытия
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
// событие onClose
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin
CloseAction:= caFree;
end
else begin
CloseAction:= caNone;
end;
end;
ЗДЕСЬ!
outfile.txt - это ваш файл(может создаваться автоматически
Объяснение:
Вот программа, рисующая маленького кита с фонтаном воды над ним. Сделано через закраску клеток роботом. Поле для робота для этого рисунка нужно в 16 столбцов и 14 строк (сам рисунок 14 на 12 клеток, и по одной клетке с каждой стороны на обязательные отступы от рисунка- так его лучше видно будет). Начальное положение робота- верхний левый угол.
Рисунок в программе можно задать любой, самому- там всё забито в виде текстовой строки (рисуется горизонтальная строка из клеток, начиная со следующей по диагонали клетки от верхнего левого угла- то есть, сам рисунок идёт с отступом в одну клетку от сторон поля). Для каждой клетки рисунка нужно указать- закрасить её, или оставить пустой. Пустые клетки отмечаются знаком равно (=), закрашенные клетки- ноликом (0), конец строки- точкой (её ставить обязательно в конце строки). Также, если после какого то момента в строке дальше идут только пустые клетки, то можно их знаками равно не указывать, а поставить перенос строки (точку).
На первом скрине показан сам рисунок кита, а на втором- как этот рисунок выглядит в программе, если её разбить на строки (так видно рисунок в строках программы, но правда так программа не заработает, придётся после составления рисунка в программе опять сделать строку символов цельной).
использовать Робот
алг
нач
цел ц
лит а= '===0=0.==0=0=0.====0.====0.==00000.=0000000.000000000=0==0.00=000000=0000.000000000==00.0000000000000.=00000000000.==000000000.'
вниз
нц для ц от 1 до длин(а)
вправо
выбор
при а[ц]="0": закрасить
при а[ц]=".": нц пока слева свободно; влево кц; вниз
всё
кц
кон
А вот (на всякий случай) программа для чертёжника, рисующая жирафика (смотри третий скрин). Тут уже конечно не универсальная программа, а составленная конкретно для этого рисунка.
использовать Чертежник
алг
нач
сместиться в точку(9, 20)
опустить перо
сместиться на вектор(2, -15)
сместиться на вектор(0, -5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, 5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, -5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, 5)
сместиться на вектор(-3, 0)
сместиться на вектор(0, -5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, 5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, -5)
сместиться на вектор(-1, 0)
сместиться на вектор(0, 7)
сместиться на вектор(-1, -1)
сместиться на вектор(0, 1)
сместиться на вектор(7, 0)
сместиться на вектор(-1, 13)
сместиться на вектор(0, 3)
сместиться на вектор(1, 1)
сместиться на вектор(0, -1)
сместиться на вектор(1, 1)
сместиться на вектор(0, -1)
сместиться на вектор(3, -1)
сместиться на вектор(0, -1)
сместиться на вектор(-3, -1)
поднять перо
сместиться в точку (0,0)
кон