Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Программирование задач с ветвлением

При 1) B=52) B=123) B=10?
Программирование задач с ветвлением При 1) B=52) B=123) B=10? XY-22XX2+Y2=22Y=-XX=-2 Задачи:Определить, является ли целое число N четным двузначным числомОпределить, является ли треугольник 4. Определить правильность даты, введённой с клавиатуры (число – от 1 до начВвод a, b, cD program ugadaika;uses crt;var x, y: integer;label a1;beginclrscr;randomize;y:=random(11);a1: readln (x);if x=y then начПечать X “+” Y “=“Z=X+YВвод ZВвод X – случайное(10)Y – случайное (10)данет
Слайды презентации

Слайд 2


Слайд 4 При
1) B=5
2) B=12
3) B=10
?

При 1) B=52) B=123) B=10?

Слайд 5


X
Y
-2
2
X
X2+Y2=22
Y=-X
X=-2

XY-22XX2+Y2=22Y=-XX=-2

Слайд 6 Задачи:
Определить, является ли целое число N четным двузначным

Задачи:Определить, является ли целое число N четным двузначным числомОпределить, является ли

числом


Определить, является ли треугольник со сторонами a, b, c

равнобедренным

Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие.

Слайд 7 4. Определить правильность даты, введённой с клавиатуры (число

4. Определить правильность даты, введённой с клавиатуры (число – от 1

– от 1 до 31, месяц – от 1

до 12). Если введены некорректные данные, то сообщить об этом.


5. Услуги телефонной сети оплачиваются по правилу: за разговоры до A мин в месяц оплачиваются B р., а разговоры сверх установленной нормы оплачиваются из расчета C р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

Слайд 8 нач
Ввод a, b, c
D

начВвод a, b, cD

X1=


X2=
Вывод X
Вывод X1, X2
кон
нет
да
да
нет (D≥0)


Слайд 9 program ugadaika;
uses crt;
var x, y: integer;
label a1;
begin
clrscr;
randomize;
y:=random(11);
a1: readln

program ugadaika;uses crt;var x, y: integer;label a1;beginclrscr;randomize;y:=random(11);a1: readln (x);if x=y then

(x);
if x=y then
writeln

('ugadano')
else
begin
if x goto a1;
end;
end.

  • Имя файла: programmirovanie-zadach-s-vetvleniem.pptx
  • Количество просмотров: 154
  • Количество скачиваний: 0