1Введите количество купленных тетрадей, стоимость тетради, количество купленных ручек, стоимость ручки. Выведите стоимость покупки.(это 1 задача).Задача 2.Ввести N в диапазоне от 0 до 255. Ввывесте его двоичное представление.(На паскале)
Давай сначала кратко изложу суть решения, а затем уже разберемся более детально. В коде имеется 2 процедуры, процедура Nermucum считывает с клавиатуры n чисел, а затем выводит эти числа. Процедура Artacum выводит элементы массива на экран. (зачем так сделано и почему такой страшный нейминг вопрос не ко мне). В основной программе массив меняет местами четные элементы.
Теперь пробежимся по коду:
Program kursayin_khndir_1;
Type arr = array [1..100] of integer;
var a: arr; mp: integer;
n,i,j,k: integer;
Здесь мы имеем: имя программы - kursayin_khndir_1, тип arr, который представляет собой массив целых чисел из 100 элементов, переменную a с типом arr( то есть массив), переменную mp целого типа, также переменные n, i, j, k целого типа.
procedure Nermucum(var a: arr);
var i:integer;
begin;
for i:= 1 to n do
begin ;
read(a[i]);
end;
for i:= 1 to n do
write(a[i]:5);
writeln;
end;
Первая процедура, которая принимает аргумент типа arr, функция нам считать элементы с клавиатуры(с 1-го цикла), а затем вывести эти элементы (с второго цикла).
procedure Artacum(var arr_1: arr);
var i:integer;
begin
for i:= 1 to n do write(arr_1[i]:5);
end;
Вторая процедура, также принимает аргумент типа arr, она просто выводит значения элементов массива на экран.
Основную программу разделим на части.
readln(n);
Nermucum(a);
i:=1;
j:=n;
Считываем число n(количество элементов массива)
Вызываем процедуру Nermucum, которая считает элементы массива с клавиатуры и выведет нам массив на экран.
Даем переменной i значение 1, а переменной j значение n. То есть, i будет указывать на начало массива, а j на конец массива.
Смотрим основной цикл, который тут используется:
while i<=j do
if a[i] mod 2=0 then
begin
if (a[j] mod 2=0)and(i<>j) then
begin
mp:=a[i]; a[i]:=a[j]; a[j]:=mp;
i:=i+1; j:=j-1;
end
else j:=j-1;
end
else i:=i+1;
Начиная с 1 элементы функция ищет чётный элемент, если она его находит, то проверяет условие: a[j] четный и не равен i, если условие выполняется, то мы меняем местами i-тый и j-тый элемент, затем сдвигаем наши "указатели" на начало и конец на 1 элемент, если же условия не выполнилось, то никакой замены не производим, однако, "указатели" на начало и конец всё равно сдвигаем.
Artacum(a);
Ну и в конце вызываем процедуру Artacum, чтобы вывести наш массив на экран.
• средства управления локальными ресурсами WS – функции распределения оперативной памяти между процессами, планирования и диспетчеризации процессов, управления процессорами в мультипроцессорных машинах, управления периферийными устройствами и другие функции управления ресурсами локальных ОС;
• средства предоставления собственных ресурсов и услуг в общее пользование – серверная часть ОС (сервер). Эти средства обеспечивают, например, блокировку файлов и записей, что необходимо для их совместного использования; ведение справочников имен сетевых ресурсов; обработку за удаленного доступа к собственной файловой системе и БД; управление очередями за удаленных пользователей к своим периферийным устройствам;
• средства за доступа к удаленным ресурсам и услугам и их использования – клиентская часть ОС (редиректор). Эта часть выполняет распознавание и перенаправление в сеть за к удаленным ресурсам от приложений и пользователей. При этом за поступает от приложения в локальной форме, а передается в сеть в другой форме, соответствующей требованиям сервера. Клиентская часть также осуществляет прием ответов от серверов и преобразование их в локальный формат, так что для приложения выполнение локальных и удаленных за неразличимо;
• коммуникационные средства ОС, с которых происходит обмен сообщениями в сети. Эта часть обеспечивает адресацию и буферизацию сообщений, выбор маршрута передачи сообщения по сети, надежность передачи, т.е. является средством транспортировки сообщений.
Давай сначала кратко изложу суть решения, а затем уже разберемся более детально. В коде имеется 2 процедуры, процедура Nermucum считывает с клавиатуры n чисел, а затем выводит эти числа. Процедура Artacum выводит элементы массива на экран. (зачем так сделано и почему такой страшный нейминг вопрос не ко мне). В основной программе массив меняет местами четные элементы.
Теперь пробежимся по коду:
Program kursayin_khndir_1;
Type arr = array [1..100] of integer;
var a: arr; mp: integer;
n,i,j,k: integer;
Здесь мы имеем: имя программы - kursayin_khndir_1, тип arr, который представляет собой массив целых чисел из 100 элементов, переменную a с типом arr( то есть массив), переменную mp целого типа, также переменные n, i, j, k целого типа.
procedure Nermucum(var a: arr);
var i:integer;
begin;
for i:= 1 to n do
begin ;
read(a[i]);
end;
for i:= 1 to n do
write(a[i]:5);
writeln;
end;
Первая процедура, которая принимает аргумент типа arr, функция нам считать элементы с клавиатуры(с 1-го цикла), а затем вывести эти элементы (с второго цикла).
procedure Artacum(var arr_1: arr);
var i:integer;
begin
for i:= 1 to n do write(arr_1[i]:5);
end;
Вторая процедура, также принимает аргумент типа arr, она просто выводит значения элементов массива на экран.
Основную программу разделим на части.
readln(n);
Nermucum(a);
i:=1;
j:=n;
Считываем число n(количество элементов массива)
Вызываем процедуру Nermucum, которая считает элементы массива с клавиатуры и выведет нам массив на экран.
Даем переменной i значение 1, а переменной j значение n. То есть, i будет указывать на начало массива, а j на конец массива.
Смотрим основной цикл, который тут используется:
while i<=j do
if a[i] mod 2=0 then
begin
if (a[j] mod 2=0)and(i<>j) then
begin
mp:=a[i]; a[i]:=a[j]; a[j]:=mp;
i:=i+1; j:=j-1;
end
else j:=j-1;
end
else i:=i+1;
Начиная с 1 элементы функция ищет чётный элемент, если она его находит, то проверяет условие: a[j] четный и не равен i, если условие выполняется, то мы меняем местами i-тый и j-тый элемент, затем сдвигаем наши "указатели" на начало и конец на 1 элемент, если же условия не выполнилось, то никакой замены не производим, однако, "указатели" на начало и конец всё равно сдвигаем.
Artacum(a);
Ну и в конце вызываем процедуру Artacum, чтобы вывести наш массив на экран.
Если остались вопросы - добро в комментарии.
• средства управления локальными ресурсами WS – функции распределения оперативной памяти между процессами, планирования и диспетчеризации процессов, управления процессорами в мультипроцессорных машинах, управления периферийными устройствами и другие функции управления ресурсами локальных ОС;
• средства предоставления собственных ресурсов и услуг в общее пользование – серверная часть ОС (сервер). Эти средства обеспечивают, например, блокировку файлов и записей, что необходимо для их совместного использования; ведение справочников имен сетевых ресурсов; обработку за удаленного доступа к собственной файловой системе и БД; управление очередями за удаленных пользователей к своим периферийным устройствам;
• средства за доступа к удаленным ресурсам и услугам и их использования – клиентская часть ОС (редиректор). Эта часть выполняет распознавание и перенаправление в сеть за к удаленным ресурсам от приложений и пользователей. При этом за поступает от приложения в локальной форме, а передается в сеть в другой форме, соответствующей требованиям сервера. Клиентская часть также осуществляет прием ответов от серверов и преобразование их в локальный формат, так что для приложения выполнение локальных и удаленных за неразличимо;
• коммуникационные средства ОС, с которых происходит обмен сообщениями в сети. Эта часть обеспечивает адресацию и буферизацию сообщений, выбор маршрута передачи сообщения по сети, надежность передачи, т.е. является средством транспортировки сообщений.
Объяснение: