Модератор: Модераторы
Код: Выделить всё
var n: integer;
begin
for n:=0 to 255 do
Writeln(n,' ', Char(n));
readln
end.
Brainenjii писал(а):Oleg_D: не знаю, считается ли это подсказкой, но если судить по книге - то к 24 главе Maxizar'овскую задачку решить вполне себе можно ^_^
Это нам, опытным волкам, все кажется просто.Paster Fob писал(а):Идём дальше.Oleg_D в вашей книге привидена таблица кодировок ASCII.Написано что от 0-31 это управляющие символы и даны их обозначения.Я запустил такую программку:Код: Выделить всё
var n: integer;
begin
for n:=0 to 255 do
Writeln(n,' ', Char(n));
readln
end.
В результате вышло совсем не так как в таблице.
Почему так или я опять что-то путаю?Да и кстати почему когда я запускаю эту программу пищит динамик в ПК?
Код: Выделить всё
const ckey=2;
function Crypt(arg:char):char;
var x:char;
begin
Crypt:=char(ord(arg)+ckey);
end;
function EnCrypt(arg:char):char;
var x:char;
begin
EnCrypt:=char(ord(arg)-ckey);
end;
var s:char;
begin
readln(s);
writeln(Crypt(s));
writeln(s);
writeln(EnCrypt(s));
writeln(s);
readln;
end.Код: Выделить всё
const ckey=2;
procedure Crypt(var arg:char);
var x:char;
begin
arg:=char(ord(arg)+ckey);
end;
procedure EnCrypt(var arg:char);
var x:char;
begin
arg:=char(ord(arg)-ckey);
end;
var s:char;
begin
readln(s);
Crypt(s);
writeln(s);
EnCrypt(s);
writeln(s);
readln;
end.Paster Fob писал(а):Получается что результат возвращённый через функцию,далее в программе не используется.Или опять что-то не то?
Код: Выделить всё
s:=Cript(s)Код: Выделить всё
var
s:char;
function Crypt(arg:char):char;
begin
s:=char(ord(arg)+ckey);
Crypt:=s
end;
Код: Выделить всё
function Crypt(var arg:char):char;
begin
arg:=char(ord(arg)+ckey);
Crypt:=arg
end;
Paster Fob писал(а):А как заставить компилятор вывести стандартные символы?
Андрей131289 писал(а):<1.1>
Андрей131289 писал(а):Подскажите пожалуйста что за ошибка
<1.1> Error: Illegal Expression
Graph прописан выше в самой програме;
Procedure doroga;
var i:integer;
begin
setcolor(6);
line(0,850,1440,850);
i:=0;
While i<=1440 do
begin
setcolor(2);
line(10+i,850,i,900);
i:=i+1;
end;
end.
Код: Выделить всё
Program Mashunka;
uses crt,graph;
var i:integer;
detect, mode: SmallInt;
procedure doroga;
var i:integer;
begin
setcolor(6);
line(0,850,1440,850);
i:=0;
While i<=1430 do begin
setcolor(2);
line(10+i,850,i,900);
i:=i+1;
end;
end;
procedure Znak;
begin
setcolor(0);
bar(1280,300,1300,850);
setcolor(15);
bar(1180,50,1400,300);
settextstyle(0,0,3);
setcolor(4);
outtextxy(1180,175,'START');
end;
procedure mashunca;
var i:integer;
begin
i:=10;
While i<=750 do begin
setcolor(0);
circle(90+i,750,100);
circle(490+i,750,100);
line(190+i,750,390+i,750);
line(590+i,750,690+i,750);
line(690+i,750,690+i,600);
line(690+i,650,40+i,600);
line(690+i,600,440+i,450);
line(440+i,450,90+i,450);
line(440+i,450,440+i,600);
line(90+i,450,-10+i,750);
line(240+i,450,240+i,600);
i:=i+10;
end;
end;
begin
clrscr;
initgraph(detect, mode, '');
setbkcolor(7);
end.