Программирование ветвлений

Балтийский  государственный технический университет  «Военмех»

Кафедра «Информационные  системы и компьютерные технологии»

 

 

 

 

 

 

 

Лабораторная  работа №2

Тема

Программирование  ветвлений

 

 

Выполнил  Фоминцев

                                                                                 Группа                      И433

Проверил  Мартынова

 

 

 

 

 

 

 

Задача 1. Вариант №4.

Вывести на экран значение логического  выражения, которое принимает значение true, если K является двухзначным числом, кратным пяти и false- в противном случае.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг программы:

program main;

var

    k:integer;

    f:boolean;

begin

     writeln('введите k');

     readln(k);

     if (k div 10>0) and (k mod 5=0) then

     f:=true;

     writeln(f);

     readln;

end.

 

K	Значение
	Должно быть	Получено
65	True	true
-8	false	False
342	false	False

Вывод: программа работает правильно.

Задание 2. Вариант №4.

 

Листинг программы:

program main;

var

   x,y,f:integer;

begin

   writeln('введите x');

   readln(x);

   writeln('введите y');

   readln(y);

              If (x>=0) and (x<5) then

              f:=2*x-y

       else

              if (x<0) and (y<0) then

              f:=x*x

       else

              f:=5*y+1;

      writeln('Результат:' , f);

            readln;

end.     

             

 

 

 

 

 

 

 

 

x.y	Значения
	Должно быть	Получено
6,2	11	11
-5,-89	25	25
3,72	-66	-66

 

Вывод: программы работает правильно.

Задача №3. Вариант №4.

Даны два целых числа. Если они  оба положительны, то большее из них заменить их средним арифметическим; если они оба отрицательны, то поменять знак у меньшего из них; если иначе- каждое из них удвоить.

 

 

 

 

 

 

 

 

 

Листинг программы: