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

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

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=v₀ +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 _нач =0⁰, j _р = 60⁰, j _Т =270⁰, j _кон =360⁰, j=180⁰, z =1,5, x =2,1.

 

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

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

Значения j _нач =0⁰, j _р =60⁰, j _Т =270⁰, j _кон =360⁰, j=180⁰, 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 _нач =0⁰, j _р =60⁰, j _Т =180⁰, j _кон =360⁰, j=270⁰, x =2,5, y =1,0.

 

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

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

Значения j _нач =0⁰, j _р =180⁰, j _Т =270⁰, j _кон =360⁰, j=90⁰, 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 £ Q_i < 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:

а) вывести номера и значения элементов, удовлетворяющих условию Q_i ³ -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:

а) вычислить и вывести произведение элементов, удовлетворяю-щих условию V_i ³ 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 £ Z_i £ 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 _нач = 0⁰, j _р = 60⁰, j _Т = 270⁰, j _кон = 360⁰, j = 180⁰.

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

 

 

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

 

Математическое обозначение	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