Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Задание 2. 1. Числовая последовательность задана рекуррентной формулой
|
|
1. Числовая последовательность задана рекуррентной формулой
Задать с консоли два первых члена последовательности 
и 
. Найти первые n членов последовательности и их сумму.
Результаты вычислений вывести в виде таблицы с заголовком.
2. Схема алгоритма решения задачи:
3. Код программы
3.1. На языке Паскаль:
Program Variant_0;
Uses WinCRT;
Var s, k, a1, a2, a, n: Word;
Begin
WriteLn('Лабораторная работа №4_2');
WriteLn('Вариант №0');
WriteLn('ИС-11-1');
WriteLn('Пупкин Василий');
WriteLn;
{ввод исходных данных}
WriteLn('Ввод исходных данных: ');
Write('a1=');
ReadLn(a1);
Write('a2=');
Readln(a2);
Write('n=');
ReadLn(n);
WriteLn;
WriteLn('----------------');
WriteLn(' k a s');
WriteLn('----------------');
s: =a2+a1; {исходная сумма}
For k: =3 To n Do
Begin
a: =a2+a1; {очередное слагаемое}
s: =s+a; {очередная сумма}
a1: =a2;
a2: =a;
WriteLn(k: 3, ' ', a: 3, ' ', s: 3);
End;
WriteLn('----------------');
WriteLn;
End.
3.2. На языке Си:
#include < stdio.h> //директивы препроцессора
#include < conio.h>
#include < math.h>
|
|