Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.schools.keldysh.ru/gym1522/inform/pascal/Cikl_task.doc Дата изменения: Tue Feb 11 09:56:57 2014 Дата индексирования: Mon Apr 11 02:16:14 2016 Кодировка: koi8-r

Циклы. Моделирование равноускоренного движения.

|[pic] |Задания |
|Рисунок 1 |Построить модель равноускоренного движения |
| |тела (X=X0+V0t+At2/2). |
| |I.. Тело двигается по прямой. Выводить на |
| |экран координату тела через каждые 10 секунд |
| |движения. |
| |Исходные данные (задаются с клавиатуры): |
| |Начальная скорость тела (V0, м/с). |
| |Ускорение тела со знаком (A, м/с2). |
| |Начальное положение тела (X0, м). |
| |Время движения (TK, с). |
| |Расчетные данные (выводятся на экран): |
| |Текущее положение тела (X, м). |
| |Текущее время движения (T, с). |
| | |
| |Примерный вид экрана при работе |
| | | | |
| | |Введите скорость тела 10 | |
| | |Введите ускорение тела 2 | |
| | |Введите нач. положение тела 0 | |
| | |Введите время движения тела | |
| | |200 | |
| | |T = 0 X = 0 | |
| | |T = 10 X = 200 | |
| | |T = 20 X = 600 | |
| | |..... | |
| | |T = 200 X = 42000 | |
|II. Рассмотреть случай, когда |других единицах (км, км/час, час) с пересчетом|
|известно конечное положение тела,|в программе. |
|но неизвестно время движения. |Примечание: блок-схема и фрагменты программы |
|III. Организовать ввод/вывод |даны для задания I. |
|данных в | |
|Реализация блока расчета и вывода на экран времени движения и положения тела |
|Цикл с предусловием |Цикл с постусловием |Цикл с параметром |
|[pic] |[pic] |[pic] |
|Рисунок 11 |Рисунок 12 |Рисунок 13 |
|x:=x0; |X:=X0; |X:=X0; T:=0; |
|t:=0; |T:=0; |N:=Trunc(TK/10); |
|While T <= TK do |Repeat |For i:=0 to N do |
|begin |X:=X0+V0*T+A*T*T/2; |begin |
|X:=X0+V0*T+A*T*T/2; |Writeln ('T = ',T,' X = |T:=i*10; |
|Writeln ('T = ',T,' X = |',X); |X:=X0+V0*T+A*T*T/2; |
|',X); |T:=T+10; |Writeln ('T = ',T,' X = |
|T:=T+10; end; |Until T>=TK; |',X); |
| | |end; |

Здесь вместо «Блока расчета и вывода на экран .» на рисунке 1 нужно
подставить один из фрагментов (рисунок 11, рисунок 12, рисунок 13),
приведенных ниже. Под каждым фрагментом блок-схемы дан соответствующий
фрагмент программы. Функция Trunc(TK/10) - выдает целую часть от числа
ТК/10 - т.е. число необходимых шагов в цикле. Подробнее
http://borlpasc.narod.ru/docym/spr/fyn221_222.htm (только там есть опечатки
- видно после сканирования и распознавания текст не выверялся)
-----------------------
Координата тела Х в момент времени Т

Выводим на экран время и координату


Расчет числа точек