Реферат: Первоначальные сведения о программировании на языке Pascal

Например, следующая функция возвращает True, если её аргумент — простое число, и False — в противном случае:

Function Simple (Pr : Integer) : Boolean;

Var I : Integer; LogPer : Boolean;

Begin I := 2; {счетчик}

Repeat

LogPer := (Pr Mod I = 0); {логическая переменная, принимающая значение TRUE,

если число Pr составное}

I := I + 1

Until (I > Pr Div 2 + 1) Or (LogPer);

{цикл завершаем в том случае, когда счетчик становится больше половины

данного числа или обнаруживаем, что число составное}

Simple := Not LogPer

{значение функции равно TRUE, если число простое, и FALSE — в противном случае}

End;

Рассмотрим примеры задач, где алгоритм решения является линейным.

Задача 1. Скорость первого автомобиля v1 км/ч, второго — v2 км/ч, расстояние между ними s км. Какое расстояние будет между ними через t ч, если автомобили движутся в разные стороны?

Согласно условию задачи искомое расстояние s1=s+(v1+v2)t (если автомобили изначально двигались в противоположные стороны) или s2=|(v1+v2)t-s| (если автомобили первоначально двигались навстречу друг другу).

Чтобы получить это решение, необходимо ввести исходные данные, присвоить переменным искомое значение и вывести его на печать.

Program Car;

Var V1, V2, T, S, S1, S2 : Real;

Begin

Write('Введите скорости автомобилей, расстояние между ними и время движения:');

ReadLn(V1, V2, S, T);

S1 := S + (V1 + V2) * T;

S2 := Abs((V1 + V2) * T - S);

WriteLn('Расстояние будет равно ', S1:7:4, ' км или ', S2:7:4, ' км')

End.

Заметим, что идентификатор должен начинаться с латинской буквы, кроме латинских букв может содержать цифры, знак подчеркивания (_).

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