Читайте также:
|
Var
r: Real; { переменная вещественного типа }
i: Integer; { переменная целого типа }
c: Char; { переменная-символ }
b: Boolean; { логическая переменная }
Операции и стандартные функции Турбо-Паскаля
| МАТЕМАТИЧЕСКИЕ ОПЕРАЦИИ | ||
| Условный знак | Выражение | Название операции |
| * | x*y | Умножение |
| / | x/y | Деление |
| div | N div M | Деление |
| mod | N mod M | Остаток от деления |
| + | x + y | Сложение |
| ОПЕРАЦИИ СРАВНЕНИЯ | ||
| = | x=y | Равно |
| <> | X<>y | Не равно |
| > | x>y | Больше |
| < | x<Y< td> | Меньше |
| >= | x>=y | Больше или равно |
| <= | x<=y | Меньше или равно |
| МАТЕМАТИЧЕСКИЕ ФУНКЦИИ | |
| Наименование функции | Результат вычесления |
| abs(x) | Абсолютное значение "x" |
| sin(x) | Синус"x"рад |
| cos(x) | косинус"x"рад |
| arctan(x) | арктангенс "х" (-Pi/2 < y < td)< 2 Pi> |
| Sqrt(x) | квадратный корень из "х"(где x > 0) |
| Sqr(x) | значение "х" в квадрате (х2) |
| Exp(x) | значение "е" в степени "х" (ех, где e= 2. 718282...) |
| Ln(x) | натуральный логарифм "х" (х > 0) |
| Frac(x) | дробная часть "х" |
| Int(x) | целая часть "х" |
| Random | случайное число (0 < =y< 1) |
| Random(x) | случайное число (0 < =y< x) |
| Succ(c) | следующий за "с" символ |
| Pred(c) | предшествующий "с" символ |
Операторы Турбо-Паскаля
· Оператор присваивания: (:=)
· Составной оператор: Begin "операторы"; End;
· Операторы ввода данных с клавиатуры Read или Readln;
· Операторы вывода данных на экран Write или Writeln;
№1. Вычислить значения выражения по формуле:
Program N1;
Var
X,Y: integer;
S: real;
Begin
Writeln (‘Введите значения X и Y через пробел’);
Readln (X,Y);
S:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x)*sqr(y)))+x;
Writeln (‘Результат: ’,S);
Readln;
End.
№2. Возвести положительное число "x" в степень"n", т. е. y = xn. Расчет производится по формуле: y=Exp(n*ln(x)).
Begin
Writeln ('Программу разработал Иванов'); Writeln ('Возведение положительного числа x степень n'); Write ('x = '); Readln (x); Write ('n = '); Readln (n);y:= exp(n*ln(x)); Writeln ('результат y=', y:10:6); Readln; {задержка экрана до нажатия Enter}End.
Паскаль. Программы с ветвлением.
Полный условный оператор имеет вид:
IF <условие> THEN <оператор1>
ELSE <оператор2>;
Замечание. Перед ELSE точка с запятой не ставится!
Неполный условный оператор имеет вид:
IF <условие> THEN <оператор1>;
Ветвь ELSE может отсутствовать, если в случае невыполнения условия ничего делать не надо.
...
№1. Вычисление квадратного корня из числа "a" (проводится при условии a>=0).
Program KOREN;
Var a: integer;
b: real;
Begin
Writeln (‘Введите целое число’);
Readln (a);
IF a>=0 Then b:= Sqrt(a) Else Writeln ('a<0'); Writeln (b); Readln;End;Определения весовой категории в зависимости от веса спортсмена.
PROGRAM VES;CONST A1='легкая категория'; A2='средняя категория'; A3='тяжелая категория'; A4='сверхтяжелая категория';Var V: integer; BEGIN Writeln ('введите вес спортсмена V = ');Readln (v); if V<62 then Writeln (A1) else if V<75 then Writeln (A2) else if V<88 then Writeln(A3) else Writeln(A4) Writeln('Нажмите Enter'); Readln;End.Операторы цикла с условием
В Турбо-Паскале применяются два оператора цикла с условием:
1) While <условие> Do <оператор>; - цикл с предусловием (проверка условия перед каждым выполнением "оператора"), 2) Repeat <операторы> Until <условие>; - цикл с постусловием (проверка условия после каждого выполнения "операторов").| Цикл WHILE | Цикл REPEAT |
| 
|
Схема выполнения операторов имеет вид:
В цикле While "оператор" выполняется если условие верно (True), если условие ложно (False), то цикл заканчивается, т. е. цикл While повторяется пока выполняется условие. Цикл While начинается проверкой условия, поэтому, если начальное условие ложно, то "оператор" не выполняется ни разу. Для включения в тело цикла нескольких операторов применяется составной оператор: Begin "операторы" end.
Цикл Repeat повторяется, если условие ложно (False), и заканчивается, если условие верно (True), т. е. цикл Repeat повторяется до выполнения условия.
Цикл Repeat заканчивается проверкой условия, поэтому "операторы" выполняются не менее одного раза. В теле цикла может записываться более одного оператора.
Циклы с условием обычно используются в тех случаях, если количество повторений блока операторов заранее не известно, например, при расчете суммы членов бесконечного ряда с заданной погрешностью.
Цикл с параметром
Оператор цикла применяется при выполнении расчетов или других действий, повторяющихся определенное количество раз. Оператор имеет вид:
For i:= N1 To N2 Do <оператор>; либо For i:= N1 DownTo N2 Do <оператор>;
Здесь i - параметр цикла (переменная порядкового типа),
N1, N2 - начальное и конечное значения параметра цикла i.
N1, N2 могут быть константами, переменными или выражениями порядкового типа.
Напомним, что "оператор" может иметь вид: Begin "операторы" end;
В случае связки "To" цикл выполняется при условии N1 <= N2 и происходит с единичным возрастанием параметра цикла i от N1 до N2. В случае связки DownTo цикл выполняется при условии N1 >= N2 и происходит с единичным уменьшением параметра цикла i от N1 до N2.
В операторе цикла не разрешается присваивать параметру цикла какое-либо значение.
Пример 1: Найти сумму всех n-значных чисел, кратных k (1 £ n £ 4).
Program P1;
Var I,S,K: integer;
Begin
Writeln (‘Введите K’);
Readln (K);
S:=0;
For I:=1 to 9999 do
If I mod K=0 then S:=S+I;
Writeln (‘Результат: ’,S);
Readln;
End.
Пример 2: Вычислить конечную сумму последовательности:
12 + 32 + 52 +... + (2*N-1)2; Sn = N*(4*N2-1)/3;
Дата добавления: 2015-04-12; просмотров: 79 | Поможем написать вашу работу | Нарушение авторских прав |