Задачи по программированию 2

Задание 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. Программирование с использованием подпрограмм.

Составить схему алгоритма главной программмы и подпрограммы, главную программу и подпрограммму

При решениии задачи использовать подпрограмму-функцию. Обмен данными между главно

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать