У вас вопросы?
У нас ответы:) SamZan.net

Тема- Операторы языка

Работа добавлена на сайт samzan.net: 2015-07-10

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

Практическая работа №7.

Тема: Операторы языка.

Наименование: Составление программ усложненной циклической структуры.

Цель работы: Закрепить практические навыки работы с системой Turbo Pascal, научиться правильно использовать различные операторы циклов; научиться составлять программы решения задач с использованием циклических структур.

Задания.

1. Программа расчета функции y=A*sin(x)-cos(x)/A; при изменении аргумента “х” в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра “A” в диапазоне от 1 до 3 с шагом 0,5.

Таблица идентификаторов

Переменная

Описание

Тип данных

y

результат

вещественный

x

аргумент

вещественный

a

параметр

вещественный

i

счетчик

целочисленный

j

счетчик

целочисленный

Program tabl;

Var

y,x,a,dx: real;

i,j: integer;

Begin

Writeln(‘Расчет по формуле: y=A*sin(x)-cos(x)/A;’);

Writeln(‘----------------------------------------‘);

Writeln(‘|X| A=1.0|A=1.5|A=2.0|A=2.5|A=3.0|’);

Writeln(‘----------------------------------------‘);

dx:=pi/100;

for i:=0 to 100 do

begin {внешний цикл изменения аргумента “X”}

x:=dx*i;

Write(x:8:4);

For j:=1 to 5 do

Begin {вложенный цикл изменения параметра “A”}

A:=0.5*(j+1);

y:=A*sin(x)-cos(x)/A; Write(y:8:4)

end;

Writeln;{перевод курсора на новую строчку}

Readln {задержка прокрутки экрана до нажатия Enter}

End;

Readln;

End.

x

A=1.0

A=1.5

A=2.0

A=2.5

A=3.0

y

0

0

-1

-0.6

-0.5

-0.4

-0.3

1

0.31

-0.64

-0.17

0.14

0.39

0.61

2

0.62

-0.22

0.34

0.77

1.14

1.49

3

0.94

0.22

0.82

1.32

1.78

2.23

4

1.2566

0.64

1.22

1.74

2.25

2.75

5

1.57

1.0

1.5

2.0

2.5

3.0

31.41

-1.0

-0.66

-0.5

-0.4

-0.33

2. Таблица идентификаторов

Переменная

Описание

Тип данных

s

переменная

строковый

par

переменная

строковый

i

счетчик

целочисленный

program parol;                

var s,par:string; i:integer;

begin

For i:= 1 to 3 do

Begin

par:='parol';

Write('введите пароль:'); Readln (S);

If S = par Then Break

Else If i<>3 Then Continue;

Writeln('доступ к программе ЗАПРЕЩЕН’);

Writeln('нажмите Enter');

Readln;

Halt

End;

end.

3. Программа, которая выводит цифры от 9 до 0.

Таблица идентификаторов

Переменная

Описание

Тип данных

x

счетчик

целочисленный

var x:integer;         

begin

writeln('---');

for x:=9 down to 0 do

begin

writeln(x);

end;

readln;

end.

Контрольные вопросы.

1. как программируются циклические алгоритмы с заранее неизвестным числом повторений цикла?

С помощью операторов цикла с условием while и repeat

2. напишите оператор цикла, который не выполняется ни разу.

for i:=1 to 0 do

write(i);

3. напишите оператор цикла, который выполняется неограниченное число раз.

while i>0 do

write(i);


ОПР.230105.01379.07.12

Лист

4

Изм

Лист

№ докум.

Подп.

Дата

нет

да

Вывод х

Х=9

Конец

I=i-1

Х=0

Ввод х

Начало

да

нет

I:=i+1

да

нет

Ввод par

нет

нет

да

I=0

Par= parol

да

I<3

конец

Ввод pi

Вывод у

y:=A*sin(x)-cos(x)/A

A:=0.5*(j+1)

j:=j+1

j≤5

I:=i+1

Вывод х

x:=dx*i

j=1

dx:=pi/100

i≤100

Начало

конец

запрещен

i=0

Начало




1. Семей уезiнi~ о~т~стiк шегарасы ж~не е~ бастысы Шы~~ыс тауы ескерткiштерiмен ма~ызды м~нге ие деп жазды ~алы.html
2. Контрольная работа- Производственное освещение
3. СОВРЕМЕННАЯ ПЕРВОБЫТНОСТЬ
4. Порівняльна педагогіка Курс лекцій
5. тема торговой марки занимает значительное место.
6. Антропологические основания этики как философии счастья
7. To py your wy through college to keep in touch with smb to communicte with somebody especilly by writing to them or telephoning them to keep-sty on top of things in control of wht is
8. консультантов и экспертов.
9. Лекція 1 Вступ до курсу
10. Волк Фенриса выходит из варпа имперские силы обнаруживают что он захвачен отступниками Красными Корсара