СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 13.07.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Практическая работа "Программирование разветвляющихся алгоритмов"

Категория: Информатика

Нажмите, чтобы узнать подробности

В данном документе прдеставлены три задачи на языке Паскаль по теме "Программирование разветвляющихся алгоритмов". При выполнении данной работы необходимо набрать текст программы, исправить все ошибки, а также получить результат при различных значениях переменных.

Просмотр содержимого документа
«Практическая работа "Программирование разветвляющихся алгоритмов"»

Практическая работа

Программирование разветвляющихся алгоритмов


Наберите текст программ в Pascal ABC, исправьте ошибки в тексте программ, а также выполните их при различных значениях переменных.

1.

program Р1;

var x, a, b: realn;

begin

writeln ('Определение принадлежности

точки отрезку');

write ('Введите а, b');

readln (a, b);

write ('Введите x');

readln (x);

if (x=a) and (xthen

writeln ('Точка принадлежит отрезку')

else writeln ('Точка не принадлежит отрезку')

еnd.

2.

program Р2;

var y, a, b, c: integer;

begin

writeln ('Нахождение наибольшей из трёх величин');

write ('Введите а, b, с');

readln (a, b, c);

y=a;

if (by) then y:=b;

if (cy) then y:=c;

writeln ('y=', y)

end.

3.

program Р3;

var a, b, x: real;

begin

writeln ('Решение линейного уравнения');

write ('Введите коэффициенты a , b')

readln (a, b);

if a0 then

begin

x:=-b/a;

writeln ('Корень уравнения x=, x:9:3)

end

else if b0 then writeln ('Корней нет')

else writeln ('x – любое число');

end.


Скачать

Рекомендуем курсы ПК и ППК для учителей

22.05.2019 18:26
Власовец Надежда Витальевна @vlasnadezhda
Спасибо большое!

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!

Поделитесь с друзьями
ВКонтактеОдноклассникиTwitterМой МирLiveJournalGoogle PlusЯндекс