вопрос по программированию

[tech]

как выводить ascii код символа нажатой клавиши?
на с и паскале интересует.

[K i r i L L]

ну например так:

Код:

#include <conio.h>
#include <stdio.h>

int main(){
 
  int key = getch();  //считываем
  printf("%d",key);     //выводим

  getch();

return 0;
}

[tech]

на с понятно. на паскале кто-нибудь подскажет?

[imperfect]

ну например так:

Код:

#include <conio.h>
#include <stdio.h>

int main(){
 
  int key = getch();  //считываем
  printf("%d",key);     //выводим

  getch();

return 0;
}

Извиняюсь за занудство, но решение  не очень красивое, ибо не нужно плодить сущности без необходимости
Заголовок conio.h нестандартен, поэтому будет работать не во всех компиляторах С.
Вместо функции getch(), ради которой он и подключается, я бы использовал функцию стандартной библиотеки getchar(). Исполняемый файл будет меньше по объему, и программа будет более переносимая.

Код:

#include<stdio.h>

int main()
{
	printf("%d", getchar());
	getchar();
	getchar();
	return 0;
}

Различие между функциями есть: getchar() выводит осуществляет буферизованное считывание символа, т.е. выводит его на экран и требует нажатия Enter.

Паскаль:

Код:

program trololo;

var
c: char;

begin
    readln(c);
    writeln(ord(c));
    readln
end.

[tech]

ord - это функция? чёто он просто символ выводит

[imperfect]

Да, ord - функция, возвращающая ascii-код аргумента.

Усомнился, скачал FreePascal и проверил - все работает.

[ExclusivE]

Код:

program trololo;
uses crt;

var
    c: char;

begin
    repeat
        repeat until keypressed; { жрать проц пока не нажата клавиша }
        c:=readkey;
        writeln(ord(c));
    until c<>^[; { пока не нажат esc }
end.

На паскале я не кодил уже лет 8. Скорее всего где-то ошибки.

[imperfect]

2ExclusivE: Смотрю, проект развивается. Уже вторая версия вышла.

[CRP]

да это мегапроект метрополиса!!! Давайте все вместе писать, на всех возможных языках программирования под все возможные платформы. И в гугле распиарим )

[tech]

оказалось, что нужно использовать прерывания.
эта программа через одно нажатие выводит символ, нужно чтоб вместо символа выводился его ascii код. тоже через раз.

program 1;
uses Crt;
var cha:char;
    bPrint:boolean;
begin
     bPrint:=True;
     while True do
     begin
          while not keypressed do;
       asm
      mov ah,0h
      int 16h
      mov cha,ah
       end;
          if cha=' ' then break;
          if bPrint
      then Begin
           asm
         mov dl,cha
         mov ah,2h
         int 21h
           end;
      end;
          bPrint:= not bPrint;
     end;
end.

[imperfect]

Возможно, у нас разные паскали, но в Турбе нужно заменить

mov cha,ah

на

Код:

mov cha,al

Вообще говоря, вывод ascii-кода через прерывание - нетривиальная задача, поскольку он может быть многосимвольным, например, '123'.
Поскольку прерывание 21h осуществляет вывод содержимого младшего байта регистра d (всего 1 символ), нужно реализовать продвинутую логику анализа ascii-кода, и несколько раз подряд делать int 21h.

Кстати, программа не может называться "1", в силу того, что идентификаторы не могут начинаться с цифры.

[tech]

Возможно, у нас разные паскали, но в Турбе нужно заменить

mov cha,ah

на

Код:

mov cha,al

действительно, напутал)

а на счёт тривиальности задачи - просто предмет, по которому это надо сделать, называется Интерфейсы Периферийных Устройств

[imperfect]

Может, надо через прерывания только считывание, а вывод просто так?

[tech]

может и так прокатит) есть идеи?