Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
mrakrak
0 / 0 / 0
Регистрация: 17.01.2018
Сообщений: 15
#1

Составить программу вывода кодов и соответствующих им символов таблицы ASCII

18.01.2018, 07:57. Просмотров 731. Ответов 2

Составить программу вывода кодов и соответствующих им символов таблицы ASCII
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2018, 07:57
Ответы с готовыми решениями:

Поменять местами строки текста с наибольшим и наименьшим весом (вес-сумма ASCII-кодов символов)
uses crt; var a : array of string; i,n,x, sum : integer; begin ...

Составить программу для вычисления и вывода в виде таблицы следующих функций. Кроме этого добавить в основную программу две подпрограммы:
Добрый день!Помогите решить задачку. Составить программу для вычисления и...

Составить программу вывода на экран таблицы Пифагора для N чисел
Нужно мне решить ряд задачек, сей список см. ниже: Вариант 2 1. Составить...

Составить программу для вычисления и вывода на экран таблицы значений функции
Составить программу для вычисле-ния и вывода на экран таблицы значений функции....

Создать программу, коды символов в ASCII
Помогите сделать программу. С клавиатуры вводятся пять различных символов....

2
Puporev
Модератор
54388 / 41969 / 28988
Регистрация: 18.05.2008
Сообщений: 98,864
18.01.2018, 10:18 #2
Это Турбо Паскаль?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3811 / 2492 / 2055
Регистрация: 22.11.2013
Сообщений: 6,930
18.01.2018, 12:32 #3
Лучший ответ Сообщение было отмечено mrakrak как решение

Решение

Для Turbo Pascal
Pascal
1
2
3
4
5
6
7
8
var i, j, w: Word;
begin
  w:=$1700;
  for i:=0 to 15 do for j:=0 to 15 do begin
    MemW[$B800:i*160+j*2]:=w; Inc(w);
  end;
  ReadLn;
end.
Добавлено через 1 минуту
Хотя, тут коды надо руками считать, $10 строк по $10 символов в строке, начиная от 0.

Добавлено через 20 минут
Или немного красоты:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Crt;
var i, j: Word; c: Byte;
begin
  ClrScr; Write(' ');
  for i:=0 to 9 do Write(i:3);
  for i:=$A to $F do Write(Chr(i+Ord('A')-10):3);
  WriteLn;
  for i:=0 to 9 do WriteLn(i:2);
  for i:=$A to $F do WriteLn(Chr(i+Ord('A')-10):2);
  Window(3,2,50,17); TextAttr:=$1E; ClrScr;
  Window(1,1,80,25); GotoXY(1,18);
  c:=0;
  for i:=1 to 16 do for j:=1 to 16 do begin
    Mem[$B800:i*160+j*6]:=c; Inc(c);
  end;
  NormVideo; Write('Нажмите Enter...'); ReadLn;
end.
Добавлено через 12 минут
Или чуть проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Crt;
var i, j: Word; c: Char;
begin
  ClrScr; Write(' ');
  for c:='0' to '9' do Write(c:3);
  for c:='A' to 'F' do Write(c:3);
  WriteLn;
  for c:='0' to '9' do WriteLn(c:2);
  for c:='A' to 'F' do WriteLn(c:2);
  Window(3,2,50,17); TextAttr:=$1E; ClrScr;
  Window(1,1,80,25); GotoXY(1,18);
  c:=#0;
  for i:=1 to 16 do for j:=1 to 16 do begin
    Mem[$B800:i*160+j*6]:=Ord(c); Inc(c);
  end;
  NormVideo; Write('Нажмите Enter...'); ReadLn;
end.
Добавлено через 8 минут
Или даже так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses Crt;
const d: array [0..$F] of Char = '0123456789ABCDEF';
var i, j: Word; c: Byte;
begin
  ClrScr; Window(3,2,50,17); TextAttr:=$1E;
  ClrScr; Window(1,1,80,25); TextAttr:=$07;
  Write(' ');
  for i:=0 to $F do Write(d[i]:3); WriteLn;
  for i:=0 to $F do WriteLn(d[i]:2);
  c:=0;
  for i:=1 to 16 do for j:=1 to 16 do begin
    Mem[SegB800:i*160+j*6]:=c; Inc(c);
  end;
  Write('Нажмите Enter...'); ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2018, 12:32

Составить программу ввода и вывода матрицы 50*50.
Вычислить среднее арифметическое отрицательных чисел. Вывести результат...

Составить программу ввода и вывода двумерного массива
Составить программу ввода и вывода двумерного массива а, с размерностью 10х15

Составьте программу заполнения и вывода на экран таблицы Пифагора(умножения).
Двумерные массивы.(с процедурами и функциями). Составьте программу заполнения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru