Реферат: Язык программирования Паскаль и ветвление

(y>0) and (y-2*x-2<0) and (y+2*x-2<0).

Приведём пример программы определяющая существования треугольника со сторонами a, b и c. Условие существования треугольника известно из геометрии: сумма двух любых сторон должна быть больше третьей. Следовательно, для всех сторон условие “сумма двух больше третьей” должно выполняться.

Program e4;

Var a, b, c: real;

Begin

Writeln (‘дите длины трёх сторон треугольника’);

Readln (a, b, С);

Write (‘треугольник со сторонами ’, a, b, c);

If (a+b>c) and (b+c>a) and (a+c>b)

Then writeln (‘существуют’)

Else writeln (‘не существуюет’);

Readln

End.

Ш . Технологический пакет к урокам информатики по теме “Ветвление в Паскале”

Задачи с ветвлением и их решение.

Program vetvlenie;

Var t: integer;

Begin

Writeln ('Введите температуру сегодня');

Readln (t);

If t<=-30

Then

Writeln (‘Не идти в школу ')

Else writeln (‘Идти в школу');

End.

Программа показывает идти ученику сегодня в школу или нет. С клавиатуры он вводит сегодняшнюю температуру, и если она меньше -30, то не идти в школу, а если больше то выводится сообщение о том чтобы идти в школу. Теперь попробуйте написать программу:

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

Переделать программу так чтобы вместо денег выводилось сообщение о том кто больше попрыгал. Значения так же вводятся с клавиатуры.

Рассмотри задачу: Для модельного агентства выбираются девушки с объёмами 90 (грудь), 60 (талия), 90 (бёдра). Составить программу для отбора девушек по этим параметрам.

Вопросы и задачи по всей теме.