Паскаль Алгоритмический язык

алг деление дробей цел a,b,c,d,m,n нач ввод a,b,c,d m:=axd n:=bxc вывод m,n кон

Program Division;
var a,b,c,d,m,n: integer;
begin
readln (a,b,c,d); {ввод}
m:=a*d; {числитель}
n:=b*c; {знаменатель}
write (m,n); {вывод}
end.

 

Заголовок программы начинается со слова Program (программа), за которым следует произвольное имя, придуманное программистом.

Program <имя программы>;

Раздел описания переменных начинается со слова Var (variables - переменные), за которым идет список имен переменных через запятую. Тип указывается после двоеточия. В стандарте языка Паскаль существует два числовых типы данных: вещественный и целый. Слово integer обозначает целый тип (является идентификатором целого типа). Вещественный тип обозначается словом real. Например, раздел описания переменных может быть таким:

Var a, b: integer; c,d:real;

Идентификаторы переменных составляются из латинских букв и цифр; первым символом обязательно должна быть буква.

Раздел операторов (оператор - команда алгоритма, записанная на языке программирования) - основная часть программы. Начало и конец раздела операторов программы отмечается служебными словами begin (начало) и end (конец). В самом конце программы ставится точка.

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 writeln (‘x>y’) else writeln (‘x<y’);
end.

Цикл

Задача. Составить программу, которая вычисляет и печатает площади 20 квадратов со сторонами от 1 до 20.

Program two;

Var

x,s: real;

Begin

x:=1;

writeln (‘сторона площадь’); {печать шапки таблицы}

while x<=20 do {пока выполняется условие выполняй}

Begin

s:=x*x; {тело цикла}

writeln (x, ‘ ‘, s);

x:=x+1; {изменение параметра цикла с шагом 1}

end;

End.

 

 

2. Практическое задание Работа с архиваторами winrar, zip. Создание архива папки, разархивирование. Антивирусные программы. Использование и настройка антивирусных программ.

Теория: В недалеком прошлом размер жесткого диска (винчестера) исчислялся несколькими десятками мегабайт, да-да именно мегабайт, а не несколькими сотнями гигабайт, как сейчас.

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

Иногда просто необходимо хранить файлы в архивах. Прежде всего они меньше занимают места на диске и, кроме того, несколько файлов можно поместить в один.
Папки, подлежащие передаче через Интернет обязательно подлежат архивации с целью уменьшения их размера. Тем более, если вы скачали программу, она будет находиться в архиве, который легко распаковать.

Что же такое архивация и сжатие файлов?