2)Pascal
var s: string;
i, f, g: integer;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
f := pos('<', s);
if f = 0
then begin
write('Нет "<"');
if pos('>', s) = 0
then writeln('и ">"')
else writeln
end
else begin
g := 0;
for i := length(s) downto 1 do
if s[i] = '>'
then begin
g := i;
break
end;
if g = 0
then writeln('Нет ">"')
else if f > g
then writeln('">" левее "<"')
else begin
delete(s, f, g - f + 1);
writeln('Результат:');
writeln(s)
end
end
end.
Если гарантированно, что в тексте есть только по одному правильно расположенному символу "<" и ">", то совсем просто:
Pascal
var s: string;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
delete(s, pos('<', s), pos('>', s) - pos('<', s) + 1);
writeln('Результат:');
writeln(s)
end.
0
1)
program fantscrin;
var s:string; i, plus, minus:integer;
begin
write('Введите строку:'); readln(s);
plus:= 0;
minus:= 0;
for i:=1 to length(s) do
begin
if s[i] = '+' then plus := plus + 1;
if s[i] = '-' then minus := minus + 1;
end;
writeln;
if plus > minus then for i:=1 to plus do
write('+')
else if plus < minus then for i:=1 to minus do
write('-')
else write('Кол-во знаков одинаковое!');
end.
2)
program fantscrin;
var y,x,b,e:real; i:integer;
begin
write('Введите число b:'); readln(b);
e:= 2.7;
x:= 0;
writeln;
writeln(' y | x ');
writeln('');
while x <= 10 do
begin
if x < 3 then
begin
y:= Exp(x * Ln(e)) + 1 / (x + 1);
writeln(y:6:5, ' | ', x:6:5)
end;
if x = 3 then
begin
y:= Sin(x) + sqrt(x);
writeln(y:6:5, ' | ', x:6:5);
end;
if x > 3 then
begin
y:= Cos(x) + Abs(b);
writeln(y:6:5, ' | ', x:6:5);
end;
x:= x + 0.5;
end;
end.
Информатика – молодая научная дисциплина, изучающая вопросы, связанные с поиском, сбором, хранением, преобразованием и использованием информации в самых различных сферах человеческой деятельности. Генетически информатика связана с вычислительной техникой, компьютерными системами и сетями, так как именно компьютеры позволяют порождать, хранить и автоматически перерабатывать информацию в таких количествах, что научный подход к информационным процессам становится одновременно необходимым и возможным.
Информатика в широком смысле представляет собой единство разнообразных отраслей науки, техники и производства, связанных с переработкой информации.
Последняя информационная революция привела к появлению множества новых областей теории и практики, которые связаны с изучением и производством технических средств, методов, технологий, обеспечивающих прирост новых знаний. Одной из таких областей знаний является информатика. Понятие “информатика” возникло в 60-х годах во Франции для обозначения области, занимающейся автоматизированной обработкой информации с электронных вычислительных машин (ЭВМ). Французский термин Informatique (информатика) образован путем слияния начала слова information (информация) и конца слова automatique (автоматика) и означает “информационная автоматика” или “автоматизированная переработка информации”. В англоязычных странах этому термину соответствует синоним Computer Science (наука о компьютерной технике). Выделение информатики как самостоятельной сферы человеческой деятельности связано, в первую очередь, с развитием компьютерной техники. Термин “информатика” начинает выступать в обновленном виде и служит не только для отражения успехов компьютерной техники, но связывается уже с глобальными процессами передачи и обработки информации.
В Российской Федерации дата того, когда празднуют День информатики – это 4 декабря. Дата эта была выбрана неслучайно. Именно этот день в какой-то мере можно считать днем зарождения информатики в России, поскольку 4 декабря 1948 года Б. И. Рамеев и И.С. Брук зарегистрировали патент на свою новую разработку – электронную цифровую вычислительную машину.
После создания крайне сложной для того времени вычислительной машины потребовалось дальнейшее ее изучение, развитие, обучение людей работе с ней, что дало мощный толчок для зарождения и развития информатики.
Кроме того, Россия стала инициатором изучения информатики как фундаментальной науки и впервые заявила о необходимости внедрения такого предмета в общеобразовательную школьную программу.
Произошло это в 1996 году в Москве, на втором Международном конгрессе ЮНЕСКО, под названием «Образование и информатика».