Код програми
program Project2;
{$APPTYPE CONSOLE
uses
SysUtils, Windows;
var
X :Real;
Suma :Real;
Chiselnyk :Real;
Znamennyk :Real;
Znak :Real;
I :Integer;
N :Integer;
Ch :Char;
K :integer;
G :integer;
function TextToScreen(St:string):string;
//Кирилиця в консольному режимі Delphi 7
var
K :Integer;
G :integer;
begin
for K:=1 to Length(St) do
begin
G:=Ord(St[K]);
if G < 128 then continue;
case G of
191: st[K]:=Chr(244);
170: st[K]:=Chr(242);
175: st[K]:=Chr(245);
178: st[K]:=Chr(73);
186: st[K]:=Chr(243);
179: st[K]:=Chr(105);
32: st[K]:=Chr(32)
else
if St[K] <= 'i' then St[K]:=Chr(G-64)
else if St[K] <= 'y' then St[K]:=Chr(G-16);
end //case
end;
TextToScreen:=St;
end; // procedure TextToScreen
begin
SetconsoleCP(1251);
SetconsoleOutputCP(1251);
Write('Введіть N: ');
Readln(X);
Suma:=1;
N:=101;
Znamennyk:=1;
for I:=1 to Trunc(N/2) do
begin
if (I mod 2 <> 0) then
Znak:=1
else
Znak:=-1;
Chiselnyk:=Exp((I * 2 - 1)*Ln(X));
Znamennyk:=Znamennyk * (I* 2 - 1);
Suma:=Suma + Znak*Chiselnyk/Znamennyk;
Znamennyk:=Znamennyk * (I * 2);
end;
writeln('Сума дробів = ',Suma:12:10);
writeln(Suma:12:10);
Readln;
end.
Скріншот програми:
Алгоритм програми
Chiselnyk:=Exp((I * 2 - 1)*Ln(X));
Початок
Введення: X
Znamennyk:=Znamennyk * (I* 2 - 1);
Znamennyk:=Znamennyk * (I * 2);
Виведення: Suma
Кінець
Suma:=Suma + Znak*Chiselnyk/Znamennyk;
Ідентифікатор |
Опис |
X |
Значення змінної N |
Suma |
Сума дробів |
Chiselnyk |
Чисельник дробів |
Znamennyk |
Знаменник дробів |
Znak |
Знак дробу («+» чи «-») |
I |
Цикл |
178.
Дано натуральні числа п,
Визначити
кількість членів аk
послідовності
б) кратних 3 і не кратних 5;
Текст програми
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
N :Integer; // Кількість членів послідовності a1…an
X :Integer; // Кількість членів кратних 3 і не кратних 5
I :Integer; // Член послідовності a1…an (цикл)
A :Integer; // Кожен член послідовності a1…an
Ch :Char;
K :integer;
G :integer;
function TextToScreen(St:string):string;
//Кирилиця в консольному режимі Delphi 7
var
K :Integer;
G :integer;
begin
for K:=1 to Length(St) do
begin
G:=Ord(St[K]);
if G < 128 then continue;
case G of
191: st[K]:=Chr(244);
170: st[K]:=Chr(242);
175: st[K]:=Chr(245);
178: st[K]:=Chr(73);
186: st[K]:=Chr(243);
179: st[K]:=Chr(105);
32: st[K]:=Chr(32)
else
if St[K] <= 'i' then St[K]:=Chr(G-64)
else if St[K] <= 'y' then St[K]:=Chr(G-16);
end //case
end;
TextToScreen:=St;
end; // procedure TextToScreen
begin
SetconsoleCP(1251); //Використання кирилиці
SetconsoleOutputCP(1251); //Використання кирилиці
Writeln('Введіть кількість членів: '); //Виведення тексту на екран
X := 0; //Початкове значення X дорівнює нулю
read(N); //Читання значення N введенного з клавіатури
Writeln('Введіть члени: a1...an'); //Виведення тексту на екран
for i := 1 to N do //Початок циклу (значення від 1 до значення N)
begin
read(A); //Читання значеннь A введених з клавіатури
if (A mod 3 = 0) and (A mod 5 <> 0) then inc(X); //Логічна умова, яка рахує кількість чисел кратних 3 і не кратних 5
end; //Кінець циклу
writeln; //Відступ рядка перед виведенням результату
writeln('Кількість членів кратних 3 і не кратних 5 = ',X); //Виведення кількості чисел кратних 3 і не кратних 5
Readln;
Readln;
end.
