В программе написал программу 1. Поместил ее в файл .txt (программа должна
текст выводить в файл). Далее написал программу 2 для ввода в нее программы 1
и выводы на печать. Скомпилировал. Но на печать не выводит. При компиляции внизу окна выходит сообщение:
Disk is not ready in drive D.
Это можно исправить?
Сама программа:
Это программа, которая выводит данные в файл. Данные-таблица квадратов от 0
до 999. Выводит 100 строк по 10 значений в каждой строке:
program tablitsa_kvadratov;
uses crt;
var a, b, z, k: longint;
o_f: text; begin
assign(o_f, 'c:\tablitsa.txt');
rewrite(o_f);
write(o_f, ' ':29, 'Tablitsa kvadratov');
for k :=0 to 4 do writeln(o_f);
z := 0; k :=0;
for a := 0 to 999 do
begin b := sqr(a);
inc(z);
inc(k);
write(o_f, ' ', b:6); if z=10 then
begin z := 0;
writeln(o_f):
end;
end;
close(o_f);
end.
А эта программа вводит данные из той и выводит их на печать:
program print;
uses crt;
const ff=#12;
var i_f, o_f: text;
z: integer; begin
assign(i_f, 'tablitsa.txt');
reset(i_f);
assign(o_f, 'prn');
rewrite(o_f);
z := 0; while not eof(i_f) do
begin readln(i_f);
writeln(o_f);
inc(z);
if z=70 then
begin z := 0; write(o_f, ff);
end;
end;
write(o_f, ff);
close(o_f);
close(i_f);
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.