Практикум по решению задач на ЭВМ. Тарова И.Н - 27 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
writeln('последняя цифра =',r1);
goto 10;
end;
10:
end.
Лабораторная работа № 4
Простейшие циклы
1) Дано натуральное число n. Вычислить: а)2
n;
б) n!;
в)
)
1
1)...(
2
1
1)(
1
1
1(
222
n
+++
2) Дано действительное число x. Вычислить:
)63)...(5)(3)(1(
)64)...(6)(4)(2(
−−−−
−−
−
−
xxxx
xxxx
3) Дано действительное число а. Найти среди чисел 1, 1+1/2, 1+1/2+1/3…
первое больше а
{нахождение первого числа последовательности
большего заданного числа а}
program bol(input,output);
uses CRT;
var a,b,s:real;
i:real;
begin
clrscr;
writeln('Введите число а, для проверки');
read (a);
b:=1;
i:=1;
while b<=a do
begin
i:=i+1;
b:=b+1/i;
end;
27
                      Практикум по решению задач на ЭВМ


         writeln('последняя цифра =',r1);
         goto 10;
       end;
    10:
  end.




  Лабораторная работа № 4
                                  Простейшие циклы
1) Дано натуральное число n. Вычислить: а)2n; б) n!;
   в) (1 + 1 )(1 + 1 )...(1 + 1 )
         12     22       n2

2) Дано действительное число x. Вычислить: ( x − 2)( x − 4)( x − 6)...( x − 64)
                                                    ( x − 1)( x − 3)( x − 5)...( x − 63)

3) Дано действительное число а. Найти среди чисел 1, 1+1/2, 1+1/2+1/3…
   первое больше а

  {нахождение первого числа последовательности
       большего заданного числа а}
  program bol(input,output);
  uses CRT;
  var a,b,s:real;
       i:real;
  begin
    clrscr;
    writeln('Введите число а, для проверки');
    read (a);
    b:=1;
    i:=1;
    while b<=a do
    begin
       i:=i+1;
       b:=b+1/i;
    end;



                                        27

Страницы