Для упрощения работы пользователя в состав современных операционных систем, и в частности в состав Windows, входят программные модули, создающие графический пользовательский интерфейс. В операционных системах с графическим интерфейсом пользователь может вводить команды посредством мыши, тогда как в режиме командной строки необходимо вводить команды с помощью клавиатуры.
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).
Not(X) or not(X or Y) or not(Y and not(X and Y))
Not (X) or not (X or Y) or not(Y) or not(X and Y)
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X and Y))
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X) or not(Y))
not(Y) or not(X)
164)
var a: array [1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
169)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] < 0) then s := s + a[i];
end;
writeln(s);
<span>end.
172)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] <> 0) then s := s + 1;
end;
writeln(s);
<span>end.
174)
var a: array [1..10] of real;
i, s: integer;
b: real;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
b := b + a[i];
end;
b := b / 10;
for i := 1 to 10 do
begin
if (a[i] > b) then s := s + 1;
end;
writeln(s);
<span>end.
179)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (i mod 2 = 0) then a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
Вроде так =)</span></span></span></span></span>
<!DOCTYPE html>
<html>
<head>
<title>Название страницы</title>
<script src="https://code.jquery.com/jquery-3.1.1.js"></script>
<script>
function ent(event) {
if (event.keyCode == 13) {
event.preventDefault();
var v = $('#inp').val();
var elem = $('<li></li>').text(v);
elem.click(function() {
$(this).remove();
});
$('#target').append(elem);
$('#inp').val('');
}
}
$(function() {
$('#inp').on("keyup", ent);
});
var inp = document.getElementById('inp');
var target = document.getElementById('target');
function kup(e){
if (!e) e = window.event;
var keyCode = e.keyCode || e.which;
if (keyCode == '13'){
var text = inp.value;
var li = document.createElement('li');
var textNode = document.createTextNode(text);
li.appendChild(textNode);
li.addEventListener('click', die);
target.appendChild(li);
inp.value = '';
}
}
</script>
</head>
<body>
<ul id="target">
</ul>
<input id="inp">
</body>
</html>