Лекции по "Языкам и методам программирования" (PascalABC)

Далее идут комментарии, которые программа при выполнении игнорирует.

Затем выполняется процедура Writeln(‘Ввести количество км и м’); -  на экране появится текст, написанный между апострофами.

Затем выполняется процедура Readln(a,b); , которая выполнение программы приостановит. Программист должен с помощью клавиатуры набрать числа 5 и 367 (через пробел) и нажать клавишу Enter. Компьютер прочитает эти числа и отправит число 5 в переменную а, а число 367 в переменную b.

Далее будет выполнен оператор c:=a*1000+b;.  Этот оператор сначала вычислит значение a*1000+b, а затем полученное числовое значение отправит в переменную с.

Затем будет выполнена  процедура Writeln(a, ‘ км и ‘, b, ‘ м= ’,c, ‘ м’);, которая выведет на экран следующее сообщение 5 км и 367 м = 5367 м.

 

8. Понятие линейного алгоритма и графическое представление линейного алгоритма.

Следование. Эта базовая структура может состоять из блоков обмена информацией и функциональных блоков, которые должны следовать один за другим. Такую структуру схематически можно изобразить так:

Если алгоритм можно  представить только с помощью  базовой структуры следование, то такие алгоритмы называются линейными.

Задача. Поменяйте между собой значения двух переменных Х и У.

Program a1;

Var x, y, z: Real;

Begin

   Writeln( 'Ввести два числа  ' );

   Readln(x,y);

   {Выведем введенные значения на экран}

   Writeln('x=',  x:7:2,  ' y=',  y:7:2);

   z:=x;

   x:=y;

   y:=z;

   {Выведем  полученные значения на экран}

   Writeln('x=',  x:7:2,  ' y=',   y:7:2);

End.

Задача. Переменная Х содержит трехзначное целое число. Поместите в переменную S сумму цифр этого числа.

Program a2;

Var x, s, c, d, k: Integer;

Begin

   Writeln('Ввести  трехзначное целое число');

   Readln(x);

   {Выведем  введенное значение на экран}

   Writeln('x=',x:7);

   c:=x mod 10; {последняя цифра числа}

   d:=(x div 10) mod 10; {вторая цифра числа}

   k:=x div 100; {первая цифра числа}

   s:=c+d+k; {Сумма цифр числа}

   {Выведем  полученное значение на экран}

   Writeln('Сумма  цифр числа',  x:5, '=',  s);

End.

Задача. Даны координаты точек A(x1, y1), B(x2,y2). Найти расстояние между этими точками.

Program a3;

Var x1, y1, x2, y2, d: real;

Begin

   Writeln( 'Ввести координаты первой точки ' );

   Readln(x1, y1);

   Writeln( 'Ввести координаты второй точки' );

   Readln(x2, y2);

   d:=sqrt( sqr(x1-x2)+sqr(y1-y2)); {Вычисление расстояния между двумя точками}

   {Выведем  полученное значение на экран}

   Writeln( 'Расстояние =',  d:7:2);

End.

 

Вопросы для  самопроверки:

1. Как записываются комментарии в программе?
2. Где записываются комментарии в программе?
3. Как записывается процедура вывода?
4. Как переводится служебное слово в процедуре вывода?
5. Из чего может состоять список в процедуре вывода?
6. Что обозначает окончание ln в процедуре вывода?
7. Графическое изображение процедуры вывода.
8. Как записывается оператор присваивания?
9. Как работает оператор присваивания?
10. Что можно сказать о типах величин, которые входят в оператор присваивания?
11. Графическое изображение оператора присваивания.
12. Форматы вывода целых значений.
13. Форматы вывода вещественных значений.
14. Что такое тестирование программы?
15. Как записывается процедура ввода?
16. Из каких величин может состоять список процедуры ввода?
17. Как переводится служебное слово в процедуре ввода?
18. Что обозначает окончание ln в процедуре ввода?
19. Графическое изображение процедуры ввода.
20. Что такое структура следование?