varyavernerr
17.12.2022 16:04

Как посмотреть созданную Web- страницу в MS FrontFage?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
123love321
24.04.2023 08:47

1) a := 4;  

b := 6;

b := 8 + a * b;

a := b / 4 * a.

а = 4

b = 6

b = 8 + 4 * 6 = 32

a = 32 / 4 * 4 = 32 / 16 = 2

2) a := 3;

b := 6;

b := 12 + a * b;

a := b / 5 * a.

a = 3

b = 6

b = 12 + 3 * 8 = 30

a = 30 / 5 * 3 =  6 * 3 = 18

3) a := 8;

b := 8 + a / 2;

a := a – b / 2.

a = 8

b = 8 + 8 / 2 = 12

a = 8 - 12 / 2 = 8 - 6 = 2

4) a := 2;

b := 6;

b := 12 + a * b;

a := b / 4 * a.

a = 2

b = 6

b = 12 + 2 * 6 = 12 + 12 = 24

a = 24 / 4 * 2 = 6 * 2 = 12

5) a := 3;

b := 8 + 2 * a;

a := b / 2 * a.

a = 3

b = 8 + 2 * 3 = 8 + 6 = 14

a = 14 / 2 * 3 = 7 * 3 = 21

6) f := 21;

e := 10;

f := 5 * f + 5;

e := f – 10 – e * 5.

f = 21

e = 10

f = 5 * 21 + 5 = 105 + 5 = 110

e = 110 - 10 - 10 * 5 = 100 - 50 = 50

7) a := 14;

b := 4;

a := a / 2 - b;

b := (a * b) / 2;

b := a + b

a = 14

b = 4

a = 14 / 2 - 4 = 7-4 = 3

b = ( 3 * 4) / 2 = 12 / 2 = 6

b = 3 + 6 = 9

8) b := 5;

a := -3;

a := 7 + a * b;

b := a / 2 + b

b =5

a = -3

a = 7 + (-3 * 5) = 7 + (-15) = -8

b = -8/2 + 5 = -4 +5 = 1

9) a := 4;

b := 5;

a := b + 15;

b := 100 / a * 4.

a = 4

b = 5

a = 5 + 15 = 20

b = 100 / 20 * 4 = 5 * 4 = 20

10) b := 8;

a := 10;

b := b + a * 2;

a := 29 - a;

b = 8

a = 10

b = 8 + 10 * 2 = 8 + 20 = 28

a = 29 - 10 = 19;

Объяснение:

0,0(0 оценок)
Ответ:
cksenia112
18.09.2022 14:30
Вот пример вычисления факториала числа 200

const
  n=1000; {максимальное количество цифр в числе}

type
  big=record
    v:array[1..n] of byte; {массив с цифрами числа}
    m:integer {количество цифр в числе}
  end;

function Str2Big(s:string):big;
{Переводит строковое представление в big}
var
  i,n,k,err: integer;
  r:big;
begin
  n:=Length(s);
  r.m:=n;
  for i:=1 to n do
  begin
    Val(s[i],k,err);
    r.v[i]:=k
  end;
  Str2big:=r
end;

function Big2Str(p:big):string;
{Переводит представление big в строковое}
var
  i,n:integer;
  c,s:string;
begin
  s:='';
  n:=p.m;
  for i:=1 to n do
  begin
    Str(p.v[i],c);
    s:=s+c
  end;
  Big2Str:=s
end;

function TruncBig(a:big):big;
{Усекает незначащие нули}
var
  i,p,n:integer;
  r:big;
begin
  n:=a.m;
  p:=0;
  while (p<n) and (a.v[p+1]=0) do p:=p+1;
  for i:=1 to n-p do r.v[i]:=a.v[i+p];
  r.m:=n-p;
  TruncBig:=r
end;

function MultBig(a,b:big):big;
{Возвращает произведение чисел типа big}
var
  i,j,k,m,n,s:integer;
  r:big;
begin
  m:=a.m; n:=b.m;
  for i:=m to m+n do r.v[i]:=0;
  r.m:=m+n;
  for j:=n downto 1 do
  begin
    if b.v[j]=0 then r.v[j+m+n-1]:=0
    else begin
      k:=0;
      for i:=m downto 1 do
      begin
        s :=a.v[i]*b.v[j]+r.v[i + j]+k;
        r.v[i+j]:=s mod 10;
        k:=s div 10
      end;   
      r.v[j] := k
    end
  end;
  MultBig:=TruncBig(r);
end;

var
  i:integer;
  s:string;
  bi,bs:big;
begin
  bs:=Str2Big('1');
  for i:=1 to 200 do begin
    Str(i,s);
    bi:=Str2Big(s);
    bs:=MultBig(bs,bi);
    end;
  s:=Big2Str(bs);
  Writeln(s)
end.

Результат
788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота