Паскаль
Var a,b,h: double;
Begin
write('Введите a: '); read(a);
write('Введите b: '); read(b);
write('Введите h: '); read(h);
writeln('__________________________');
writeln('| x | F(x) |');
writeln('|_____|____________________|');
while a <= b do begin
writeln('|',a:5,'|', a-abs(cos(a)):20,'|');
a:= a + h;
end;
write('|_____|____________________|');
end.
С#
class Program
{
static void Main(string[] args)
{
Console.Write("Введите a: ");
double a = Convert.ToDouble(Console.ReadLine());
Console.Write("Введите b: ");
double b = Convert.ToDouble(Console.ReadLine());
Console.Write("Введите h: ");
double h = Convert.ToDouble(Console.ReadLine());
Console.WriteLine(" ____________________");
Console.WriteLine("| x | F(x) |");
Console.WriteLine("|_____|______________|");
while (a <= b)
{
Console.WriteLine("|{0,5}|{1,15:0.000000000|}", a, a-Math.Abs(Math.Cos(a)));
a += h;
}
Console.WriteLine("|_____|______________|");
Console.ReadLine();
}
}
C/C++
#include "stdafx.h"
#include "locale.h"
#include "stdlib.h"
#include <math.h>
#include <iostream>
using namespace std;
int main()
{
double a=0,b=0,h=0;
setlocale(0,"russian");
printf("Введите a: ");
cin >> a;
printf("Введите b: ");
cin >> b;
printf("Введите h: ");
cin >> h;
printf(" ____________________\n");
printf("| x | F(x) |\n");
printf("|_____|______________|\n");
while (a <= b)
{
printf("|%5.2f|%14.9f|\n", a, a-abs(cos(a)));
a += h;
}
printf("|_____|______________|\n");
system("pause");
}
Каждый символ несёт в себе 4 бита информации (из формулы N=2^i, где N - мощность алфавита, i - число битов)
всего информации 130*4=520(бит)=65(байт)
Var
m, n: integer; r: real;
begin
n:=random(-9999,9999);
m:=random(-9999,9999);
if m<>0 then begin
r:=((n)mod(m));
writeln(r); end
else writeln('Выполнение деления невозможно, т.к. знаменатель равен нулю. Перезапустите программу для подбора других значений');
<span>end.</span>
