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.
Развитие компьютерных сетей происходило, в первую очередь, за счет развития двух более крупных направлений технологии – вычислительной техники и коммуникаций. Первые попытки создать возможность работы с вычислительной техникой нескольких пользователей заключались в загрузке в мэйнфрэйм (основной компьютер) нескольких готовы пакето данных, которые были заранее подготовлены и нуждались в обработке.
Первоначальное развитие этой технологии происходило на протяжении 50-х годов XX века, когда компьютеры представляли собой громоздкие и неудобные устройства, обрабатывающие информацию крайне длительное время. На тот момент удобство пользователя находилось на одном из последних мест в развитии, а основное внимание уделялось повышению мощности.
Следующим прообразом компьютерных сетей стало создание отдельных терминалов, имеющих полноценные собственные устройства ввода-вывода и работающие напрямую с одним общим компьютером. Для самого пользователя работа за таким устройством была куда более удобной – он мог не замечать, что мощности компьютера параллельно используются еще несколькими людьми. Именно тогда стали появляться первые сети, чей принцип работы заключался лишь в банальном физическом удалении терминалов на определенные расстояния.
Как только начали появляться более компактные компьютеры – это произошло в 70-х годах, позволить себе их установку могли все больше предприятий, поэтому необходимость использования какого-либо средства связи возрастала и тогда возникли первые приближенные к современным объединения компьютеров в сеть и потребность в монтаже компьютерных сетей.
begin
for i := 1 to 20 do
write('@');
end.