Что такое "Переменная" - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Текст программы(Выводит ASCII символы).
program ASCII_TABLE;
uses CRT;
var i : byte;
     j : byte;
    ch : byte;
    st : string[8];
begin
    GoToXY(2, 2);
    Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
    Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
     for j := 0 to 7 do
     for i := 0 to 15 do
begin 
     GoToXY(j*10+2, i+4);
     ch := i+(j*16);
     if ch < 10 then st := '     '
     else if ch < 100 then st := '     '
    Write(ch, st, Chr(ch));
end;
    GoToXY(2, 22);
    Write('Чтобы посмотреть следующую страницу, нажмите ENTER');
    Readln;
    ClrScr;
    GoToXY(2, 2); 
Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
 Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
 for j := 0 to 7 do
 for i := 0 to 15 do
 begin
 GoToXY(j*10+2, i+4);
 ch := i+(j*16) + 128;
 if ch < 10 then st := '     '
 else if ch < 100 then st := '    ' 
else st := '    ';
 Write(ch, st, Chr(ch));
 end;
 GoToXY(2, 22);
 Write('Нажмите ENTER для выхода из программы');
 Readln;
 end.
Я только начал изучать Паскаль и сразу возникли проблемы с переменными. Что это такое? Всё что я понял, это то что это определенно выделенный участок памяти. Но в таком случае какие манипуляции с переменными проводятся тут? Что значит в данном случае умножение и сложение?
GoToXY(j*10+2, i+4);
     ch := i+(j*16);
     if ch < 10 then st := '     '
     else if ch < 100 then st := '     '
    Write(ch, st, Chr(ch));
Этот участок программы вообще непонятен
if ch < 10 then st := '     '
     else if ch < 100 then st := '     '
    Write(ch, st, Chr(ch));

Решение задачи: «Что такое "Переменная"»

textual
Листинг программы
a := 6;

Объяснение кода листинга программы

  1. Объявление переменной a типа целое число и присвоение ей значения 6. a := 6;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы