(а) Напишите имена переменных, использованных в программном коде. (6) Определите тип алгоритма, который используется в игре. (с) Определите, какое сообщение выдаст компьютер при неверном ответе
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "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.
Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
// 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.