Отчет учебной практики по основам алгоритмизации и программирования

Var a,b,max: integer;

Begin clrscr;

Writeln(‘ введи 2 числа‘);

Readln(a,b);

If a>b then max: =a 

else max:=b;

writeln(max);

End.

 
 
 

2.1.4. Составить программу, проверяющую верно ли утверждение, что введённое число делится без остатка на 3.  

Program prim;

Uses crt;

Var a,: integer;

Begin clrscr;

Writeln(‘ введи число a‘);

Readln(a);

If a mod 3=0 then writeln(‘делится‘)

else writeln(‘не делится‘);

End. 
 

2.1.5. Дано целое число. Определить  а) является чётным  в) оканчивается ли цифрой 7.

Program prim;

Uses crt;

Var a: integer;

Begin clrscr;

Writeln(‘ введи а‘);

Readln(a);

If a mod 2=0 writeln(‘чётное‘)

else writeln(‘не чётное‘);

if a mod 10=7 then writeln(‘оканчивается‘)

else writeln(‘не оканчивается‘);

End.

                       
 

 
 
 
 
 
 
 
 
 
 

2.1.5. Даны 3 числа a,b,c.Найти минимальное из них. 

Program prim;

Uses crt;

Var a,b,c.min,min1: integer;

Begin clrscr;

Writeln(‘ введи 3 числа‘);

Readln(a,b,c);

If a<b then min: =a 

else min:=b;

if min<c then min1:= min

else min1:=c;

writeln(‘min1=’min);

End.

                       
 
 
 

2.2. Целочисленная  арифметика и условный оператор 

2.2.1. Даны 2 числа a,b. Выяснить является эти числа чётными. 

program av;

uses crt;

var a,b :integer;

Writeln(‘ввести числа ‘);

Readln(a,b);

if a mod 2=0 then Writeln(‘чётное‘)

else Writeln(‘не чётное‘);

if b mod 2=0 then Writeln (‘чётное‘)

else Writeln(‘не чётное‘);

end.

 

 

 
 
 
 
 

2.2.2. Составить программу, проверяющую верно ли утверждение, что введённое число делится без остатка на 3.  

Program prim;

Uses crt;

Var a,: integer; 

Begin clrscr;

Writeln(‘ введи число a‘);

Readln(a);

If a mod 3=0 then writeln(‘делится‘)

else writeln(‘не делится‘);

End. 
 

2.2.3 . Дано целое число. Определить  а) является чётным  в) оканчивается ли цифрой 7.

Program prim;

Uses crt;

Var a: integer;

Begin clrscr;

Writeln(‘ введи а‘);

Readln(a);

If a mod 2=0 writeln(‘чётное‘)

else writeln(‘не чётное‘);

if a mod 10=7 then writeln(‘оканчивается‘)

else writeln(‘не оканчивается‘);

End.

                     

 

2.2.4 Дано целое число.Проверить делится ли она нацело на 9.  

Program prim;

Uses crt;

Var a,: integer;

Begin clrscr;

Writeln(‘ введи число a‘);

Readln(a);

If a mod 9=0 then writeln(‘делится‘)

else writeln(‘не делится‘);

End.

                      
 
 

2.3. Неполный условный оператор 

2.3.1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.        

 Program if_1;

Uses crt

Var a:integer;

Begin clrscr;

Writeln('Введите число');

Readln(a);

If a>0 then a:=a+1;

Writeln('Полученное число ',a);

Readln;

End.        
 
 

2.3.2. Даны 2 целых числa. Найти количество положительных чисел и количество отрицательных чисел в исходном наборе.         

  Program if_5;

Var a,b,c,k1,k2:integer;

Begin

Writeln('Введите число');

Readln(a);

Writeln('Введите число');

Readln(b);

Writeln('Введите число');

Readln(c);

k1:=0;

If a>0 then k1:=k1+1 else if a<0 then k2:=k2+1;

If b>0 then k1:=k1+1 else if b<0 then k2:=k2+1;

If c>0 then k1:=k1+1 else if c<0 then k2:=k2+1;

Writeln('Количество  положительных чисел ',k1);

Writeln('Количество отрицательных чисел  чисел ',k2);

Readln;

End.   

 

2.3.3. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.        

 Program if_1;

Uses crt

Var a:integer;

Begin clrscr;

Writeln('Введите число');

Readln(a);

If a>0 then a:=a+1;

Writeln('Полученное число ',a);

Readln;

End.      

 
 
 

2.3.4. Дано 3 целых числa. Найти количество положительных в исходном наборе.

Program if_4;

Var a,b,c,k1:integer;

Begin

Writeln('Введите число');

Readln(a);

Writeln('Введите число');

Readln(b);

Writeln('Введите число');

Readln(c);

k1:=0;

If a>0 then k1:=k1+1;

If b>0 then k1:=k1+1;

If c>0 then k1:=k1+1;

Writeln('Количество  положительных чисел ',k1);

Readln;

End.

 
 
 
 
 
 
 
 
 

2.3.5. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.     

   Program if_2;

Var a:integer;

Begin

Writeln('Введите число');

Readln(a);

If a>0 then a:=a+1 else a:=a-2;

Writeln('Полученное  число ',a);

Readln;

End.      
 
 
 
 

2.4. Вложенные условные операторы 

2.4.1.  Составить программу для вычисления значения функции