Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
mrakrak
0 / 0 / 0
Регистрация: 17.01.2018
Сообщений: 15
#1

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

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

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

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

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

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

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

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

Создать программу, коды символов в ASCII - Pascal
Помогите сделать программу. С клавиатуры вводятся пять различных символов. Если код символа четный, то изменить этот символ на следующий...

2
Puporev
Модератор
53016 / 40827 / 14074
Регистрация: 18.05.2008
Сообщений: 94,973
18.01.2018, 10:18 #2
Это Турбо Паскаль?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3648 / 2345 / 1238
Регистрация: 22.11.2013
Сообщений: 6,351
18.01.2018, 12:32 #3
Для 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. - Pascal
Вычислить среднее арифметическое отрицательных чисел. Вывести результат вычисления. Заранее спасибо.

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

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

написать программу вывода на печать количества повторений комбинации символов 'ABC' в строке - Pascal
привет! помоги пожалуйста кто чем сможет! вот задачи: 1) имеются 2 строки A, B длиной по 30 символов и переменная N. Необходимо...


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

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

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