Текст програми
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
S :string; //Рядок символів
I :integer; // Символ рядка S (цикл)
Z :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); //Використання кирилиці
Writeln(Введіть рядок знаків: '); //Виведення тексту на екран
Readln(S); //Читання значення введенного з клавіатури
Z:=0; //Початкове значення Z=0
for I:=1 to Length(S) do //Початок циклу (від 1 до числа рівного значенню довжини рядка введенного з клавіатури)
begin
if (S[I] = '-') or (S[I] = '+') or (S[I] = '*') then //Рахування кількості знаків -,+,* у введенному рядку
Inc(Z);
end;
Writeln; //Відступ рядка перед виведенням результату
Writeln('Кількість входжень знаків -,+,* = ',Z); //Виведення кількості входжень знаків -,+,* на екран
Readln;
end.
Скріншот програми:
Алгоритм програми
Ідентифікатор |
Опис |
S |
Рядок знаків |
I |
Символ рядка S (цикл) |
Z |
Загальна кількість знаків «+», «-», «*» |
425. Дано дійсні числа s, t. Одержати:
g(l.2, s) + g(t, s)—g(2s—1, st),
де
Текст програми
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
S :Real;
T :Real;
R :Real;
function G(A,B : Real) : Real;
begin
Result:=(Sqr(A) + Sqr(B))/(Sqr(A) + 2*A*B + 3*Sqr(B)+4);
end;
begin
Writeln('G(1.2, S) + G(T,S) - G(2*S-1, S*T)');
write('S= ');
Readln(S);
Write('T= ');
Readln(T);
R:=G(1.2, S) + G(T,S) - G(2*S-1, S*T);
Writeln('g(l.2, s) + g(t, s)-g(2s-1, st) =',R:10:5);
Readln;
end.
Скріншот програми:
А лгоритм програми
R=G(1.2, S) + G(T,S) - G(2*S-1, S*T)
Виведення: R
Кінець
Ідентифікатор |
Опис |
S |
Значення змінної S |
T |
Значення змінної T |
R |
Результат формули G(l.2, S) + G(T, S)-G(2S-1, ST) |