На pascal можно так:
Объяснение:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
begin
x:=0; y:=0;
for i:=1 to 500 do
begin
x:=random(x+i);
y:=random(y+i);
if x>600 then x:=random(x-i);
if y>800 then y:=random(y-i);
canvas.Pen.Color:=RGB(i*5,128*i,-128*(i+1));
canvas.Pen.Width:=2;
canvas.LineTo(x,y);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.close;
end;
end.
Это тема форм записи алгоритмов. Это форма блока. В начале записи каждого алгоритма есть слово "начало", а в конце "конец". Они обозначаются овалами. Ввод или вывод (что-то вроде "дано" и "ответ") записываются в параллелограме (согнутом прямоугольнике). В обычном прямоугольнике записывают действия. В ромбе — вопрос, на который можно ответить либо "да", либо "нет" и в зависимости от этого нужно выполнить те или иные действия. В этом упражнении всё просто делаешь по действиям. Например: ввод x, y — 5 и 25 (что дано в таблице). Дальше условие (вопрос): "x=y?" Отвечаем "нет" и пишем в таблицу ответ. После этого нас спрашивают: "x>y?" Снова нет. В таблицу пишем "нет". Действие: "y=y-x", то есть y теперь равен 25-5, что есть 20. Пишем в таблицу это число. Повторяем алгоритм несколько раз (там стрелка ведёт к началу алгоритма после этого, поэтому и повторяем), пока y не станет равен 5 (25-5-5-5-5),тогда на вопрос "x=y" ответим "да", пишем в таблицу значение x в итоге и готово. С нижней таблицей так же.
2 ТБ = 2*1024*1024 = 2*2^10*2^10 = 2^21 МБ
2^13 бит = 2^13/8*1024 = 2^13/2^3*2^10 = 2^13/2^13 = 1 КБ
2) Я помню чудное мгновенье:
I = 1 Б = 8 бит
k = 25
V = ?
V = k*I = 25*8 = 200 бит = 25 Б
3) Переводим всё в биты: 1024 МБ = 1024*1024*1024*8 = 2:^33 бит
1 КБ = 1*1024*8 = 8192 бит
Следовательно в и г равны