Решить уравнение - Pascal ABC (14263)

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

Ребят, помогите пожалуйста! Мне нужно решить уравнение ord(x), при этом указать нижнюю, верхнюю границы и шаг. Надо, чтобы вывело "таблицу" значений этой функции.


textual

Код к задаче: «Решить уравнение - Pascal ABC (14263)»

var
  f, l, ch: char;
  h: byte;
 
begin
  write('Введите нижнюю границу: ');
  readln(f);
  write('Введите верхнюю границу: ');  
  readln(l);  
  write('Введите шаг: ');  
  readln(h);
  //f := #32; l := #64; //нижняя верхняя границы и шаг
  ch := f;
  while ch <= l do
  begin
    ch := chr(ord(ch) + h);
    writeln(ch:10, ord(ch):10);
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5

Источник