Помощь студентам и школьникам
Псевдографика
Компилятор паскаля не воспринимает комбинацию Alt+цифра для рисования таблицы.
Ответ. Не совсем понятен вопрос и проблема. В компиляторе Alt-ввод зачем? Скорее всего речь все же идет о редакторе, а не о компиляторе. Если так, то попробуйте в редакторе сразу писать код символа или, например, набирать в другом редакторе, а в редактор Паскаля вставлять. Кстати, вот в этом редакторе Alt-ввод превосходно работает: http://primat.org/index/0-128
Ответ. Не совсем понятен вопрос и проблема. В компиляторе Alt-ввод зачем? Скорее всего речь все же идет о редакторе, а не о компиляторе. Если так, то попробуйте в редакторе сразу писать код символа или, например, набирать в другом редакторе, а в редактор Паскаля вставлять. Кстати, вот в этом редакторе Alt-ввод превосходно работает: http://primat.org/index/0-128
Псевдографика в Паскале
Проблема в создании кода для вывода псевдографической таблицы. пользуюсь компилятором PascalABC.NET. По Вашей ссылке http://primat.org/index/0-128 тоже не получилось.Похоже я что то не так делаю.Пример:
begin
writeln(' Alt+179 '); //вывод вертикальной черты
end.
При нажатии Alt рабочее окно компилятора сразу становится неактивным.
Ответ.
1) Насколько нам известно, PascalABC.NET не поддерживает символы пседографики.
2) Код типа Alt+179 нельзя вставить в код программы. Это лучше делать с помощью кода символов напрямую. Например вот так:
3) В PascalABC.NET попробуйте код:
Ответ.
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.
Ответ. Очень просто - находим интернет-страницу с символами псевдографики и дальше 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.
А после удаления поставьте эти бегины и энды правильно (внутри условного оператора а не снаружи)
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);
if (1<=a)and (a<=100) then
writeln('введенное число в диапазоне от 1 до 100')
else
writeln('ошибка ввода');
assign(t,'output.txt');
rewrite(t);
write (t,a);
close (t);
end.
А после удаления поставьте эти бегины и энды правильно (внутри условного оператора а не снаружи)
Степени двойки в таблице
Напишите программу, которая выводит на экран таблицу степеней двойки (от нулевой до десятой). Рекомендуемый вид экрана после выполнения :
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
Решение задачи:
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
Решение задачи:
program stepen; // Pascal [fpc 3.0.4] var i,s:integer; begin s:=1; writeln('0':6,'1':6); for i:=1 to 10 do begin s:=s*2; write(i:6); writeln(s:6) end end.