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

Актюбинский политехнический  колледж. 
 
 
 
 
 
 
 
 
 
 
 
 

Отчет

Учебной практики

по  основам алгоритмизации и программирования  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выполнил: учащийся группы 204П Ан Виктор 

Проверила: Гайсагалеева Б.М 

АКТОБЕ -2010 
 

Содержание 

I. Программирование алгоритмов линейной структуры.

           1. Арифметические выражения, простейшие программы , программы на вычисление по известным формулам.

           2. Задачи на целочисленное деление.

II. Программирование алгоритмов разветвляющейся структуры.

           1. Полный условный оператор.

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

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

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

           5. Оператор выбора.

III. Программирование алгоритмов циклической структуры.

          1. Оператор цикла с параметром.

           2. Условный оператор  в теле цикла.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

            

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

линейной  структуры 

1.1. Арифметические выражения, простейшие программы, программы на вычисление по известным формулам 

1.1.1 Найти произведение трёх заданных чисел А, В и С.

Program prim_1;                                                                                 

   Uses crt;

Var   A, B, C, P: integer;

Begin clrscr;                                                                       

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

    Readln(A,B,C);

    P: =A*B*C;

    Writeln(P);

End. 

                                                                                                                                       

1.1.2. Вычислить площадь огорода, имеющая форму прямоугольника, если известны стороны А и В.

Program prim_1;                                     

   Uses crt;

Var   S,A,B : integer;

Begin clrscr;

   Writeln (‘введите стороны’);

    Readln(A,B);

    S:=A*B;

    Writeln(S);

End. 
 

1.1.3. Дан радиус окружности. Найти его длину.

Program prim_1;                                                                                 

Uses crt;

Var   r,l : real;

Begin clrscr;                                                                       

Writeln (‘введите радиус’);

Readln(r);

L := 2*pi*r;

Writeln(l);

End. 
 
 

1.1.4. Даны два числа. Найти их среднее арифметическое.

Program prim_1;                                                                                 

Uses crt;

Var   A,B,P := real;

Begin clrscr;                                                                       

writeln (‘введите числа’);

Readln(A,B);

P:=(A+B)/2;

Writeln(P);

End. 

1.1.5. Дан радиус шара. Найти его объем. 

Program prim_1;                                                                                 

Uses crt;

Var   r,V: = integer;

Begin clrscr;                                                                      

Writeln (‘введите радиус’);

Readln(r);

V:=4/3*PI*sqr(r)*r;

Writeln('объем равен',v:4:2);

End. 

1.1.6. Определить время падения камня на поверхность земли с высоты H.

Program prim_1;                                                                                 

Uses crt;

Var  g,t,h : real;

Begin clrscr;                                                                       

Writeln (‘введите h’);

Readln(h);

G: =9,81;t:=sqrt(28h/g);

Writeln(‘время падения=’,t);

End.

 

               
 
 
 

              

1.2. Задачи на целочисленное деление 

1.2.1. Дано целое число. Определить  а) является чётным  в) оканчивается ли цифрой 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.

                     

 
 

1.2.2. Дано расстояние в сантиметрах. Найти число полных метров в нём. 

Program prim_1;                                                                                 

   Uses crt;

Var   A, M:= integer;

Begin clrscr;                                                                       

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

    Readln(A);

    M: =A div 100;

    Writeln(M);

End. 
 

1.2.3 . Даны 2 целых числа, определить какое из них больше.

Program prim;

Uses crt;

Var a,b,max: integer;

Begin clrscr;

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

Readln(a,b);

If a>b then max: =a 

else max:=b;

writeln(max);

End.

 
 
 

1.2.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. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

разветвляющейся структуры 

2.1. Полный условный оператор 

2.1.1. Даны числа А,В,С. Проверить выполняется ли равенство.  А<В<С.Вывести об этом сообщении.

Program prim;

Uses crt;

Var a,b,c: integer;

Begin clrscr;

Writeln(‘ ‘);

Readln(a,b,c);

If a<b and b<c then Writeln(‘выполняется’)

else Writeln(‘ не выполняется ‘);

End. 
 
 
 

2.1.2. Даны числа А,В,С. Проверить выполняется ли равенство.  А<В<С.Вывести об этом сообщении.

Program prim;

Uses crt;

Var a,b,c: integer;

Begin clrscr;

Writeln(‘ ‘);

Readln(a,b,c);

If a<b and b<c then Writeln(‘выполняется’)

else Writeln(‘ не выполняется ‘);

End. 
 

2.1.3. Даны 2 целых числа, определить какое из них больше.

Program prim;

Uses crt;