18 прочтений · 2 года назад
урок на делфи 16 - Пинг понг
задание на delphi. Самый просто пинг понг unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,math; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Timer4: TTimer; Label14: TLabel; procedure FormCreate(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ky,kx,skorost:integer; implementation {$R *...
5,4K прочтений · 3 года назад
Разбор задания №16 по информатике из демоверсии 2021. Решаем двумя способами. С помощью рекурсии и циклов в Python.
Это задание я рекомендую решать именно с применением рекурсии. А второй способ приведен для того чтобы вы смогли лучше разобраться с рекурсией и пошагово увидеть как работает наш код.