Цели и задачи учебно-ознакомительной практики
Целью учебной практики является закрепление и углубление знаний, полученных студентами на лекционных и практических занятиях в течение первого года обучения, приобретение практических навыков в решении задач и их реализации с помощью языков программирования.
Основными задачами практики являются:
Изучение опыта использования математических методов для составления алгоритмов и решения задач;
Ознакомление с возможностями языков программирования;
Программная реализация практических задач на указанных языках (компьютерное моделирование).
При прохождении учебной практики творчески применить имеющиеся знания по основным учебным дисциплинам, по которым имеется аттестация к окончанию I курса.
1.Арифметика действительных чисел. Вычисление по формулам.
Задача №13
program 13;
uses CRT;
var l,t: real;
label 1;
begin
clrscr;
1:write('Введите значение длины маятника: ');readln(l);
if l<0 then
begin
writeln('Введено неправильное значение l');
goto 1;
end;
write('Формула для вычисления периода колебания: ');
writeln('T = 2*pi*sqrt(l/g)');
t:=2*3.14*sqrt(l/10);
writeln('T =',t: 5:2);
end.
2. Разветвления.
Задача №45.
program _45;
uses CRT;
var
a,b,c,d: real;
begin
write('Введите а: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
write('Введите d: '); readln(d);
if (a<=b) and (b<=c) and (c<=d) then
begin
writeln('a = ',d);
writeln('b = ',d);
writeln('c = ',d);
writeln('d = ',d);
end
else if (a>b) and (b>c) and (c>d) then
begin
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('d = ',d);
end
else
begin
writeln('a = ',sqr(a));
writeln('b = ',sqr(b));
writeln('c = ',sqr(c));
writeln('d = ',sqr(d));
end;
end.
3.Разветвления.
Задача №3.
program _57;
uses CRT;
var
a: real;
begin
write('Введите значение а : '); readln(a);
if (a<=2) and (a>=-2) then writeln('f(',a,')=',sqr(a))
else writeln('f(',a,')=',4);
end.
4.Простейшие циклы.
Задача №4.
program 89;
uses CRT;
var m,n,r,r1,m0,n0: integer;
label 1,2;
begin
r:=1;
1: write('Введите m: '); readln(m);
if m<=0 then
begin
writeln('m не удовлетворяет условию');
goto 1;
end;
2: write('Введите n: '); readln(n);
if n<0 then
begin
writeln('n не удовлетворяет условию');
goto 2;
end;
if n=0 then writeln('НОД(',n,';',m,')=',m);
m0:=m; n0:=n;
if n>0 then
begin
while r<>0 do
begin
r1:=n;
r:=m mod n;
m:=n; n:=r;
end;
writeln('НОД(',m0,';',n0,')=',r1);
end;
end.
5.Простейшие циклы.
Задача №5.
program 117;
uses CRT;
var
i,n,s1,s2: integer;
s: real;
label 1;
begin
clrscr;
s1:=1; s2:=1;
1: write('Введите кол-во сомножителей :'); readln(n);
if n<=0 then
begin
writeln('Введено некоректное кол-во сомножителей');
goto 1;
end;
for i:=1 to n do
begin
s1:=s1*(2*i-1);
s2:=s2*2*i;
end;
s:=s1/s2;
writeln('Сумма ряда =',s);
end.
