Pascal. Задачи на линейные алгоритмы

Линейный алгоритм — набор команд (указаний), выполняемых последовательно друг за другом. Эти команды выполняются однократно и представляют собой цепь простых действий.  Например,"после школы иду домой" - "делаю уроки" - "иду гулять"  - линейный алгоритм из трех действий. Линейные алгоритмы легко представить в виде блок-схем:

Задача 1. Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.

program WriteThree;
var
 a, b, c: integer;
begin
  readln(a, b, c);
  writeln(c, ' ', b, ' ', a)
end.

Задача 2. Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.

program SqrOfNum;
var
 a: word;
begin
  readln(a);
  a := a * a;
  writeln(a)
end.

Задача 3. Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.

program ReverseNum;
var
 n, a, b, c: word;
begin
  readln(n);
  a := n mod 10;
  n := n div 10;
  b := n mod 10;
  n := n div 10;
  c := n;
  n := 100 * a + 10 * b + c;
  writeln(n)
end.

Задача 4. Обменять значения двух переменных, используя третью (буферную) переменную.

var x, y, b: integer;
begin
 write ('Input first number: ');
  readln (x);
  write ('Input second number: ');
  readln (y);

  writeln ('x = ', x, ', y = ', y);
  writeln ('Changing values... changing values...');

  b := x;
  x := y;
  y := b;

  writeln ('x = ', x, ', y = ', y);
  readln
end.

Задача 5. Дан радиус шара. Найти его объем.

Program begin_9;

uses crt;

var r,V: real;

Begin

  ClrScr;

  Writeln('введите радиус r'); readln(r);

  V:=4/3*PI*sqr(r)*r;

  writeln('объем равен',v:4:2);

  Readln;

end.

Задача 6. Три сопротивления R1, R2 и R3соединены параллельно. Найти сопротивление соединения R0.

Program begin_8;

var r1,r2,r3,r0:real;

begin

  writeln('введите сопротивление R1');

  readln(r1);

  writeln('введите сопротивление R2');

  readln(r2);

  writeln('введите сопротивление R3');

  readln(r3);

  r0:=1/(1/r1+1/r2+1/r3);

  writeln('общее сопротивление R0',r0:4:4);

  Readln;

End.

Задача 7. Обменять значения двух переменных, используя третью (буферную) переменную.

var x, y, b: integer;
begin
 write ('Input first number: ');
  readln (x);
  write ('Input second number: ');
  readln (y);

  writeln ('x = ', x, ', y = ', y);
  writeln ('Changing values... changing values...');

  b := x;
  x := y;
  y := b;

  writeln ('x = ', x, ', y = ', y);

  readln
end.

Задачи для самостоятельного решения

1. Даны координаты диагонали прямоугольника.  Найти его площадь.

2. Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3). Найти площадь треугольника (используя формулу Герона).

3. Дан цилиндр, с заданным радиусом основания r и высотой h. Найти объем цилиндра.

4. Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.

5. Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.

6. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

7. Ввести трехзначное число a. Поменять крайние цифры числа местами.

8. Ввести двузначное число a. Поменять цифры числа местами.

9. Найти площадь кольца по заданным внешнему и внутреннему радиусам.

10. Дана масса в килограммах. Найти число полных центнеров в ней.

11. Дано расстояние в сантиметрах. Найти число полных метров в нем.