Программирование линейных алгоритмов

Простейшие программы:

1.    Набрать и выполнить программу; понять, как она работает.

Program Prog1;

var a, b : integer;

begin

  write('Введите число ');

  readln(a);

  b:=a*a;

  writeln('Квадрат этого числа = ',b);

end.

2.    Модифицировать программу (задание4) так, чтобы она:

•  вычисляла куб числа
• вводила не одно, а два числа, и вычисляла сумму их квадратов

Вычисления по формулам:

3. Задан квадрат с длиной стороны a. Найти его площадь и длину диагонали.

Этапы выполнения задания.

I. Определение исходных данных: переменная а (длина стороны).

II. Определение результатов: переменные S (площадь) и d (длина диагонали).

III. Алгоритм решения задачи.

1. Ввод исходных данных

2. Вычисление значений площади по формуле S = a2 и длины диагонали по формуле d=a*sqrt(2).

3. Вывод результата.

IV. Описание переменных:

Все переменные, определенные для решения задачи, имеют тип real.

V.  Программа: (Наберите эту программу)

Var a,S,d: real;

Begin

    Write(‘введите значение a=’);

    Readln(a);

        S:=SQR(a);

        D:=a*SQRT(2);

    Write(‘площадь=’,S:7:3);

    Write(‘длина диагонали=’,d:7:3);

End.

VI. Тестирование

1. Запустите программу и введите значения

a=2

Проверьте, результат должен быть следующим:

S=  4.000 d= 2,828

Проверить правильность вычислений можно на калькуляторе.

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

1. Даны целые числа x, y, c. Напишите программу, которая находит значение выражения  и выводит на экран монитора результат.
2. Даны стороны a и b прямоугольника. Вычислите периметр, длину диагонали и площадь прямоугольника.

Формулы: р=2*(a+b), s=a*b, d=sqrt(a*a+b*b)

3. Дана сторона a равностороннего треугольника. Вычислите периметр и площадь треугольника.

Формулы: р=3*a, s=a/2*sqrt(3)

4. Треугольник задан своими сторонами a, b, c. Используя формулу Герона
   (s=sqrt(p*(p-a)*(p-b)*(p-c)),  где р - полупериметр, р=(а+b+с)/2 ) вычислите площадь треугольника.
5. Задана температура в градусах по шкале Цельсия. Используя формулу перевода температуры из градусов по шкале Цельсия в градусы по шкале Фаренгейта    F = 1.8 С + 32 получите температуру по Фаренгейту.