Б

Изм.

Лист

№ документа

Подпись

Листов

Лист

Литер

ПЦК П и АС

группа 122

ОП.1304.122.07

Проверил

Рук.пр.

Голант М.

Убайдуллаева

.

Убайдуллаева

Отчет по ознакомительной практике

лок схема: Код программы

v ar x:integer;

f:real;

begin

writeln(' введите значение аргумента x');

readln (x); f:=cos(x*x)*sin(2*x-1)+4.29;

writeln('f(',x,')=',f);

end.

Результат счёта:

введите значение аргумента x:5

5

f(5)=4.69849300139254

Задание№2. Условный оператор и оператор выбора.

Условие: составить программу для решения приведённого ниже задания двумя способами:

1. Команду выбора case

2. Команду if

Придумать и задать входные данные так чтобы выбор был с 4-7 альтернативами.

В

Блок схема(A):

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

Код програмы(А):

var i:integer; begin

writeln('введите № месяца'); readln(i);

if i=1 then writeln('январь - зимний месяц ');

if i=2 then writeln('февраль - зимний месяц ');

if i=3 then writeln('март - весенний месяц ');

if i=4 then writeln('апрель - весенний месяц ');

if i=5 then writeln('май - весенний месяц ');

if i=6 then writeln('июнь - летний месяц ');

if i=7 then writeln('июль - летний месяц ');

if i=8 then writeln('август - летний месяц ');

if i=9 then writeln('сентябрь - осенний месяц ');

if i=10 then writeln('октябрь - осенний месяц ');

if i=11 then writeln('ноябрь - осенний месяц ');

if i=12 then writeln('декабрь - зимний месяц '); end.

Результат: (А):

введите № месяца 8 август - летний месяц

введите № месяца 12 декабрь - зимний месяц

введите № месяца 15 в году 12 месяцев

Блок схема(Б):

Код програмы(Б):

var i:integer;

begin

writeln('введите № месяца');

readln(i);

case i of

12,1,2:Writeln('зима');

3,4,5:Writeln('весна');

6,7,8:Writeln('лето');

9,10,11:Writeln('осень');

end;

end.

of

case i

12, 1, 2

3, 4, 5

6, 7, 8

9, 10, 11

Результат(Б):

введите № месяца

5

весна

введите № месяца

11

осень

введите № месяца

12

зима

Задание№3. Операторы цикла.

Условие: построить таблицу операторов цикла FOR, WHILE, REPEAT начальное значение меры, шаг изменения этого значения и количества строк в таблице.

Самостоятельно в режиме диалога оформить таблицу как можно лучше применяя формулы вывода. 1пек=8.81л=0.07292сака

Блок схема(А):

Код програмы(А):

Результат: введите начальное значение меры: 1

введите шаг изменения значения:1

введите количество строк в таблице:5

Стопка литр пайп

1 0.05680 0.00012

2 0.11360 0.00024

3 0.17040 0.00036

4 0.22720 0.00048

5 0.28400 0.00060

var x,y:real; i,j,s,k:integer;

begin

writeln('введите начальное значение меры');readln(i);

writeln('введите шаг изменения значения');readln(j);

writeln('введите количество строк в таблице');readln(k);

writeln('стопка':15,'литр':15,'пайп':15);

for s:=1 to k do begin x:=i*0.0568;

y:=i*0.00012; writeln(i:15,x:15:5,y:15:5); i:=i+j;end; readln

end.

Блок схема(Б):

Код програмы(Б):

var x,y:real;

i,j,s,k:integer;

begin

writeln('введите начальное значение меры');

readln(i);

writeln('введите шаг изменения значения');

readln(j);

writeln('введите количество строк в таблице');

readln(k);

writeln('стопка':15,'литр':15,'пайп':15); s:=1;

while s<=k do begin x:=i*0.0568;

y:=i*0.00012; writeln(i:15,x:15:5,y:15:5);

i:=i+j; s:=s+1;end;

end.

Результат (Б): введите начальное значение меры:1

введите шаг изменения значения:1

введите количество строк в таблице:5

стопка литр пайп

1 0.05680 0.00012

2 0.11360 0.00024

3 0.17040 0.00036

4 0.22720 0.00048

5 0.28400 0.00060

Код програмы(В):

var x,y:real; i,j,s,k:integer;

begin s:=1;

writeln('введите начальное значение меры');

readln(i);

writeln('введите шаг изменения значения');

readln(j);

writeln('введите количество строк в таблице');

readln(k);

writeln('стопка':15,'литр':15,'пайп':15);

repeat

x:=i*0.0568;

y:=i*0.00012;

writeln (i:15,x:15:5,y:15:5);

i:=i+j;

s:=s+1;until s>k; end.

Блок схема (В):

Результат(В):

введите начальное значение меры: 1

введите шаг изменения значения: 1

введите количество строк в таблице:5

стопка литр пайп

1 0.05680 0.00012

2 0.11360 0.00024

3 0.17040 0.00036

4 0.22720 0.00048

5 0.28400 0.00060

+

+

+

+

Задание№4. Циклический алгоритм. Массивы. Матрицы.

Условие1: одномерный массив. Создать и вывести массив y с элементами yk=Fi(k), где i номер варианта, k=1.2…,8.выполните задание своего варианта.