ТОП 10:

Цикл с заданным числом повторений (с параметром).



Общий вид оператора:

For i:=N1 to N2 do <оператор>;

где i – переменная цикла (параметр цикла);

N1<N2 – соответственно начальное и конечное значение переменной цикла.

Шаг изменения переменной равен единице.

В качестве переменной цикла i можно использовать только простую переменную, а в качестве N1 и N2 могут использоваться выражения (кроме вещественного типа).

<Оператор> может быть простым или составным.

Требования к организации цикла:

1) внутри цикла нельзя изменять значения i, N1, N2, т.к. это приводит к зацикливанию;

2) если N1>N2 , то цикл не выполнится ни разу.

Порядок работы оператора цикла:

1) переменной цикла присваивается значение N1, и для данного значения выполняется <оператор>;

2) значение i автоматически увеличивается на 1 и повторяются действия цикла;

3) последний раз операторы цикла выполняются при i=N2;

4) далее выполняются действия после цикла.

 

КОНТРОЛЬНЫЕ РАБОТЫ

 

Контрольная работа №1

 

Требования к выполнению контрольной

Работы

 

Контрольная работа №1 выполняется в ученической тетради. Титульный лист должен содержать информацию о студенте, группе, варианте задания.

Работа содержит две задачи, варианты которых выдаются преподавателем на установочных занятиях.

Решение задач должно содержать следующие разделы:

1. Постановка задачи (приводится условие задачи).

2. Схема алгоритма решения.

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

4. Текст программы на языке Паскаль.

5. Таблица исходных данных.

При организации вычислительного процесса для задачи №1 необходимо предусмотреть выполнение следующих действий:

1) очистку экрана;

2) вывод текста – приглашения к вводу;

3) ввод исходных данных;

4) вывод сообщений о выполнении соответствующих условий;

5) вывод результатов в отформатированном виде с пояснительным текстом.

При организации вычислительного процесса для задачи №2 необходимо предусмотреть:

1) очистку экрана;

2) вывод на экран приглашения к вводу рабочей размерности массива;

3) ввод рабочей размерности массива;

4) поэлементный ввод массива с указанием номеров элементов;

5) выполнение действий над массивами;

6) вывод полученных результатов в отформатированном виде с пояснительным текстом.

 

Варианты заданий

Задача №1

 

1. Вычислить и вывести значение движущей силы FД, действующей на тело, при заданном значении перемещения Sнач £ S £ Sкон:

где .

Значения Sнач=0, Sр=0,5, SТ=0,9, Sкон=1,2, S=0,7, a=1,25, b=5,75.

 

2. Вычислить и вывести значение скорости v=v0 +a×t тела при заданном значении времени tнач £ t £ tкон:

где .

Значения tнач=0, tр=5,2, tТ=7,9, tкон=10,2, t=0,7, x=1,2, y=0,75, a=1,5.

 

3. Вычислить и вывести значение ускорения а движущегося тела при заданном значении времени tнач £ t £ tкон:

где .

Значения tнач=0, tр=5,2, tТ=7,9, tкон=10,2, t=0,7, y=1,5.

4. Вычислить и вывести значение перемещения движущегося тела при заданном значении времени tнач £ t £ tкон:

где .

Значения a=1,5, tнач=0, tр=5,2, tТ=7,9, tкон=15,2, t=5,7, c=0,5.

 

5. Вычислить и вывести значение угловой скорости w вращающегося тела при заданном угле поворота jнач £ j £ jкон:

где , j – в радианах.

Значения jнач=00, jр= 600, jТ=2700, jкон=3600, j=1800, z=1,5, x=2,1.

 

6. Вычислить и вывести значение углового ускорения e вращающегося тела при заданном угле поворота jнач £ j £ jкон:

где , j – в радианах.

Значения jнач=00, jр=600, jТ=2700, jкон=3600, j=1800, x=1,5, y=1,1.

 

7. Вычислить и вывести значение угла поворота j вращающегося тела при заданном значении времени tнач £ t £ tкон:

где .

