Консультация № 177343
19.03.2010, 02:16
0.00 руб.
0 5 1
Здравствуйте уважаемые эксперты!

Помогите составить блок схему и программу, которая выводила бысимволы в виде таблицы, в каждой строке по 27 символов.

Жду Ваших ответов!!!

Обсуждение

давно
Академик
320937
2216
19.03.2010, 08:59
общий
Евгений [eXill@nD] Малясёв :
Таблицу символов ASCII или что-то другое?
давно
Профессионал
2405
441
19.03.2010, 09:24
общий
честно говоря не знаю, в учебнике не сказано какие именно символы. сделайте как нибудь, как вы знаете.
давно
Академик
320937
2216
19.03.2010, 11:13
общий
Евгений [eXill@nD] Малясёв :
Так? (Turbo Pascal 7)
Код:

program ascii;
uses
Crt;
var
i,n : 0..255;


begin
ClrScr;
write('n=');
readln(n); {n=26}
for i:= 0 to 255 do
begin
if (i mod n = 0) and (i>0) then
writeln;
if i in [0,7,8,10,13] then
write(' ':1)
else
write(chr(i):1);
write(chr(179));
end;
writeln;
readln;
end.

давно
Профессионал
2405
441
19.03.2010, 19:40
общий
да именно этот язык, и эти символы. а блок схему можно?! очень нужно!!!
давно
Академик
320937
2216
20.03.2010, 09:03
общий
это ответ
Здравствуйте, Евгений [eXill@nD] Малясёв! Программа в приложении (Turbo-Pascal 7).
Блок-схема здесь: 177343.ZIP (3.3 кб)


Приложение:
program ascii;
{ вывод символов ascii }
uses
Crt;
var
i,n : 0..255;


begin
ClrScr;
write('n=');
readln(n); {n=27}
for i:= 0 to 255 do
begin
if (i mod n = 0) and (i>0) then
{ новая строка }
writeln;
if i in [0,7,8,10,13] then
{ неотображаемые символы }
write(' ':1)
else
write(chr(i):1);
write(chr(179));
end;
writeln;
readln;
end.
5
ОГРОМНОЕ СПАСИБО!!!
Форма ответа