Microsoft Windows - IBM тәрізді компьютерлерде графикалық интерфейсті қолдануды кеңінен жүзеге асырған, қазіргі заман талабына сай жасалған операциялық орта. Оның дамытылған нұсқалары түрінде Windows NT, Windows 2000 сияқты операциялық жүйелер кеңінен қолданылуда. shareAdvocacyHobbyist іUser spaceMicrokernelLoadable kernel moduleDevice driverProcess control switchScheduling algorithmsComputer -robinFixed-priority preemptiveMultilevel feedback queueShortest job nextMemory management and resource protectionSecurity ringsMemory protectionVirtual memoryPagingSegmentation fault / Bus errorGeneral protection OSMorphOSOS/2 conceptsBoot loaderLive CDLive USBPXEAPIVirtual file systemVirtual tape libraryComputer networkOS shell CLITUIGUIVUI HAL
1).
program undm;
uses
crt;
var
i, a, b: real;
begin
writeln('Введите сначала первое число , затем второе:');
readln(a, b);
if a < b then
a := a * 2
else
a := b * 2;
writeln(a);
readln;
end.
2).
program yotx;
uses
crt;
function yotx(x: real) : real;
begin
if x <= 1 then
yotx := 0
else
yotx := 1 / (x + 6);
end;
var
x: real;
begin
writeln('Введите x:');
readln(x);
writeln(yotx(x));
readln;
end.
3).
program pp;
uses
crt;
var
x: real;
begin
writeln('Введите x:');
readln(x);
if (x >= 2) and (x <= 3) then
writeln('X принадлежит промежутку')
else
writeln('X не принадлежит промежутку');
readln;
end.
4).
program co;
uses
crt;
var
ocenka: integer;
begin
writeln('Введите оценку:');
readln(ocenka);
case ocenka of
1: writeln('Плохо');
2: writeln('Неудовлетворительно');
3: writeln('Удовлетворительно');
4: writeln('Хорошо');
5: writeln('Отлично') else writeln('Ошибка! Введите число от 1 до 5');
end;
readln;
end.