Псевдографика

Компилятор паскаля не воспринимает комбинацию Alt+цифра для рисования таблицы.
Ответ. Не совсем понятен вопрос и проблема. В компиляторе Alt-ввод зачем? Скорее всего речь все же идет о редакторе, а не о компиляторе. Если так, то попробуйте в редакторе сразу писать код символа или, например, набирать в другом редакторе, а в редактор Паскаля вставлять. Кстати, вот в этом редакторе Alt-ввод превосходно работает: http://primat.org/index/0-128
  • Игорь
  • Вопрос № 1

Псевдографика в Паскале

Проблема в создании кода для вывода псевдографической таблицы. пользуюсь компилятором PascalABC.NET. По Вашей ссылке http://primat.org/index/0-128 тоже не получилось.Похоже я что то не так делаю.Пример: begin writeln(' Alt+179 '); //вывод вертикальной черты end. При нажатии Alt рабочее окно компилятора сразу становится неактивным.
Ответ.
1) Насколько нам известно, PascalABC.NET не поддерживает символы пседографики.
2) Код типа Alt+179 нельзя вставить в код программы. Это лучше делать с помощью кода символов напрямую. Например вот так:
var
 i,j: integer;

begin 
 Write(' ');
 for i:=0 to 16 do Write(i:3);
 WriteLn;
 WriteLn;
 for i:=11 to 13 do begin
 Write(i*16:4,': ');
 for j:=0 to 16 do Write(Chr(i*16+j),' ');
 WriteLn;
 WriteLn
 end
end.
Попробуйте эту программу в Турбо Паскале.
3) В PascalABC.NET попробуйте код:
begin
 write('┘');
end.

псевдографика

Каким образом Вы ввели символ в пункте №3?
Ответ. Очень просто - находим интернет-страницу с символами псевдографики и дальше Ctrl+C и Ctrl+V (копируем и вставляем). Или в любом месте где поддерживается Alt-ввод, набираем нужный символ и дальше Ctrl+C и Ctrl+V.

псевдографика

У меня задание с помощью PascalABC.NET посредством ввода Alt-кода вывести на окно вывода таблицу состоящую из псевдосимволов (одинарных рамок,вертикальных линий и тд.), без всяких дополнительных редакторов и копирований. Похоже задача нерешаемая. Сори.
Еще нет ответа на этот вопрос.

запись в файл

как отменить вывод в файл результата не входящего в заданный диапазон.(с псевдографикой разобрался).
var a:integer;t:text;
begin
write('введите число : ');
readln(a);
begin
if (1<=a)and (a<=100) then
writeln('введенное число в диапазоне от 1 до 100')
else
writeln('ошибка ввода');
end;
begin
assign(t,'output.txt');
rewrite(t);
write (t,a);
close (t);
end;
end.
Ответ. Для начала удалите лишние бегины и энды из вашего кода:
var a:integer;t:text;
begin
write('введите число : ');
readln(a);
begin
if (1<=a)and (a<=100) then
writeln('введенное число в диапазоне от 1 до 100')
else
writeln('ошибка ввода');
end;
begin
assign(t,'output.txt');
rewrite(t);
write (t,a);
close (t);
end;
end.
А после удаления поставьте эти бегины и энды правильно (внутри условного оператора а не снаружи)