По бокам коробки кругленькие кнопки. Тут же рядом, в уголке ручка с трубкой на шнурке. Без языка говорит, прекрасно слышит без ушей.(телефон) Под крышей — четыре ножки, а на крыше — суп да ложки.(стол) Маленькая, плоская, в компьютер вставляется, Тут же сказки, и подсказки, даже фото появляются!( Дискета) С листьями, но не растение.Сшита, но не одежда.Много о людях знает, но не детектив.(Записная книжка) Маленькие зверьки, серенькие шубки. Длинные хвосты, черненькие глазки, остренькие зубки.(мышь) Про школу не знаю
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"
// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; Pen.Color := Color.Red; Pen.Width := 3; OnMouseDown := (x,y,mb) -> MoveTo(x,y); OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name; OnKeyDown:=k->if k=13 then begin SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку