Автор работы: Пользователь скрыл имя, 27 Марта 2015 в 01:35, контрольная работа
В работе даны задачи и решения к ним по дисциплине "Информатика"
Министерство образования и науки Российской Федерации
Федеральное государственное образовательное бюджетное учреждение
высшего профессионального образования
Волгоградский государственный технический университет
Кафедра «Вычислительная техника»
Семестровая работа
по дисциплине «Информатика»
Вариант №11
Выполнил:
студент группы КТО-125
Криулин М. П.
Проверил:
ст. преподаватель
Приходькова И.В.
Волгоград 2014 г
Задача 1
Условие:
Дано a,b,c,x.
Вычислить и напечатать w:=(0.5*x*x+(sin(c)/cos(c))/(
Тестовый пример:
Входные данные:
a=5
b=6
c=4
x=7
Выходные данные:
w=24.501
y=77.775
Текст программы:
Program sem1;
Var a,b,c,x,w,y:real;
Begin
Write('a=');
Read(a);
Write('b=');
Read(b);
Write('c=');
Read(c);
Write('x=');
Read(x);
if b*x*x*x+c*x*x<>0 then begin
w:=(0.5*x*x+(sin(c)/cos(c))/(
Writeln('w=',w:0:3);
y:=sqrt((sqr(a+b)*sqr(x)+a*b*
if y>=0 then Writeln('y=',y:0:3)
else Writeln('y<0');
end;
end.
Задача 2:
Условие:
Дано a = 5,3.
Вычислить значение функции z:=ln(x+7*sqrt(abs(x+5))), если x 1.9,
z:=Pi*sqr(x)-7/sqr(x), если x 1.9,
z:=a*sqr(x)+7*sqrt(x), если x 1.9,
где x изменяется на отрезке (1;3) с шагом 0,1. Вывести на печать значения z > 3 .
Тестовый пример:
при x = 1.90 z = 28.78
при x = 2.00 z = 31.10
при x = 2.10 z = 33.52
при x = 2.20 z = 36.03
при x = 2.30 z = 38.65
при x = 2.40 z = 41.37
при x = 2.50 z = 44.19
при x = 2.60 z = 47.12
при x = 2.70 z = 50.14
при x = 2.80 z = 53.27
при x = 2.90 z = 56.49
при x = 3.00 z = 59.82
Текст программы:
program sem1;
const min=1; max=3; step=0.1; a=5.3;
var x,z:real;
begin
x:=min;
while x <= max+step/2 do
begin
if x>1.9
then
z:=a*sqr(x)+7*sqrt(x)
else
if x=1.9
then
z:=Pi*sqr(x)-7/sqr(x)
else
z:=ln(x+7*sqrt(abs(x+5)));
if z>3 then writeln('при x = ',x:0:2,' z = ',z:0:2);
x:=x+step;
end;
end.
Задача 3:
Условие:
Человек вложил в банк X рублей под y процентов годовых. Начисления по процентам
происходят каждый месяц, проценты на прибыль тоже учитываются. Выяснить, через сколько месяцев человек удвоит свой первоначальный капитал.
Тестовый пример:
Входные:
сумма: 15796
процент: 25
Выходные:
Потребуется 97 месяцев.
Текст программы:
program sem3;
var
x,y,z,proc,k:real;
begin
write('Введите сумму: '); readln(x);
write('Введите процент: '); readln(y);
proc:=x*y/1200;
while z<x*2 do begin
z:=z+proc;
k:=k+1;
end;
writeln('Потребуется ',k,' месяцев');
end.
Задача 4:
Условие:
Задан одномерный массив А(N).
Выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули не рассматривать). Если положительное – найти в массиве максимальный элемент и его местоположение, если отрицательное – минимальный элемент и его расположение. Результат
отпечатать.
Тестовый пример:
Исходный массив:
-2 4 -4 -4 6 0 -9 1 2 1 6 -4 -9 7 6 -8 7 6 2 -2
Минимум: -9 в позиции: 7
Текст программы:
program sem4;
const
n=20;
var
a:array[1..n] of integer;
i,kn,kp,max,min,imax,imin:
begin
randomize;
kp:=0;
kn:=0;
Writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(n) - n div 2;
write(a[i]:4);
end;
for i:=1 to n do
if a[i]>0 then
begin
kp:=i;
break;
end;
for i:=1 to n do
if a[i]<0 then
begin
kn:=i;
break;
end;
writeln();
if kp<kn then
begin
max:=a[1]; imax:=1;
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
writeln('Максимум: ',max,' в позиции: ',imax);
end
else
begin
min:=a[1]; imin:=1;
for i:=2 to n do
if a[i]<min then
begin
min:=a[i];
imin:=i;
end;
writeln('Минимум: ',min,' в позиции: ',imin);
end;
readln;
end.