НТТС (печать 4.1). Операторы цикла
 Скачать 172.58 Kb.
|
|
МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ «РОССИЙСКИЙ УНИВЕРСИТЕТ ТРАНСПОРТА» (РУТ (МИИТ) Институт транспортной техники и систем управления Кафедра «Наземные транспортно-технологические средства» ЛАБОРАТОРНАЯ РАБОТА № 1 по дисциплине «Информатика» на тему: «Операторы цикла»
МОСКВА – 2021 Задача №1 1. Исходные данные Вычислить функцию:  где: C(i) - элемент массива C(15); i - его порядковый номер; a,b - параметры, меняющиеся одновременно с номером элемента массива: a - от 0 ,1 с шагом 0,1; b - от 1 с шагом 0,2. 2. Блок-схема алгоритма  Начало   3. Текст программы program zadacha_26_1; var i:integer; z, a, b:real; x:array [1..15] of integer; begin writeln(' x z'); a:=0.1; b:=1; for i:=1 to 15 do begin x[i]:=random(70); if (i-1)=0 then z:=0 else z:=(a+b+x[i]) / (i-1); writeln(x[i]:4,z:8:2); a:=a+0.1; b:=b+0.2; end; end. 4. Результат выполнения программы В результате выполнения программы были выведены следующие значения: x z 27 0.00 65 66.40 16 8.85 24 8.67 37 9.83 26 5.72 12 2.48 29 4.60 51 6.81 16 2.20 55 5.91 24 2.58 12 1.39 57 4.77 21 1.88 Задача №2 1. Исходные данные В массиве А(100) найти максимальное и минимальное значения элементов и их порядковые номера. Элементы массива вычисляются по формуле:  2. Блок-схема алгоритма    3. Текст программы Program zadacha_26_2; var i, max_i, min_i: integer; max, min: real; A: array[1..100] of real; begin max:=-2147483648; min:=2147483647; for i:=1 to 100 do if (i-1)<>0 then A[i]:=i-i/((i-1)*(i-1)) else A[i]:=10; for i:=1 to 100 do write(A[i]:0:2,' '); for i:=1 to 100 do begin if A[i]>max then begin max:=A[i]; max_i:=i; end; if A[i] begin min:=A[i]; min_i:=i; end; end; writeln; writeln('Максимальным является ',max_i,'-й элемент массива,который равен ', max_i:0:2); writeln('Минимальным является ',min_i,'-й элемент массива,который равен ',min:0:2); end. 4. Результат выполнения программы В результате выполнения программы были выведены следующие значения: Максимальным является 100-й элемент массива,который равен 99.99 Минимальным является 2-й элемент массива,который равен 0.00 Задача №3 1. Исходные данные В матрицах Е(6,8), F(9,6) и D(10,6) найти минимальный и максимальный элементы в каждой строке и сформировать из них одномерные массивы. Матрицы и сформированные массивы распечатать. 2. Блок-схема алгоритма    3. Текст программыProgram zadacha_26_3; const n = 10; type miniarr = array[1..n,1..n] of integer; var i,j,k,max,min:integer; E,F,D: miniarr;//array[1..6,1..8] of integer; MAXX: array[1..25] of integer; MINN: array[1..25] of integer; procedure arr_rand (i1,j1:integer; var arr: miniarr); var i,j: byte; begin for i:=1 to i1 do for j:=1 to j1 do arr[i,j]:=random(500)+10; for i:=1 to i1 do begin writeln; for j:=1 to j1 do if arr[i,j]< 100 then write(arr[i,j],' ') else write(arr[i,j],' '); end; writeln; end; procedure arr_work(i1,j1,par:integer; var arr: miniarr); var i,j: byte; begin for i:=1 to i1 do begin if k>par then begin MAXX[k]:=max; MINN[k]:=min; end; k:=k+1; min:=600; max:=0; for j:=1 to j1 do begin if arr[i,j]>max then max:=arr[i,j]; if arr[i,j] end; end; MAXX[k]:=max; MINN[k]:=min; end; begin arr_rand(6,8,E); arr_rand(9,6,F); arr_rand(10,6,D); min:=600; max:=0; k:=0; arr_work(6,8,0,E); arr_work(9,6,6,F); arr_work(10,6,15,D); writeln('Массив максимальных элементов - '); for i:=1 to 25 do write(MAXX[i],' '); writeln; writeln('Массив минимальных элементов - '); for i:=1 to 25 do if MINN[i]>100 then write(MINN[i],' ') else write(MINN[i],' '); end. 4. Результат выполнения программы В результате выполнения программы были выведены следующие значения: 37 68 185 347 256 496 459 80 480 428 255 465 403 475 317 354 449 199 311 324 421 220 361 211 200 299 398 32 91 349 478 178 456 243 308 66 422 426 77 27 108 182 393 295 57 185 179 367 54 118 204 289 419 47 13 326 216 484 156 467 108 437 499 140 459 86 19 170 176 261 441 32 132 294 225 248 337 76 163 25 129 40 487 482 155 199 269 419 239 491 360 448 279 120 429 180 193 263 345 480 176 18 200 303 186 181 167 135 332 275 499 149 330 141 347 77 460 26 494 270 327 110 440 195 410 503 263 21 374 54 64 84 240 192 359 121 350 193 306 484 42 144 96 474 502 220 127 148 283 361 230 177 278 85 163 76 88 15 402 192 427 155 Массив максимальных элементов - 496 480 449 478 456 393 419 484 499 441 337 487 491 448 480 303 499 494 503 374 359 484 502 278 427 Массив минимальных элементов - 37 255 199 32 27 57 47 13 86 19 76 25 155 120 18 135 141 26 110 21 121 42 127 76 15 |