var
F: Text;
X, Y: Integer;
begin
Assign(F, 'example.txt');
Rewrite(F);
for Y := 1 to 10 do begin
for X := 1 to 10 do begin
Write(F, X * Y:4);
end;
Write(F, Chr(13) + Chr(10));
end;
Close(F);
end.
Глупый вопрос
Здравствуйте!
Передо мной стала необходимость вспомнить Pascal, так вот, мне необходимо результаты рассчета занести в отдельный файл в виде таблицы,подскажите пожалуйста как это сделать.И не подскажите где можно скачать обучающую информацию по Pascal.:@@@:
Передо мной стала необходимость вспомнить Pascal, так вот, мне необходимо результаты рассчета занести в отдельный файл в виде таблицы,подскажите пожалуйста как это сделать.И не подскажите где можно скачать обучающую информацию по Pascal.:@@@:
Цитата:
Originally posted by TeRReN
мне необходимо результаты рассчета занести в отдельный файл в виде таблицы,подскажите пожалуйста как это сделать.
мне необходимо результаты рассчета занести в отдельный файл в виде таблицы,подскажите пожалуйста как это сделать.
Код:
Спасибо,только я не совсем понял как в таблицу вставить вместо нулей результаты вычисления.И не понял назначения некоторых строчек
write(F,X*Y:4);
...
Write(F,Chr(13)+Chr(10));
Объясните пожалуйста,почему 13 и 10,для чего 1я строчка.Мне надо чтобы в каждую ячейку таблицы вносились результаты вычисления выражения,как это сделать???
write(F,X*Y:4);
...
Write(F,Chr(13)+Chr(10));
Объясните пожалуйста,почему 13 и 10,для чего 1я строчка.Мне надо чтобы в каждую ячейку таблицы вносились результаты вычисления выражения,как это сделать???
Код:
write(F,X*Y:4);
X*Y - функция
4 - количество символов для данного значения
Код:
Write(F,Chr(13)+Chr(10));
для перевода строки
чтобы занести результаты вычисления
Код:
S := ....; {вычисляется переменная}
Write(F, S:8:2); {записывается результат}
{8 - количество символов для значения}
{2 - количество десятичных символов}
Write(F, S:8:2); {записывается результат}
{8 - количество символов для значения}
{2 - количество десятичных символов}
запись значений происходит по строкам слева направо, сверху вниз
Большое спасибо!Очень помогли!:D :D :D :D