Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Begin <операторы> end



Вывод результатов происходит по оператору write (write - писать) или writeln (writeln - писать в строку.

Арифметический оператор присваивания на Паскале имеет следующий формат:

<числовая переменная>:=
<арифметическое выражение>

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

Знаки основных арифметических операций записываются так:

+ сложение
- вычитание
* умножение
/ деление

Примеры программ на языке программирования Pascal

Линейная стуктура

Задача. Заданы длины двух катетов прямоугольного треугольника a, b. Вычислить длину гипотенузы с.

Program treug;
var a, b,c: real;
begin
write ('a='); read (a);
write ('b='); read (b);
c:=sqrt (a*a+b*b);
writeln ('c=', c:6:2);
end.

Ветвление

Задача. Упорядочить значение двух переменных X и Y по возрастанию.

Program Sorting;
var x, y, c: real;
begin
readln (x,y);
if x>y then begin
c:=x;
x:=y;
y:=c;
end;
write (x,y);
end.

Цикл

Задача. Дано N кубиков, на которых написаны разные буквы. Сколько различных N-буквенные слов можно составить из этих кубиков (слова необязательно должны иметь смысл)?

Program Words;
var f, n, r: integer;
begin
write ('введите число букв');
readln (n);
f:=1;
r:=1;
while r<=n do
begin
f:=f*r;
r:=r+1;
end;
write ('Из', n, 'букв можно составить ', f, 'слов');
end.





Дата публикования: 2015-01-26; Прочитано: 228 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.007 с)...