- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Решение задач презентация
Содержание
Задача С клавиатуры вводятся не равные между собой числа а и b. Большее из этих чисел заменить их суммой, а меньшее - их удвоенным произведением. Решение. Блок – схема
Слайд 2Задача
С клавиатуры вводятся не равные между собой числа а и b.
Большее из этих чисел заменить их суммой, а меньшее - их удвоенным произведением.
Решение.
Блок – схема Память
а
b
4
2
6
16
начало
Ввод а,b
а>b
c:=a
a:=a+b
b:=2*a*b
c:=b
b:=a+b
a:=2*a*b
stop
+
-
В предложенном алгоритме допущена
ошибка. Найти ее и объяснить?
Вывод а,b
Слайд 3начало
Ввод а,b
а>b
c:=a
a:=a+b
b:=2*c*b
c:=b
b:=a+b
a:=2*a*c
stop
Программа на Паскале
Вывод а,b
Перечислите 6 ошибок, допущенных в программе.
Programm Task_3;
Uses
Crt
Var a,b: Integer;
Begin
Clrscr
Write(‘Введите числа a, b:’);
ReadLn(a,b)
If a>b
Then
c:=a; a:=a+b; b:=2*c*b;
Else
c:=a; b:=a+b; a:=2*a*c;
WriteLn(‘a=’,a);
WriteLn(‘b=’,b);
ReadLn;
End.
Var a,b: Integer;
Begin
Clrscr
Write(‘Введите числа a, b:’);
ReadLn(a,b)
If a>b
Then
c:=a; a:=a+b; b:=2*c*b;
Else
c:=a; b:=a+b; a:=2*a*c;
WriteLn(‘a=’,a);
WriteLn(‘b=’,b);
ReadLn;
End.
Слайд 4
Pogram Task_3;
Uses Crt;
Var a,b,c: Integer;
Begin
Clrscr;
Write(‘Введите числа а,b:’);
ReadLn(a,b);
If a>b
Then
Begin
c:=a; a:=a+b; b:=2*c*b;
End
Else
Begin
c:=b; b:=a+b; a:=2*a*c;
End;
WriteLn(‘a=’,a);
WriteLn(‘b=’,b);
ReadLn;
End.
Then
Begin
c:=a; a:=a+b; b:=2*c*b;
End
Else
Begin
c:=b; b:=a+b; a:=2*a*c;
End;
WriteLn(‘a=’,a);
WriteLn(‘b=’,b);
ReadLn;
End.
Pogram Task_3;
Uses Crt
Var a,b: Integer;
Begin
Clrscr
Write(‘Введите числа a, b:’);
ReadLn(a,b)
If a>b
Then
c:=a; a:=a+b; b:=2*a*b;
Else
c:=a; a:=a+b; b:=2*a*b;
WriteLn(‘a=’,a);
WriteLn(‘b=’,b);
ReadLn;
End.
Программа с ошибками.
Слайд 5Вложеннные ветвления
Задача
С клавиатуры вводятся 3 числа. Найти большее из этих чисел.
С клавиатуры вводятся 3 числа. Найти большее из этих чисел.
Паскаль
…
If (a>b) and (a>c)
Then WriteLn(‘Большее:’,a)
Else
If (b>c)
Then WriteLn(‘Большее:’,b)
Else WriteLn(‘ Большее:,c);
…
Слайд 6Домашнее задание:
Задача
С клавиатуры вводятся 3 числа. Напечатать те из них, которые
четные.
С клавиатуры вводятся 3 числа. Напечатать те из них, которые
четные.
