Кол-во информации в современном обществе стремительно растет, человек оказывается нагруженном в море информации. Для того, что бы « не утонуть» в этом мире, необходимо обладать информационной культурой, т. е. знаниями и умениями в области информационных и коммуникационных технологий, а так же быть знакомым с юридическими и этическими нормами в этой сфере. В настоящее время, на пороге информационного общества, социальная значимость навыка письма ручкой снижается и, наоборот, социальная значимость навыков ввода информации с клавиатуры и работы с графическим интерфейсом приложений с мыши возрастает. Создание и редактирование документов с компьютера, т. е. овладение офисными информационными технологиями, становиться в информационном обществе необходимым умением. Современные информационные технологии позволяют включать в состав документов любые мультимедийные объекты (графику, звук, анимацию, видео). Дома можно привести в порядок фотоархив семьи, отсканировать старые фото и поместить их в упорядоченном виде в компьютерный альбом; в процессе обучения можем подготавливать реферат с иллюстрациями; в процессе профессиональной деятельности создавать компьютерные презентации о деятельности вашей в информационном обществе. В современном информационном обществе полезно получить первоначальные представление о назначении и возможностях компьютерной систем автоматизированного проектирования. В информационном обществе полезным является умение создавать базы данных, а так же вести в них поиск данных. Квалифицированный пользователь компьютера может на основе использования средств визуального объектно-ориентированного программирования создать необходимые ему специализированные приложения. Современному человеку необходимо овладеть коммуникативной культурой, т. е. умениями создавать и посылать эл. письма, находить нужную информацию во Всемирной паутине или файловых архивах, участвовать в чатах и т. д.
program osi;
uses crt;
const
GREEN = 2;
BLUE = 1;
CYAN = 3;
WHITE = 7;
MAX_X = 120;
MAX_Y = 30;
PI = 3.1415926;
MX2 = MAX_X div 2;
MY2 = MAX_Y div 2;
procedure out(x,y: integer; s:char);
begin
if (x+MX2>-1) and (x+MX2<MAX_X+1) then
if (MAX_Y-(y+MY2)>0) and (MAX_Y-(y+MY2)<MAX_Y+1) then begin
gotoxy(x+MX2, MAX_Y-(y+MY2));
write(s);
end;
end;
{----------------------------------------------------------------}
{Основная программа}
var
i, y :integer;
begin
textcolor(WHITE);
for var x := -MX2 to MX2 do
out(x, 0, '-');
for y := -MY2 to MY2 do
out(0, y, '!');
out(-1, 14, '/');
out(1, 14, '\');
out(60, 0, '>');
{Рисуем прямую y = x}
textcolor(GREEN);
for var x:=-MY2 to MY2 do
out(x, x, '*');
{Рисуем график y=x^2}
textcolor(BLUE);
for var x := -MY2 to MY2 do begin
y:=x*x;
out(x, y, '*');
end;
{Рисуем график y=x*sin(30)}
textcolor(CYAN);
for var x := -MX2 to MX2 do begin
y := round(x * sin(PI / 6));
out(x, y, '*');
end;
read(i);
end.
Результат:
