Для упрощения работы пользователя в состав современных операционных систем, и в частности в состав Windows, входят программные модули, создающие графический пользовательский интерфейс. В операционных системах с графическим интерфейсом пользователь может вводить команды посредством мыши, тогда как в режиме командной строки необходимо вводить команды с клавиатуры.
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Матрица A ***'); var a:=MatrRandom(m,n,10,99); a.Println(3); var b:=new integer[m,n]; var c:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10); Writeln('*** Матрица B ***'); b.Println(3); Writeln('*** Матрица C ***'); c.Println(3); Writeln(3*n*'-'); Writeln('Количество нулевых элементов в С: ', c.ElementsByRow.Where(t->t=0).Count); var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum); Writeln('Сумма всех элементов матрицы B: ',sb); Writeln('Сумма всех элементов матрицы C: ',sc); if sb>sc then Writeln('Сумма элементов матрицы B больше') else if sc>sb then Writeln('Сумма элементов матрицы C больше') else Writeln('Суммы элементов матриц B и С равны') end.
dim years years = inputbox("Введите ваш возраст") if years = 1 then msgbox("Мне 1 год") end if if years = 2 then msgbox("Мне 2 годa") end if if years = 3 then msgbox("Мне 3 годa") end if if years = 4 then msgbox("Мне 4 годa") end if if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then dim s s = "Мне "+cstr(years) if (years mod 10 = 1) then s = s + " год" end if if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if if (years mod 10 = 0) then s = s + " лет" end if msgbox(s) end if
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).