Будь умным!


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

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

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


Практическая работа №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. Введение О пчелах и их продуктах писали много веков великие умы и большие таланты
2. Генетика человека и животных 2013 год Генетический анализ- цели задачи
3. Образование государства
4. Тема- Графический редактор Visio
5. Учет собственных основных средствдолгосрочных арендуемых основных средств и нематериальных активов
6. I rhitectur podului romn de peste Dun~re de l Drobet Turnul Severin
7. Публицистика ~ своеобразная ступень между журналистикой и литературой высший вид журналистики ~ зародилас
8. 1Макроглии и 2Микроглии 1Макроглия-аАстроцитылучистые глиоцитыболигодендроциты А-астр
9. Введение В настоящее время одной из самых актуальных проблем в лингвистике является проблема составлен
10. Закон же призван ограничивать и запрещать те виды экономической и хозяйственной деятельности которые пр
11. B GRDE SCHOOL NO 1276 ENGLND UNDER HENRY THE EI
12. адренорецептори від контакту з медіатором норадреналін або адреноміметиками циркулюючими в крові ендо
13. Тема- Глобальные проблемы и будущее человечества К культурноцивилизационной стороне глобализации общес
14. паблик рилейшнз На Западе это известно любому интересующемуся экономикой человеку
15. Токелау
16. Матрицы графов
17. I. ОТВЕТЬТЕ НА ТЕОРЕТИЧЕСКИЙ ВОПРОС- Стратегия национальной безопасности Российской Федерации до 2020 года- у
18. Дипломная работа- Разработка плана деятельности торгового предприятия
19. Понятие недвижимости и особенности правового режима недвижимости в законодательстве Российской Федерации
20. ИСТОРИЯ РУССКОЙ ЛИТЕРАТЫ XI XIX ВЕКОВ