Хелпикс

Главная

Контакты

Случайная статья



Примеры решений задач. Задания

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒


Примеры решений задач

1.Используя оператор Repeat, найти сумму первых n двузначных чисел, кратных 11 (  вводится с клавиатуры).

Program Primer1;

Var n, s, a, i: Integer;

Begin

Write('Введите количество чисел n = ');

Read(n);

s := 0;    a := 11;  i := 0;

Repeat

         If a mod 11 = 0 then

         Begin

                   s := s + a;

                   i := i + 1;

         End;

         a := a + 1;

Until (i = n) or (a > 99);

WriteLn('Искомая сумма = ', s);

End.

2.Используя оператор While, написать программу, вычисляющую значения функции  с точностью до двух знаков после запятой на отрезке  с шагом 2 и выводящую результаты вычислений в виде таблицы, состоящей из двух столбцов: столбца, содержащего значения аргумента и столбца, содержащего значения функции. Значения концов отрезка и шага должны вводиться с клавиатуры.

Program Primer2;

Var a, b, h, x, y: Real;

Begin

WriteLn('Введите значения концов отрезка :');

Read(a, b);

WriteLn('Введите шаг: ');

Read(h);

WriteLn('_____________');

WriteLn('| x | y |');

WriteLn('|______|______|');

x := a;

While x <= b do

Begin

         y := x/2 + 1;

         WriteLn(x: 6: 2,' | ',y: 6: 2);

         x := x + h;

End;

WriteLn('|_____________|');

End.

3.Используя оператор For, написать программу, вычисляющую сумму элементов ряда  для . Значения  и  должны вводиться с клавиатуры.

Program Primer3;

Var   x, s, a: Real;

 n, i: Integer;

Begin

WriteLn('Введите x и n: ');

Read(x, n);

S := 1; a := 1;

For i := 1 to n do

Begin

         a := a * (-1 / x);

         s := s + a;

End;

WriteLn('Искомая сумма = ', s: 4: 2);

End.

Задания


⇐ Предыдущая123Следующая ⇒
  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.