Паскаль. Типы данных

в памяти PC
Операции на данными
В языке Паскаль (Делфи) типы данных

описание переменных в программе:
a) var переменная:тип данных;
b) var переменная1,переменная2:тип данных;


Вопрос:
Какие

Привет
Что будет происходить после ввода значений?

и передачи данных внутри программы.

переменная;
Значение (или значение переменной) которое ПЕРЕДАЕТСЯ переменной
Переменная которой ПРИСВАЕВАЕТСЯ значение

“54666”:
var x:string;
begin
x:=‘Текс’;
end.

экран значения переменной Y:

var x,y:byte;
begin
read(x);
y:=x;
write(y);
readln;
end.

значение “x”

числа X, где X - угол в радианах.

Ln(x)
Возвращает число,

результат на экран:

var x:byte;
begin
x:=2+6;
write(x);
end.

Вывести результат на экран.

var x:integer;
begin
read(x);
x:=x+1;
write(x);
end.

Вывести результат на экран.
Решение 1:
var x:integer;
begin
read(x);
x:=x*x;
write(x);
end.
Решение

100;
b := 30;
a := a – b *

значение и присваивает его переменной х

Read(x,y) - читает поочередно с

значение переменной x.

Write(‘text’) – выводит на экран текст, находящийся в

кода.
1
a:=3; d:=12;
write(a);
write(d);
2
a:=3; d:=12;
writeln(a+b);
write(d-a);
3
a:=3; d:=12;
write(‘Sum=’,a);
writeln(‘Y=’,d-a);



4
a:=3.0032; d:=12.9943;
write(‘Sum=’,a+d);
Y:=d-a;
write(‘Y=’,Y:5:2);
5
a:=3.12345; d:=12.1234;
write(‘a=’,a:4:2);
write(‘d=’,d:6:3);
6
a:=3.12345; d:=12.1234;
write(a:4:2,’ ‘, a:5:3);
write(d:6:3);

условие (простое или составное)
Оператор 1
Определение: “Оператор 1” выполняется

Описание 2: if условие then оператор 1 else оператор 2;

Определение: “Оператор 2” выполняется тогда и только тогда, когда “условие” является ложным!

оператор2;

Если условие истинно то оператор 1 иначе оператор 2;
Описание

P2;

If then P1;

If () or () then P1 else

Если условие выполняется, то оно считается истинным (true), если нет

Пример.
1.) Если x = 5, то x>3 – выражение будет истинно (true).
2.) Если x = 8, то x<=7 – выражение будет ложно (false).

о том является ли число отрицательным или положительным.
Решение

program test;
var x,y:integer;
begin
writeln('Введите число 1');
read(x);
writeln('Введите число 2');
read(y);
if x>y then

program chetno;
var x:integer;
begin
writeln('Введите число');
read(x);
if (x mod 2)=0 then write('Число четное')

2. Проверить делится ли число на 3.

Задача 3. Проверить является

(логическое “или”) – позволяют создавать составные логические выражения.
Таблица истинности для

Y = 6
Выражение (x5) – истинно
true
true
Выражение (x

false

true

Y = 6
Выражение (x5) – истинно
true
true
Выражение (x

false

true

Y = 6
Выражение (not x

false

больше 5 и меньше 20 одновремено.
Решение:

program test;
var x:integer;
begin
writeln('Введите число');
read(x);
if (x>5)

оператор 2;
...
оператор n;
end;



Открытие программных скобок
Закрытие
программных скобок

второй.

…
If x > y then
begin
c:=y;
y:=x;
x:=y;
end;
writeln(x,’ ’,y);
end.

Математическое описание
Разработка структуры программы

корень равен ’,x1);
writeln(‘Второй корень равен ’,x2);
End
Else
Writeln(‘Действ.корней нет’);
End.

корень равен ’,x2);
end;
If d = 0 then …
If d

больше подходит оператор case. Этот оператор называется оператором выбора и

case expression of     values_l: statement_l;      values_2: statement_2;     ...     values_n: statement_n;  else      statement;  end;

величины остатка от его деления на 17 следующим образом:

если N

mod 17 of     0                : N :=

            : N := 0;     1, 6       

if N mod 17=0 then N := 0; if (N mod 17=1) or
(N mod 17=6) then N:=-N;
if (N mod 17=2) or
(N mod 17=3) or
(N mod 17=5) then N:=2*N;
if N mod 17=4 then N:=3*N else  N := 5 * N;

I:4, ' в диапазоне 1 - 10'); 11..20 : Writeln ('число

+ 10; 2 : Z := I + 100; 3 : Z

of Winter : Writeln ('Winter'); Spring : Writeln ('Spring'); Summer : Writeln ('Summer'); Autumn

название.
var Day : byte; begin Write ('Введите номер дня недели (от 1

2 — вычитание, 3 — умножение, 4 — деление. Дан

(‘Введите первое число’); Read(a);
Writeln (‘Введите второе число, не равное

дня месяца (1,2,..,12) выводит на экран количество дней в этом

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

do оператор;

Оператор for вызывает оператор, находящийся после слова do, по

х:=1 to 16 do WriteLn(x);
…

to 10 do WriteLn(‘8 * ‘,i,’= ’,8*i);
…

(N > 0).

Вывести N раз число К.

for i:=1 to

(А < В). Вывести в порядке возрастания все целые числа,

(А < В). Вывести в порядке убывания все целые числа,

Вывести стоимость 1.2,1.4, ..., 2 кг конфет.
var i:integer; Cena,

< В). Найти сумму всех целых чисел от А до

все нечетные значения от 1 до n.
Рассчитать значения у для

зависимости от результата этой проверки происходит либо выход из цикла,

с постусловием всегда выполняется хотя бы один раз, а тело

постоянную память компьютера. Это определенная выделенная  область информации.

Var f1,

отладке;
большое количество входных данных (тот, кто вручную тестировал прогрраммы с

файловой переменной и самим файлом
reset(f); — Открыть для чтения. Если

переменные a и b. После выполнения этой процедуры указатель в

файловую переменную
Rewrite(Vf); //создает файл 'work.dat'
CloseFile(Vf); //закрывает файл