Автор работы: Пользователь скрыл имя, 24 Декабря 2010 в 19:57, отчет по практике
1. Изучили основные виды загрузки и приемы работы в Тurbo Рascal и процесс отладки.
2. Изучили различные типы данных и признаки концов строки на Pascal
3. Изучили виды выражений и сравнения с текстовыми и числовыми условиями.
4. Решали задачи по ограничению отладки
I. Программирование алгоритмов линейной структуры.
1. Арифметические выражения, простейшие программы , программы на вычисление по известным формулам.
2. Задачи на целочисленное деление.
II. Программирование алгоритмов разветвляющейся структуры.
1. Полный условный оператор.
2. Целочисленная арифметика и условный оператор.
3. Неполный условный оператор.
4. Вложенные условные операторы.
5. Оператор выбора.
III. Программирование алгоритмов циклической структуры.
1. Оператор цикла с параметром.
2. Условный оператор в теле цикла.
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.
3.2.4. Определить сколько из них больше своих соседей,т.е. предыдущего и последуещего чисел.
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.
Заключение
Информация о работе Отчет учебной практики по основам алгоритмизации и программирования