Презентация, доклад на тему Алгоритмы Паскаль (9 класс)

присваивание;
ввод;
вывод;
обращение к вспомогательному алгоритму;
цикл;
ветвление.

выражение:


на языке программирования выглядит так:
sqr(sqr(x)-y*3/4)-sqrt(x^3).

Блез Паскаль

целая и дробная часть отделяются точкой

можно использовать русские буквы!

может принимать два значения:
True (истина, «да»)
False (ложь, «нет»)

Объявление переменных (выделение памяти):

var a, b, c: integer;

variable – переменная

тип – целые

список имен переменных

Writeln('Введите значение 2 числа:');
readln(y);
Writeln('Введите значение 3 числа:');
readln(z);
Writeln('Введите значение 4 числа:');
readln(e);
Sr := (x+y+z+e)/4;
writeln('Среднее значение: ',Sr);
end.

умножение

деление

деление нацело

остаток от деления

<имя переменной> := <выражение>;

Какие операторы неправильные?

имя переменной должно быть слева от знака :=

целая и дробная часть отделяются точкой

нельзя записывать вещественное значение в целую переменную

Как вводить два числа?
через пробел:
25 30
через Enter:
25
30

writeln ( 'Привет!' ); { вывод текста}

writeln ( 'Ответ: ', c ); { вывод текста и значения переменной c}

writeln ( a, '+', b, '=', c );

Простейшее решение:

program qq;
var a, b, c: integer;
begin
read ( a, b );
c := a + b;
writeln ( c );
end.

Протокол:
Введите два целых числа
25 30
25+30=55

компьютер

пользователь

136 mod 10 =

Особенности:
перед else НЕ ставится точка с запятой
если в блоке один оператор, можно убрать слова begin и end

Особенности:
если в блоке один оператор, можно убрать слова begin и end

2. Определите значение переменной c после выполнения следующего фрагмента программы:
a := 6;
b := 15;
a := b – a*2;
if a > b then
c := a + b
else c := b – a;

1. Написать программу решения задачи:

Увеличение переменной на 1(шаг 1):

for <переменная> := <начальное значение> downto
<конечное значение> do begin
{тело цикла}
end;

Уменьшение переменной на 1 (шаг -1):

for i:=1 to 8 do
writeln('Привет');

n := 8;
for i:=1 to n do begin
writeln('Привет');
n := n + 1;
end;

нет зацикливания

while (a {тело цикла}
end;

while a < b do
a := a + 1;

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

repeat
<тело цикла>
until <условие>

ЗАДАЧА

s:=s+a*a;

a:=a+1;

end;

writeln(s);

end.

s:=s+a*a;

writeln (s);

end.

Особенность:
одинаковые действия выполняются 8 раз.

тело цикла

i, i1, i2

переменная
цикла

начальное значение

конечное значение

for i:=8 1 do begin
i1 := i*i;
i2 := i1*i;
writeln(i, i1, i2);
end;

downto

имя

начальный индекс

конечный индекс

тип
элементов

var A: array[1.. ] of integer;

const N=5;

N

var A : array[ 1 .. 5 ] of integer ;

A['b']

['a'..'z']

var a: array [0..9] of integer;
...
A[10] := 'X';

for i:=1 to N do begin
write('a[', i, ']=');
read ( a[i] );
end;

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

for i:=1 to N do a[i]:=a[i]*2;

writeln('Массив A:');
for i:=1 to N do write(a[i]:4);

Массив A:
10 24 68 112 26

РЕШЕНИЕ:

c:=0;
for i:=1 to 5 do begin
c:=c + N[i];
k:=c/5;
end;

write('среднее', k:6:2);

end.