Архивтен файлдарды жою үшін келесі әрекеттер орындалады​

На 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 в итоге и готово. С нижней таблицей так же.