Розробіть програму яка друкує на екрані монітора більше з введених двох цілих чисел ОЧЕНЬ

Показать ответ

Ответ:

1NICOLAS1

20.11.2020 06:59

uses drawman;

{Рисует одну вишенку по часовой стрелке, начиная с верхней линии}

procedure Berry();

begin

onvector(1, 0);

onvector(1, -1);

onvector(0, -1);

onvector(-1, -1);

onvector(-1, 0);

onvector(-1, 1);

onvector(0, 1);

onvector(1, 1);

end;

{Рисует сразу оба листка}

procedure Leaf();

begin

onvector(2, 0);

onvector(2, -2);

onvector(-2, 0);

onvector(-4, 4);

onvector(-2, 0);

onvector(2, -2);

onvector(2, 0);

end;

begin

field(15, 12);

topoint(6, 10);

pendown;

Leaf;

onvector(-3, -6);

onvector(-1, 0);

Berry;

onvector(1, 0);

onvector(3, 6);

onvector(0, -6);

Berry;

end.

0,0(0 оценок)

Ответ:

МисАлександра

20.12.2021 01:39

var a: array[1..3] of array[1..4] of string;

Length(s): возвращает длину строки s;

Copy(s, p, n): возвращает подстроку строки s длины n с позиции p;

Delete(s, p, n): удаляет из строки s n символов с позиции p;

Str(x, s): переводит число x в строку и сохраняет результат в s.

Типизированные файлы - файлы, состоящие из компонентов одного типа, число которых заранее не определено.

Нетипизированные файлы - файлы, где информация записывается и считывается блоками определенного размера, в них могут храниться данные любого вида и структуры.

Текстовые файлы - файлы, состоящие из любых символов. Они организуются по строкам, каждая из которых заканчивается символом "конец строки".

4.а)

$(1010.11)_3=(1*3^{-2}+1*3^{-1}+0*3^0+1*3^1+0*3^2+1*3^3)_{10}=(\frac{1}{3^2}+\frac{1}{3^1}+0+3+27)_{10}=(\frac{1}{9}+\frac{1}{3}+30)_{10}=(30\frac{4}{9})_{10}$

б)

$(13.146)_8=(1*8^1+3*8^0+1*8^{-1}+4*8^{-2}+6*8{-3})_{10}= (8+3+0.125+0.0625+0.01171875)_{10} = 11.19921875_{10}$

$0.19921875_{10}=0.33_{16}$

$11_{10}=B_{16}$

$B_{16}+0.33_{16}=B.33_{16}$

5.а) $34_{10}=100010_2\\12_{10}=1100_2\\\boxed{}\boxed{}100010\\\boxed{}\boxed{}001100\\======\\\boxed{}\boxed{}101110\\\\101110_2=46_{10}$

ответ: 46.

б)

$14_{10}=1110_2\\8_{10}=1000_2\\\boxed{}\boxed{}\boxed{}1110\\\boxed{}\boxed{}\boxed{}1000\\=====\\\boxed{}\boxed{}\boxed{}0000\\\boxed{}\boxed{}0000\\\boxed{}0000\\1110\\=====\\1110000\\\\1110000_2=112_{10}$