Нужна Блок-схема program _1;
var
x, y: real;
begin
writeln ('Введите через пробел значения x и y:');
readln (x, y);
if x > 0 then
if y > 0 then
writeln ('I')
else
writeln ('IV')
else
if y > 0 then
writeln ('II')
else
writeln ('III');
end.
program _3;
const
A = 1;
B = 2;
C = 3;
var
y, m: real;
begin
y := cos(A - B) * C;
m := trunc(y) mod 3;
writeln(y:0:3);
writeln(m:0:3);
if m = 0 then
y := trunc(y)
else if m = 1 then
y := y - trunc(y);
writeln(y:0:3);
end.

Литерная величина - Величина, которая воспринимается как текстовая константа. Можно определить литерную величину как литерал без чисел. Другие названия: символьная, строковая величины, цепочка. В большинстве языков программирования литерная величина заключается в апострофы - '123', 'abcd'.

 

 

Функция длин(S) Возвращает количество символов в строке S.

Операция вырезка позволяет "вырезать" из строки группу соседних символов. Вырезка из строки S подстроки, начинающейся с i-ой и кончающейся j-ой позицией, обозначается S [ i : j]. Вырезка из строки S одного i-го символа обозначается S[i].

Команда присваивания вырезке S[N : M] := SubS. Часть строки S, начиная с позиции N и кончая позицией M, заменяется на подстроку SubS такой же длины.    Delete ( Var S : String; N, M : Integer ) Удаляет M символов из строки S, начиная с позиции N.

Insert ( SubS : String; Var S : String; N : Integer ) Вставляет подстроку SubS в строку S, начиная с позиции N.

Str ( X : Integer; Var S : String ) Возвращает представление числа X в его символьной форме S.

Val ( S : String; Var X, Code : Integer ) Возвращает представление символов строки S в ее числовой форме X. Параметр Code содержит признак ошибки преобразования (если Code = 0, ошибки нет).

Функции

Chr ( X : Byte ) : Char Возвращает символ с заданным порядковым номером X.

Сoncat ( S1 [ , S2 , ... , SN ] ): String Выполняет сцепку (конкатенацию) последовательности строк.

Copy ( S : String; N , M : Integer ) : String Возвращает подстроку из строки S, начиная с позиции N и длиной M символов.

Length ( S : String ) : Byte Возвращает количество символов в строке S.

Ord ( X : Char ) : LongInt Возвращает порядковый номер символа X в таблице кодов символов.

Pos ( SubS , S : String ) : Byte Возвращает номер позиции, начиная с которой в строке S располагается подстрока SubS (если значение функции равно нулю, то S не содержит SubS).  ASC ( X$ ) Возвращает порядковый номер символа X$ в таблице кодов символов.

CHR$ ( N ) Возвращает символ с заданным порядковым номером N.

INSTR ( [ N , ] X$ , Y$ ) Возвращает номер позиции строки X$, начиная с которой в ней размещается подстрока Y$. Если подстрока не найдена, то значение функции равно нулю. Поиск подстроки ведется с позиции N, а если N не задано, то с начала строки.

LEFT$ ( X$ , N ) Возвращает подстроку, составленную из первых N символов строки X$.

LEN ( X$ ) Возвращает количество символов в строке X$.

MID$ ( X$, N [ , M ] ) Возвращает подстроку, составленную из M символов строки X$, начиная с позиции N (если параметр М опущен, то возвращаются все символы, начиная с позиции N).

RIGHT$ ( X$ , N ) Возвращает подстроку, составленную из последних N символов строки X$.

STR$ ( N ) Возвращает представление числа N в символьной форме.

VAL ( X$ ) Возвращает представление символов строки X$ в числовой форме.

Операторы

MID$ ( X$ , N , M ) = Y$ Часть строки X$, начиная с позиции N, длиной M позиций заменяется на строку Y$. Длина X$ не изменяется.

SWAP X$ , Y$ Строки X$ и Y$ обмениваются своими значениями.

Компьютеры уже достаточно давно вошли в нашу жизнь. Они изменили мир и возможности человека. Но все-таки сложно рассуждать о том, пользу или вред приносит нам компьютер.
С донной стороны, он существенно облегчил жизнь человека. Особенно для учащихся школы и студентов нет ничего проще чем «написать» реферат, курсовую, дипломную работу или найти интересующую информацию. Возможности Интернета не ограничены. В работе бухгалтера компьютер является, без сомнения, основным рабочим инструментом. В медицине компьютерная диагностика организма выявить возникшие проблемы. Для архитекторов, дизайнеров, модельеров компьютер открыл огромные возможности. И даже в шоу-бизнесе без него не обойтись. Подумайте, где были бы наши «звезды» без компьютерных технологий? Компьютер на производстве управляет другими машинами, руководит процессом. Человек стал теперь просто пассивным наблюдателем. Компьютер следит за работой, человек следит за компьютером.
Если раньше ценился физический труд, то в наше время все больше возрастает потребность в труде интеллектуальном. И опять же, нельзя оценить это однозначно. Конечно, многие люди существенно расширили свой кругозор, но вот физическое состояние оставляет желать лучшего. Мы постепенно забываем о физической нагрузке, о спорте, который еще никому не принес вреда. А ведь здоровье не купишь ни за какие деньги. Многие этого не понимают. А может быть им просто все равно. Часто люди, в частности школьники, предпочитают просидеть долгие часы за компьютером, чем, скажем, прогуляться на свежем воздухе, и даже не задумываются о том, какой непоправимый вред наносят сами себе. 

А что говорить о книгах? Они постепенно отходят на второй план. И это вполне естественно в создавшейся ситуации. Судите сами: зачем читать что-то, если любое сочинение, реферат, какую-либо исследовательскую работу можно скачать из Интернета? Причем не нужно прилагать к этому особых усилий, да и времени уйдет гораздо меньше. Ну а если захочется все же иногда почитать, то совершенно нет необходимости идти в библиотеку или загромождать квартиру шкафами с книгами, потому что один компьютер может заменить сотни таких шкафов. Во всяком случае, если не может пока, то сможет в скором времени.
Что касается обычной, повседневной жизни людей, то и в нее постепенно проникает компьютер. Например, имеет место такое явление как Интернет-магазины. То есть уже даже покупки можно сделать, не выходя из дома. Конечно, для таких маленьких провинциальных городков как Канск это пока недоступно, но я думаю, что это не надолго. Ведь компьютерные технологии развиваются стремительно. Прогресс не стоит на месте. В настоящее время везде, где бы мы не оказались, люди говорят об Интернете. Эта технология оказывает на нашу жизнь такое же огромное влияние, как телефон и телевидение. И нет уже, наверное, такой сферы жизни, которой не коснулся бы компьютер. Но подумайте, хорошо ли то, что в скором времени почти все за человека будут делать машины? Честно сказать, я не могу представить себе жизнь в мире, который представляет собой один большой компьютер. Конечно, я не говорю о том, что нужно поднимать вооруженное восстание против машин. В конце концов, нам без них уже не обойтись. Но я считаю, что вмешательство компьютеров нужно ограничить. В жизни ничего не достается бесплатно, и цена, которую мы платим за что оказывают нам машины, - это вред, наносимый нашему здоровью. Логично сделать вывод, что чем больше компьютеры будут нам тем больше будет расти эта цена. А сможем ли мы заплатить ее уже в ближайшем будущем? Я думаю, что в наших силах сделать так, чтобы мы смогли