Значения tнач=0, tр =4,5, tТ=8,3, tкон=11,2, t=5,7, a=2,5, b=1,5.

 

 

8. Вычислить и вывести значение силы сопротивления Fс, действующей на тело, при заданном значении перемещения Sнач £ S £ Sкон:

где .

Значения Sнач=0, Sр=1,5, SТ=2,9, Sкон=4,2, S=1,7, a=5, b=2,5.

 

9. Вычислить и вывести значение движущего момента МД, действующего на тело, при заданном угле поворота jнач £ j £ jкон:

где , j – в радианах.

Значения jнач=00, jр=600, jТ=1800, jкон=3600, j=2700, x=2,5, y=1,0.

 

10. Вычислить и вывести значение момента сопротивления МС, действующего на тело, при заданном угле поворота jнач £ j £ jкон:

где , j – в радианах.

Значения jнач=00, jр=1800, jТ=2700, jкон=3600, j=900, a=1,13, b=4,2.

 

Задача №2

 

1. Для заданного массива вещественных чисел A(n), n £ 10:

а) определить количество элементов, удовлетворяющих условию 2,5 £ Аi £ 10,5;

б) вывести номера и значения положительных элементов;

в) построить массив B(n), в котором ,

при n = 5, А = (-2,5; 0,6; 7,8; -4,7; 5,5).

2. Для заданного массива вещественных чисел C(n), n £ 12:

а) определить количество элементов, удовлетворяющих условию Сi <-0,5 или Сi >1,5;

б) вывести номера и значения отрицательных элементов;

в) построить массив B(n), в котором

при n = 5, С = (-12,5; 1,6; 0,78; -4,7; 55,5).

3. Для заданного массива вещественных чисел A(n), n £ 10:

а) вычислить и вывести сумму элементов, удовлетворяющих условию -1,5 < Аi < 1,5;

б) вывести номера нулевых элементов;

в) построить массив D(n), в котором

при n = 9, А = (-2,5; 0; 0,6; 0; 0; 7,8; -4,7; 0; 5,5).

4. Для заданного массива вещественных чисел Q(k), k £ 12:

а) вывести номера и значения элементов, удовлетворяющих условию 0,5 £ Qi < 8,5;

б) вычислить и вывести сумму положительных элементов;

в) построить массив B(k), в котором

при k = 8, Q = (0,5; -0,6; 2,8; 0; -4,7; -0,7; 4,9; 5,5).

5. Для заданного массива вещественных чисел Q(k), k £ 12:

а) вывести номера и значения элементов, удовлетворяющих условию Qi ³ -0,85;

б) вычислить и вывести произведение положительных элементов;

в) построить массив V(k), в котором

при k = 8, Q = (1,5; -1,6; 0,8; 0; -2,7; 0,7; -4,9; 0,5).

6. Для заданного массива вещественных чисел М(n), n £ 10:

а) вычислить и вывести сумму номеров элементов, удовлетворяющих условию Мi ³ 1,5;

б) вывести положительные элементы массива;

в) построить массив B(n), в котором

при n = 7, M = (-0,9; 3,6; -0,12; 7,8; -2,7; 1,54; -3,67).

7. Для заданного массива вещественных чисел V(n), n £ 10:

а) вычислить и вывести произведение элементов, удовлетворяю-щих условию Vi ³ 0,5;

б) вывести номера элементов, равных заданному x;

в) построить массив B(n), в котором

при n = 8, V = (-2,5; 0,6; 7,8; -4,7; 0,6; -0,4; 0,6; 0,6), x = 0,6.

8. Для заданного массива вещественных чисел A(n), n £ 10:

а) вычислить и вывести произведение элементов, удовлетворяю-щих условию Аi ³ -10,5;

б) вывести номера и значения элементов, равных заданному c;

в) построить массив B(n), в котором

при n = 8, А = (-12,5; 3,6; 0,8; 3,6; -0,7; 3,6; 5,5; 3,6), c = 3,6.

9. Для заданного массива вещественных чисел Z(n), n £ 15:

