Лаба-6. Детерминированные цвп с управлением по индексу. Одномерные массивы.
Скачать 249.82 Kb.
|
Лабораторная работа №3 Тема: «Детерминированные ЦВП с управлением по индексу. Одномерные массивы.» Цель работы: Изучить процесс работы с детерминированными ЦВП с управлением по индексу и одномерными массивами Используемое оборудование: персональный компьютер, компилятор «Pascal ABC» Задача 1. Математическая модель 6. Блок-схема 7. Список идентификаторов
8. Код программы program pr_1; var W, Z, Xli, Xci: real; i:integer; fi:array[1..10] of integer; const R = 4; C = 2; L = 10; begin for i:=1 to 10 do readln (fi[i]); for i:=1 to 10 do begin Xci := 1/(2*pi* fi[i]*C); Xli := 2*pi*fi[i]*L; Z:=Xci*sqrt(Xli*Xli+R*R)/sqrt(R*R+((Xli-Xci)*(Xli-Xci))); W:=(Xci/R-Xli*Xli/(R*Xci)-R/Xci); writeln('z = ', Z); writeln('w = ', W); end; end. 9. Результаты выполненной работы 4. Задача 2. Одномерный массив вводится пользователем с клавиатуры. Переставить элементы массива, стоящие на четных и нечетных местах. Задачу решить без проверки на четность индексов массива. 5. Математическая модель K = m[i] m[i] = m[i+1] m[i+1] = k 6. Блок-схема 7. Список идентификаторов
8. Код программы program pr_2; var i, k: integer; m: array[1..10] of integer; begin for i:=1 to 10 do readln(m[i]); i:=1; while i<10 do begin k:=m[i]; m[i]:=m[i+1]; m[i+1]:=k; i:=i+2; end; writeln('Массив m:'); write('['); for i:= 1 to 10 do write(m[i], ' '); write(']'); end. 9. Результаты выполненной работы 4. Задача 3. Заданы массивы A(5) и B(5). Получить массив C(10), расположив в начале его элементы массива A, а затем – элементы массива B. Для формирования массива С использовать один цикл. 5. Математическая модель 6. Блок-схема 7. Список идентификаторов
8. Код программы program pr_3; var a:array[1..5] of integer; b:array[1..5] of integer; c:array[1..10] of integer; i:integer; begin for i:=1 to 5 do begin writeln('Введите ',i,' элемент массива а'); readln(a[i]); end; for i:=1 to 5 do begin writeln('Введите ',i,' элемент массива б'); readln(b[i]); end; for i:=1 to 5 do begin C[i]:=a[i]; C[i+5]:=b[i]; end; writeln('Массив С:'); write('['); for i:= 1 to 10 do write(c[i], ' '); write(']'); end. 9. Результаты выполненной работы 10. Анализ результатов вычислений По блок схемам 11. В ходе решения задач был изучен процесс работы с детерминированными ЦВП с управлением по индексу и одномерными массивами10> |