Контрольная работа по "Информатика"

Автор работы: Пользователь скрыл имя, 03 Октября 2011 в 10:14, контрольная работа

Описание работы

работа содержит теоритический вопрос и 4 задачи и их решения

Файлы: 1 файл

КР по информатике.doc

— 88.00 Кб (Скачать файл)

           1001101101,0010       1001101101,0010

            +                                                                                 -

                   100111,1011                                                                          100111, 1011  

           1010010100,1101                                                                   1001000101,1001

                

4)   1010010100,11012→ 660,11    1001000101,10012581,9   
 

Задание 3

на  тему "Циклический вычислительный процесс":

составить блок-схему алгоритма  решения задачи и  программу на языке  PASCAL (одним способом).

  Решение: Program summa;

var

t:integer;

s,a:real;

begin

t:=1;

s:=0;

while t<=20 do begin

a:=t/(t*t-5);

s:=s+a;

t:=t+1;

end;

Writeln('s=', s:5:2);

End. 
 
 
 
 
 
 
 
 

ОТВЕТ: S=0,51 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание 4

на  тему "Разветвляющийся в цикле

вычислительный  процесс":

составить блок-схему алгоритма  решения задачи и  программу на языке  PASCAL (одним способом).

Вычислить значения функции Z

Z = 15y + 7,2 y2

у =

а = 4,5

х =    

t [1;6]        ∆t = 1 

Program fun_14;

const

a=4.5;

var

t:integer;

y,x,z:real;

begin

t:=1;

repeat

x:=(t*t+4)/(t+1);

if x<0.3 then y:= a*x*x+5;

if x>0.3 then y:= ln(a*x) else

y:=x/a+a*a;

z:=15*y+7.2*y*y;

writeln('z(',x:5:2,')=',z:5:2);

t:=t+1;

until t>6;

end. 
 
 

ОТВЕТ:

 
 

Информация о работе Контрольная работа по "Информатика"