Задание 5. Организация сложных циклов
Задание 1. Технические средства реализации информационных процессов. Начертите схему взаимодействия основных устройст вкомпьютера в процессе решения задач. Дать краткую характеристику узлов схемы, пояснить их назначение, привести примеры
Арифметическо-логическое устройство, которое выполняет арифметические и логические операции Устройство управления, которое организует процесс выполнения программ Запоминающее утройство для хранения программ и данных Внешние устройства для ввода-вывода информации. Принципы функционирования ЭВМ, разработанные фон Нейманом, оказались настолько хороши, что они (с небольшими изменениями) до сих пор используются в современных компьютерах. Задание 2. Программирование линейных вычислительных процессов. Составить схему алгоритма и программу линейного вычислительного процесса.
Вариант |
Исходные данные | |||||||||||||
А | В | С | D | |||||||||||
0 | 10 | 3,2 | 12,*102 | 5,2 |
Алгоритм
X, G
Программа
program z2;
uses crt;
var
a,b,c,x,d,g:real;
begin
writeln('vvod a,b,c,d ');
readln (a,b,c,d);
x:=a-sqrt(b+abs(cos(3*c)));
g:=exp(a)+2*exp(1.5*ln(d))+x;
writeln('x=',x,' g=',g);
readkey
end.
Пример работы программы
Задание 3. Программирование ветвящихся вычислительных процессов
Составить схему алгоритма и программу ветвящегося вычислительного процесса.
Номер варианта | Вариант |
0 |
Алгоритм
y
Программа
program z3;
uses crt;
var
x,y:real;
begin
writeln('vvod x= ');
readln (x);
if (x>=-pi/2) and (x<=pi/2) then y:=2*sqr(cos(x))-sin(x);
if (x>-pi/2) and (x<=(3*pi)/4) then y:=sqr(cos(x))/ln(1-cos(x));
if (x<-pi/2) or (x>(3*pi)/4) then y:=1/(sqr(sin(x))-cos(x));
writeln('y=',y);
readkey
end.
Пример работы программы
Задание 4. Организация циклов
Составить схему алгоритма и программу циклического вычислительного процесса.
Индексацию элементов заданого массива начать с 0. Для перебора элементов массива использовать оператор For.
Номер варианта | Вариант |
0 | Дан массив В, содержащий 12 элементов целого типа, образуют ли 8 послдених элеиентов этого массива возрастающую последовательность? |
Алгоритм
последние 8 не возрастают, индекс
елементов елемента, на котором
возрастают заканчивается возрастание
равен k
Программа
program z4;
uses crt;
label a1;
var
a:array [0..12] of integer;
i,k,d:integer;
begin
clrscr;
for i:=0 to 11 do
begin
write('a[',i,']=');
readln(a[i]);
if i>4 then
if (a[i]<a[i-1]) and (d=0) then
begin
d:=d+1;
k:=i;
end;
end;
if k=0 then write('poslednue 8 elementov vozrastayt')
else
writeln('ne vozrastaet, undeks elementa ',k);
readkey
End.
Примеры работы программы
Задание 5. Организация сложных циклов
Составить схему алгоритма и программу циклического вычислительного процесса. Ввод данных выполнить с помощью оператора For. Программу снабдить комментариями.
Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора repeat.
Номер варианта | Вариант |
0 | Дана целочисленная матрица D(4x5). Найти наибольший по модулю элемент матрицы и его местоположение в ней (номер строки и столбца на пересечении которых он расположен). |
Алгоритм
max
Программа
program z5;
uses crt;
var
d:array [1..4,1..5] of integer;
i,j,imax,jmax,max:integer;
begin
writeln('vvedute matricy');
for i:=1 to 4 do
for j:=1 to 5 do
readln(d[i,j]);
max:=abs(d[1,1]);
i:=1;
repeat
j:=1;
repeat
if abs(d[i,j])>max then
begin
imax:=i;
jmax:=j;
max:=d[i,j];
end;
j:=j+1;
until j=5;
i:=i+1;
until i=4;
writeln('max=b[',i,j,']=',max);
readkey
end.
Задание 6. Программирование с использованием подпрограмм.
Составить схему алгоритма главной программмы и подпрограммы, главную программу и подпрограммму
При решениии задачи использовать подпрограмму-функцию. Обмен данными между главной программой и подпрограммой – через списки формальных и фактических параметров
Номер варианта | Вариант |
0 | Вычислить число сочетаний из m элементов по n, используя формулу |
2020-02-04 | 153 | Обсуждений (0) |
5.00
из
|
Обсуждение в статье: Задание 5. Организация сложных циклов |
Обсуждений еще не было, будьте первым... ↓↓↓ |
Почему 1285321 студент выбрали МегаОбучалку...
Система поиска информации
Мобильная версия сайта
Удобная навигация
Нет шокирующей рекламы