Алгоритм — это конечная последовательность действий направленная на

Алгоритм - это конечная последовательность действий направленная на решение поставленной задачи. Что называют алгоритмом? Как называется раздел информатики изучающий алгоритмы? Алгоритмизация (Программирование). Какие бывают формы записи алгоритмов? Словесная. Графическая (блок-схема). Программа на языке программирования.

Что такое язык программирования? Какой язык программирования вы изучали в 7-8 классах? PASCAL Что такое система программирования и какой системой вы пользуетесь? PASCAL ABC

Integer Real Целый тип данных Вещественный тип данных Program Primer; Uses crt; Var a:integer; b,s:real; Begin … End.

Program Primer; Uses crt; Var a:integer; b,s:real; Begin Write(‘a, b - ’); End. a, b - Write() Writeln() Команда вывода Команда вывода с переходом на новую строку

Program Primer; Uses crt; Var a:integer; b,s:real; Begin Write(‘a, b - ’); Readln(a,b); End. a, b - Read() Readln() Команда ввода Команда ввода с переходом на новую строку 2 5.38 2 5.38

Program Primer; Uses crt; Var a:integer; b,s:real; Begin Write(‘a, b - ’); Readln(a,b); s:=a+b; Write(‘ сумма = ’, s); End. a, b - := Команда присваивания 2 5.38 2 5.38 7.38 сумма = 7.38

Арифметические операции div mod деление нацело Пример: а:=7 div 2, a=3 остаток от деления нацело Пример: b:=7 mod 2, b=1 + сложение - вычитание * умножение / деление

Стандартные функции sqr(x) = x2 abs(x) = |x| sqrt(x) =

Какую команду нужно использовать для того, чтобы из двух наборов команд выполнился один? if условие then begin набор команд ДА; end else begin набор команд НЕТ; end; Команда ветвления (if) в полной форме

if условие then begin набор команд ДА; end; Команда ветвления (if) в сокращенной форме Какую команду нужно использовать для того, чтобы набор команд либо выполнялся, либо нет ?

Простые условия =, <, >, <=, >=, <> Пример: а>b, 2*s-5<>d. Число х меньше квадрата числа y. Сумма чисел а и b больше удвоенной разности х и у. Модуль числа w меньше 5. Величина v – нечетная x делиться на 6 x < sqr(y) x < y*y a+b > 2*(x-y) abs(w) < 5 v mod 2 <> 0 x mod 6 = 0

Простые условия abs(y)>z+x z>y/x 2*z<>abs(x+y) истина (ДА) истина (ДА) ложь (НЕТ) Укажите истинность условий при x=2, y=-5, z=1.5

Составные условия and (и), or (или), not (нет) (x>y) and (y>z) (x>y) or (y>z) not (y>z)

Составные условия and (и), or (или), not (нет) a=5, b=7, c=0 (a>b) and (b>c) a=5, b=7, c=0 (a

Составные условия and (и), or (или), not (нет) величины x или y - положительны. x делится без остатка на 2 и на 3 -3 0) or (y > 0) (x mod 2 = 0) and (x mod 3 = 0) (x > -3) and (x <= 10)

Цикл For (цикл с параметром) Какие команды нужно использовать для того, чтобы набор команд выполнялся несколько раз? Цикл While (цикл с предусловием)

Цикл For For i:=N1 to N2 do begin тело цикла (набор команд) end; For i:=M1 downto M2 do begin тело цикла (набор команд) end;

Цикл While While условие do begin команды цикла end;

Домашнее задание Повторить алгоритмизацию 7, 8 классов

Напишите программу вычисления суммы, разности, произведения и частного двух чисел: целого и вещественного. Задача 1

Program zadacha; Uses Crt; Var a:integer; b,s,r,p,ch:real; Begin Write(‘Введите целое число - ’); Readln(a); Write(‘Введите вещественное число - ’); Readln(b); s:=a+b; r:=a-b; p:=a*b; ch:=a/b; Writeln (‘Сумма чисел = ’, s); Writeln(‘Разность чисел = ’, r); Writeln(‘Произведение чисел = ’, p); Writeln(‘Частное чисел = ’, ch); End.

Составьте программу, которая проверяет, делится ли на 3 введенное целое число, и выводит на экран соответствующее сообщение: «делится» либо «не делится». Задача 2

Program zadacha; Uses Crt; Var а: integer; Begin Write(‘Введите целое число - ’); Readln(a); if a mod 3=0 then begin Write (‘Делится’); end else begin Writeln (‘Не делится’); end; End.

Составить программу, которая вычисляет сумму N целых чисел введенных пользователем. Задача 3

Program zadacha; Uses crt; Var i,N,ch,s:integer; Begin Write(’Введите кол-во чисел ‘); readln(N); s:=0; i:=1; While i<=N do begin Write(‘Введите число’); Readln(ch); s:=s+ch; i:=i+1; end; Write(’Сумма чисел = ‘, s); End. i N ch S Введите кол-во чисел 3 3 0 1 Введите число 5 5 5 2 Введите число 11 11 16 3 Введите число 23 23 39 Сумма чисел = 39 4

Program z3; Uses crt; Var i,N,s:integer; Begin Write(’Введите количество чисел ‘); readln(N); s:=0; For i:=1 to N do begin s:=s+i; end; Write(’Сумма чисел = ‘, s); End.