Печать

xottabut · 02 мар 2009, 21:42

Всем привет.Ситуация такая Я самостоятельно начал изучать язык Паскаль по книге которую скачал Самоучитель Паскаля и Дельфи В книге есть упражнения и текст который надо набрать Это программа которая печатает но у меня нечего не происходит только Паскаль в 7.1 глючит сразу как запускаю вот текст программы помогите пожалуйста
program Printer123;
uses Printer;
var
a,b,S : integer;
begin
a :=8;
b :=4;
S :=a*b;
Writeln(Lst,'-----------------------------------');
Writeln(Lst,' Storona a Storona b Ploscha ');
Writeln(Lst,'-----------------------------------');
Writeln(Lst,' ,a:6, b:11, S:11, ':5);
Writeln(Lst,'-----------------------------------');
end.
Если здесь какие-то ошибки то исправте или может у меня нет каких-то модулей или ещё чего-то. Да а саму программу я скачивал установочным файлом если это нужно.
[CENTER]Заранее спасибо!

[/CENTER]

dr.Jekill · 03 мар 2009, 00:13

Так будет лучше:

Код: Выделить всё

 
uses Printer;
var
a,b,S:real;
begin
writeln('Vvedite shirinu: ');
readln(a);
writeln('Vvedite dlinu: ');
readln(b);
S:=a*b;
Writeln(Lst,'-----------------------------------');
Writeln(Lst,' Shirina | Dlina | Ploschad ');
Writeln(Lst,'-----------------------------------');
Writeln(Lst,a:9:2, '|', b:7:2,'|',S:7:2);
Writeln(Lst,'-----------------------------------');
end.

А вообще не компилировал. Но если принтер подключен через стандартный интерфейс (LPT), то по-идее должно работать.

xottabut · 03 мар 2009, 21:47

С компиляцией всё хорошо но у меня порт USB(при єтом программа также глючит как и раньше после ввода данных нельзя ничего сделать) как поменял на LPT После ввода данных всё хорошо только не печатает даже в ворде не печптает пишет ошибка как это исправить?

Naeel Maqsudov · 03 мар 2009, 22:33

&quot писал(а):начал изучать язык Паскаль

Главу про использование модуля Printer пропустите.
Она актуальна только для MS DOS.

Модуль ипользует функции DOS для вывода в файл с предопределенным именем PRN. Windows вряд ли это эмулирует. То есть Windows это наверняка эмулирует для параллельного порта (как было раньше) но в USB этот номер не пройдет никогда.

Попробуйте сами. Откройте окно CMD и сделайте

copy некийфайл.txt prn

Команда copy подвиснет. То же самое происходит и с Вашей программой.

xottabut · 03 мар 2009, 23:30

То значит печатать я не смогу.Учусь я недавно примерно две недели вот за єтой книгой http://tp7.info/ebook/paskal_i_delfi._samoucheitel.zip
что вы мне ещё посоветуете для хорошого изучения языка? Вы же всё-таки специалисты.

Naeel Maqsudov · 04 мар 2009, 10:14

В языковой группе Модула-Паскаль в настоящее время имеет смысл сконцентрироваться на Object Pascal.

dr.Jekill · 04 мар 2009, 13:28

Naeel Maqsudov писал(а):В языковой группе Модула-Паскаль в настоящее время имеет смысл сконцентрироваться на Object Pascal.

Эта чистая правда! Dos'овские приложения уходят в прошлое, Delphi forever.
По Паскалю рекомендую почитать В.В. Фаронова

xottabut · 04 мар 2009, 19:38

Если я правильно понял то Обект паскаль это дельфи или как?

dr.Jekill · 04 мар 2009, 23:34

xottabut писал(а):Если я правильно понял то Обект паскаль это дельфи или как?

В Delphi Вы помимо визуального программирования пишете на языке программирования Objet Pasal.

xottabut · 06 мар 2009, 23:07

Попала в руки такая книга "Персональные ЭВМ:ТурбоПаскаль в6.0, Объектное програмирование, Локальные сети.(учебное пособие)" Как думаете стоит читать а то что то здесь не очень понятно?
Автора:
Довгаль С.И. канд. техн. наук
Литвинов Б.Ю.
Сбитнев А.И. доктор техн. наук