Задачи вар 17
.docxПриложение 1
МИНОБРНАУКИ РОССИИ
«ВОСТОЧНО-СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕХНОЛОГИЙ И УПРАВЛЕНИЯ»
КОНТРОЛЬНАЯ РАБОТА
по дисциплине «Информатика»
Вариант ___17_
Выполнил: Студент(ка) 1 курса з/о Строительство Ломова И.А Проверил: Анчалуев Н. М
Улан-Удэ 2015г
Условия задач
Задача 1. Вычислить на ЭВМ значения переменных, по заданным расчетным формулам и наборам исходных данных. На печать вывести значения вводимых исходных данных и результатов вычислений, сопровождая вывод наименованиями выводимых переменных.
Задача 2. Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления функции, сопровождая вывод наименованиями переменных. Протестировать ветви алгоритма.
Задача 3. Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью E. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
Задача 4. Определить сумму элементов массива N (60), кратных трем.
Задача 5. Обработать на ЭВМ матрицу в соответствии с вариантом. Вывести на печать результаты и исходную матрицу в общепринятом виде. Проверить правильность выполнения программы с помощью тестового варианта.
Задача 6. Согласно варианта задания составить программу, используя функцию пользователя для вычисления однотипных действий. Проверить правильность выполнения программы с помощью тестового варианта.
Подсчитать число точек, находящихся внутри круга радиусом r с центром в начале координат. Координаты заданы массивами X (100), Y (100). Расстояние от начала координат вычислять, используя функцию пользователя.
Задача 7. Согласно варианта задания составить программу, используя процедуру для вычисления однотипных действий. Проверить правильность выполнения программы с помощью тестового варианта.
Вывести на печать элементы целочисленных массивов N(5,8) и M(10,6), кратные трем.
Задача 1
program primer1;
uses crt;
var x,y,z,v,q:real;
begin
writeln('Vvedite ishodnie dannie x,y,z');
readln(x,y,z);
v:=abs((exp(y/x*ln(x)))-(exp(ln(abs(y+x))*1/3)));
q:=(y+x)*((y-z/(y+x))/1+sqr(y+x));
writeln('Ishodnie dannie x= ',x,' y= ',y,' z= ',z);
writeln('Rezultat v= ',v:0:2);
writeln('Rezultat q= ',q:0:2);
readln;
end.
Задача 2.
program primer2;
uses crt;
var a,x,y:real;
begin
writeln('Vvedite ishodnie dannie a,x');
readln(a,x);
if x<1.3 then y:=pi*sqr(x)-7/sqr(x)
else if x=1.3 then y:=a*x*x*x+7*sqrt(x)
else y:=ln(x+7*sqrt(x))/ln(10);
writeln('Ishodnie dannie a= ',a,' x= ',x);
writeln('Rezultat y= ',y:0:3);
readln;
end.
Задача 3.
program primer3;
uses crt;
var x,s,si,eps:real;
i:integer;
begin
clrscr;
write('Введите x = ');
readln(x);
write('Точность eps = ');
readln(eps);
s:=x;
si:=x;
i:=1;
repeat
si:=-si*x*x/(2*i)/(2*i+1);
s:=s+si/(2*i+1);
inc(i);
until abs(si/(2*i+1))<eps;
writeln('Исходные данные x=', x);
writeln('Сумма s = ',s:0:10,' Число членов ряда =',i);
readln;
end.
Задача 4.
program primer4;
uses crt;
var n:array[1..60]of integer; i,s:integer;
begin
clrscr;
randomize;
for i:=1 to 60 do n[i]:=random(100);
for i:=1 to 60 do
if n[i] mod 3=0 then
s:=s+n[i];
for i:=1 to 60 do write (n[i]:4);
write('Summa elementov kratnih 3m = ',s);
readln;
end.
Задача 5.
program primer5;
uses crt;
const n=10;
var a:array [1..n,1..n] of integer; i,j,max,imax,L,c:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
max:=a[1,1]; imax:=1;
for i:=1 to n do
if a[i,i]>max then
begin
max:=a[i,i];
imax:=i;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
writeln ('max= ',max,' imax= ',imax);
writeln('Vvedite nomer stroki dlya zameni L:');
readln(L);
for j:=1 to n do begin
c:=a[L,j];
a[L,j]:=a[imax,j];
a[imax,j]:=c;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.
Задача 6.
program primer6;
uses crt;
const n=100;
function Rasst(x,y:real):real;
begin
Rasst:=sqrt(sqr(x-1)+sqr(y-1));
end;
var x,y:array[1..n] of real;
r:real;
i,k:integer;
begin
clrscr;
randomize;
writeln('Координата X:');
for i:=1 to n do
begin
x[i]:=40*random-20;
write(x[i]:6:1);
if i mod 10=0 then writeln;
end;
writeln;
writeln('Координата Y:');
for i:=1 to n do
begin
y[i]:=40*random-20;
write(x[i]:6:1);
if i mod 10=0 then writeln;
end;
writeln;
write('Введите радиус R=');
readln(r);
k:=0;
for i:=1 to n do
if Rasst(x[i],y[i])<=r then k:=k+1;
write('В круг попадает ',k,' точек');
readln
end.
Задача 7.
program primer7;
uses crt;
const
n_n = 5;
n_m = 8;
m_n = 10;
m_m = 6;
type
TMat = array[1..100, 1..100] of integer;
var
MatN: TMat;
MatM: TMat;
i, j, k, l: integer;
procedure Kratn(ar: TMat; n, m: integer);
var
i, j: integer;
begin
writeln('Элементы кратные 3: ');
for i:=1 to n do
for j:=1 to m do
if ar[i, j] mod 3 = 0 then write(ar[i, j], ' ');
writeln;
end;
begin
clrscr;
writeln('Матрица N: ');
for i:=1 to n_n do
begin
for j:=1 to n_m do
begin
MatN[i, j]:=random(100);
write(MatN[i, j]:4);
end;
writeln;
end;
writeln('Матрица M: ');
for k:=1 to m_n do
begin
for l:=1 to m_m do
begin
MatM[k, l]:=random(100);
write(MatM[k, l]:4);
end;
writeln;
end;
writeln;
Kratn(MatN, n_n, n_m);
Kratn(MatM, m_n, m_m);
readln;
end.