а) вычислить и вывести сумму элементов, удовлетворяющих условию -1 £ Zi £ 1;

б) вывести номера и значения отрицательных элементов;

в) построить массив X(n), в котором

при n = 9, Z = (5,1; 0; 0,9; -0,1; 1,1; -1; 2,3; 1; -0,5).

10. Для заданного массива вещественных чисел P(n), n £ 10:

а) вычислить и вывести количество элементов, равных заданному k;

б) вывести значения элементов, имеющих четные номера;

в) построить массив R(n), в котором

при n = 8, P = (0,7; 1,2; -0,5; 1,2; 1,2; -5,3; 2,5; 1,2), k = 1,2.

 

Пример выполнения контрольной работы

 

Задача 1. Вычислить и вывести значение момента сопротивления МС, действующего на тело, при заданном угле поворота jнач £ j £ jкон:

 

где .

Значения jнач = 00, jр = 600, jТ = 2700, jкон = 3600, j = 1800.

 
 


Схема алгоритма решения

 

 
 

 


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

 

Математическое обозначение a jнач jр jТ jкон j МС
Идентификатор a fn fr ft fk f mc

 

Текст программы на языке Паскаль:

 

Program lr1_010;{303010 User20 Киреев С.И.}

Uses crt;

Var

frad,fn,fk,fr,ft,f,a,mc:real;

Begin

clrscr;

writeln('Bведите fn,fk,fr,ft');

readln(fn,fk,fr,ft);

writeln('Bведите f в градусах, удовлетворяющее',

' условию ', fn:5:1,'<=f<=',fk:5:1);

readln(f);

writeln;

frad:=f*pi/180; {представление угла в радианах}

a:=sin(frad)+0.5;

if f<=fr

then

begin

writeln(' ':6,'Выполняется условие f<=fr');

mc:=a*frad

end;

if (f>fr) and (f<ft)

then

begin

writeln(' ':6,'Выполняется условие fr<f<ft');

mc:=10+a

end;

if f>=ft

then

begin

writeln(' ':6,'Выполняется условие f>=ft');

mc:=a/frad

end;

writeln('Момент сопротивления mc=',mc:7:4,

' при f=',f:5:1);

Repeat until keypressed

End.

 

Таблица исходных данных:

 

Переменная jнач jр jТ jкон j
Значение

 

Задача 2. Для заданного массива вещественных чисел X(n), n £ 15:

а) определить количество положительных элементов;

б) вывести номера и значения элементов, удовлетворяющих условию Хi < 1;

в) построить массив Y(n), в котором

при n = 5, X = (-1; 0; 1,2; -0,8; 0).

 

Схема алгоритма решения:

 

       
   
 
 

 

 

 

 


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

 

Математическое обозначение количество X Y n
Идентификатор kol X Y n

Текст программы на языке Паскаль:

 

Program lr2_010; {303010 USER20 Киреев С.И.}

Uses crt;

Type

Mas=array[1..15] of real;

Var

X,Y:Mas;

i,n,kol:integer;

Begin

ClrScr;

write('введите рабочую размерность массива',

' n<=15:');

readln(n);

for i:=1 to n do

begin

write('введите X[',i,']=');

readln(X[i])

end;

writeln;

kol:=0;

for i:=1 to n do

if X[i]>0 then kol:=kol+1;

writeln('количество положительных элементов',

' kol=',kol:2);

writeln;

writeln('номера и значения X[i]<1');

for i:=1 to n do

if X[i]<1 then

writeln('i=',i,' X[',i,']=',X[i]:5:2);

writeln;

for i:=1 to n do Y[i]:=-X[i];

writeln('массив Y, в котором Y[i]=-X[i]');

for i:=1 to n do write(Y[i]:5:2,' ');

repeat until keypressed

End.

 

 

Таблица исходных данных:

 

Переменная n X1 X2 X3 X4 X5
Значение -1 1,2 -0,8

 

Контрольная работа №2

 







Последнее изменение этой страницы: 2016-08-15; Нарушение авторского права страницы

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.235.172.213 (0.024 с.)