Будь умным!


У вас вопросы?
У нас ответы:) 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. ~ателігі мол ~аза~ тілін ~йренуге ж~не оны~ дамуына зор кедергі; Екіншіден латыншаны~ ~азіргі б~~аралы~
3. ВВЕДЕНИЕ В ПРОФЕССИЮ
4. 1963 Фридрих Дессауэр Friedrich Dessuer ~ известный немецкий физик биофизик изобретатель предприниматель пу
5. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата хімічних наук
6. Малое предпринимательство в Костанайской области.html
7. Виды деления понятий
8. Формы проявления коррупции в России
9. тема гражданского права
10. У меня нет выхода
11. Курсовая работа- Калькулирование себестоимости продукции
12. 1 Лабораторная работа 1
13. Миротворческая роль Организации Объединенных Наций в регулировании конфликтов
14. ТЕМАТИЧНА МОДЕЛЬ ТА МЕТОД ПРОГНОЗУ ГАЗОСПОЖИВАННЯ З УРАХУВАННЯМ ЦИКЛІЧНОСТІ 01
15. оптических линий связи В XX веке человечество было свидетелем огромного скачка в развитии различных ви
16. Форма государства Форма государства показывает политическое структурное и территориальное внешнее ус
17. Курский государственный медицинский университет Министерства здравоохранения Российской Федерации
18. Субъект культуры
19. Математические модели формирования и использования запасов
20. Кризисы виды тенденции возникновения и разрешения