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

Размещено на http://www.allbest.ru/

2

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

Отчет

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

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

Выполнил:

учащийся группы 204П

Ан Виктор

Проверила:

Гайсагалеева Б.М

АКТОБЕ -2010

Содержание

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

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

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

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

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

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

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

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

2.5 Оператор выбора

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

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

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

Заключение

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.

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

Program prim_1;

Uses crt;

Var S,A,B : integer;

Begin clrscr;

Writeln (`введите стороны');

Readln(A,B);

S:=A*B;

Writeln(S);

End.

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

Program prim_1;

Uses crt;

Var r,l : real;

Begin clrscr;

Writeln (`введите радиус');

Readln(r);

L := 2*pi*r;

Writeln(l);

End.

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

Program prim_1;

Uses crt;

Var A,B,P := real;

Begin clrscr

writeln (`введите числа');

Readln(A,B);

P:=(A+B)/2;

Writeln(P);

End.

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

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.

Определить время падения камня на поверхность земли с высоты 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 Задачи на целочисленное деление

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

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

Program prim_1 Uses crt;

Var A, M:= integer;

Begin clrscr;

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

Readln(A);

M: =A div 100;

Writeln(M);

End.

Даны 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.

Составить программу, проверяющую верно ли утверждение, что введённое число делится без остатка на 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.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.

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

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 целых числа, определить какое из них больше.

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.

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

Program prim;

Uses crt;

Var a,: integer;

Begin clrscr;

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

Readln(a);

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

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

End.

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

Даны 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.

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

Дано целое число.Проверить делится ли она нацело на 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 Неполный условный оператор

Дано целое число. Если оно является положительным, то прибавить к нему 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 целых числ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.

Дано целое число. Если оно является положительным, то прибавить к нему 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.

Дано 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.

Дано целое число. Если оно является положительным, то прибавить к нему 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 Вложенные условные операторы

программирование формула оператор арифметика

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

-1, если x<1

Y(x) y= x, если x<1

1, если х=1

Program primer;

Uses crt;

Var y,x: integer;

Begin clrscr;

Readln(x);

If (x<-1) then y:=1

else begin

if (x>1) then y:=x

else begin

if (x=1) then y:=1;

end;

end;

writeln (y);

end.

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

1, a>0

Z= 0, a=0

-1, a<0

Program primer1;

Uses crt;

Var a,z: integer;

Begin clrscr;

Readln (a);

If (a>0) then z:=1

else begin

if (a=0) then z:=0

else begin

if (a<0) then z:=-1;

end;

end;

writeln (z);

end.

Дано вещественное число х вычислить f(x)

0, x<=0

f= x, 0<x<=1

x sqr, в остальных случаях

program primer 2;

Uses crt;

Var f,x: integer;

Begin clrscr;

Readln(x);

If (x<=0) then f:=0

else begin

if (x=1) and (x>0) then f:=x

else f:=x;

end;

writeln (f);

end.

Дано вещественное число х вычислить f(y) если

2, если y>2

f= 0, если 0<y<=2

-3y, в остальных случаях

Program primer3;

Uses crt;

var f,y: integer;

begin clrscr;

readln (y);

if (y>2) then f:=2

else begin

if (y<=2) and (y>0) then f:=0

else f:=-3*x*y;

end;

writeln (f);

end.

2.5 Оператор выбора

Составить программу, которая в зависимости от порядкового номера дня недели выводит на экран его название.

Program primer1;

Uses crt;

Var x :integer;

Begin clrscr;

Readln(x);

Case x of;

1: writeln(`pn');

2: writeln(`vt');

3:writeln(`sr');

4:writeln(`chet');

5:writeln(`pt');

6:writeln(`sb');

7:writeln(`vs');

Else writeln(`takogo dnya net');

End;

End.

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

Program primer2;

Uses crt;

Var a:integer;

Begin clrscr;

Readln(a);

Case a of ;

1:writeln(`yanv');

2:writeln(`fev');

3:writeln(`mart');

4:writeln(`apr');

5:writeln(`mai');

6:writeln(`iun');

7:writeln(`iul);

8:writeln(`avg');

9:writeln(`sent');

10:writeln(`okt');

11:writeln(`noyab');

12:writeln(`dek');

Else writeln(`takogo mesyaca net');

End;

End.

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

Рассмотреть два случая: а) год не является високосным;

в) год високосный.

Program primer3;

Uses crt;

Var x,a:integer;

Begin clrscr;

Writeln(`esli god visokosnyi vvedite 1 inache 0');

Readln(a);

Writeln(`vvedite nomer mesyaca');

Readln(x);

If a:=0 then begin

Case x of ;

2:writeln('28 dnei');

4,6,9,11:writeln('30 dnei');

Else writeln('31 den');

End.

Else begin

Case x of ;

2:writeln('29 dnei');

4,6,9,11:writeln('30 dnei);

Else writeln(31 den);

End.

Мастям игральных карт условно присвоены следующие порядковые номера:

«пики»-1, «трефы»-2, «бубны»-3, «червы»-4. По заданным номерам найти m(1<=m<=4),

определить название соответствующей масти.

Program primer4;

Uses crt;

Var m:integer;

Begin clrscr;

Readln(m);

Case m of;

1:writeln(`piki');

2:writeln(`trefi');

3:writeln(`bubni');

4:writeln(`shervi');

Else writeln(`takoi masti net');

End

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

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

Вычислить к - количество точек с целочисленными координатами, попадающих в круг радиуса R с центром в начале координат.

Program primer;

Uses crt;

Var x,y,r,k: integer;

Begin clrscr;

K:=0;

Writeln (`введите r');

Readln (r);

For x= -r to r do

If x>2+y>2<r>2 then k:=k+1;

Writeln (k);

End.

Определить, сколько из них большее своих соседей, т.е. предыдущего и последующего чисел.

program primer;

uses crt;

var s,a1,a2,a3,a:real; i:integer;

begin clrscr;

readln (a1,a2,a3)

s:=0;

if (a2>a1) and (a2>a3) then s:=s+1;

for i:=4 to 10 do begin readln (a);

a1:=a2; a2:=a3; a3:=a;

if (a2>a1) and (a2>a3) then s:=s+1;

end;

writeln (s);

end.

Дано 10 вещественных чисел:

А) определить, сколько из них принимает значение, больше заданного числа b.

Program primer;

Uses crt;

Var s,a,b: real; i:integer;

Begin clrscr;

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

Readln (b);

S:=0;

For i:=1 to 10 do begin

Writeln (`введите а') readln (a);

If a>b then s:=s+1;

End;

Writeln (` количество чисел больших',b,' равно=',s)

End.

Б) найти порядковый номер того из них, которое наиболее близко к какому- нибудь целому числу

Program primer;

Var s,a: real; i:integer;

Begin

Min:=1; k:=0;

For i:=1 to 10 do begin

Readln (a);

If abs(a - int(a))<min then begin

Min:=abs(a - int(a)); k:=I;

End;

Writeln (k);

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

Вычислить к - количество точек с целочисленными координатами, попадающих в круг радиуса R с центром в начале координат.

Program primer;

Uses crt;

Var x,y,r,k: integer;

Begin clrscr;

K:=0;

Writeln (`введите r');

Readln (r);

For x= -r to r do

If x>2+y>2<r>2 then k:=k+1;

Writeln (k);

End.

Определить, сколько из них большее своих соседей, т.е. предыдущего и последующего чисел.

program primer;

uses crt;

var s,a1,a2,a3,a:real; i:integer;

begin clrscr;

readln (a1,a2,a3)

s:=0;

if (a2>a1) and (a2>a3) then s:=s+1;

for i:=4 to 10 do begin readln (a);

a1:=a2; a2:=a3; a3:=a;

if (a2>a1) and (a2>a3) then s:=s+1;

end;

writeln (s);

end.

Найти порядковый номер того из них, которое наиболее близко к какому нибудь целому числу.

program a9;

var s,a:real;

i:integer;

begin clrscr;

min:=1;

k:=0;

for i:= to 10 begin

writeln (`vvedi a',i);

readln (a);

if abs (a-int(a))<min then begin

min:=abs (a-int (a));

k:=I;end;

end;

write (`naibolee k celomu 4islo pod nomerom',k);

end.

Определить сколько из них больше своих соседей,т.е. предыдущего и последуещего чисел.

program a9;

var s,a1,a2,a3,a:real;

i:integer;

begin clrscr;

writeln;

write (`vvedi:a1,a2,a3');

read (a1,a2,a3);

s:=0;

if a2>a1 and a2>a3 then s:=s+1;

for i:=4 to 10 do begin

writeln (`vvedi a,'i);readln (a);

a1:=a2;a2:=a3;a3:=a;

if (a2>a1)and (a2>a3) then s:=s+1

end;

write (`koli4estvo 4isel,bolwix sosedei=',s); end.

Заключение

1. Изучили основные виды загрузки и приемы работы в Тurbo Рascal и процесс отладки.

2. Изучили различные типы данных и признаки концов строки на Pascal

3. Изучили виды выражений и сравнения с текстовыми и числовыми условиями.

4. Решали задачи по ограничению отладки

5. Решали задачи на условный оператор, оператор выбора, оператор цикла, разветвляющиеся операторы, сложные операторы

Размещено на Allbest.ru