Подскажите по информатике дали придумать свою программу, с опен офис бейсик.и там начиная со слова dim. дата и время, коды символов, слово перевертыш не нужно!

oo calc

транспонирование матрицы

нахождение максимального элемента

решить уравнения методом эйлера (тоже через матрицы)

да хотя бы закрасить каждую ячейку другим цветом - зрелищно и прикольно

Внешняя память  - это память, предназначенная для длительного хранения программ и данных. целостность содержимого взу не зависит от того, включен или выключен компьютер

дисковод  (накопитель) - устройство записи/считывания информации. накопители имеют собственное имя – буква латинского алфавита, за которой следует двоеточие. для подключения к компьютеру  одного или несколько дисководов и их работой нужен дисковый контроллер

носитель информации  (носитель записи) – материальный объект, способный хранить информацию. информация записывается на носитель посредством изменения , и механических свойств запоминающей среды

по типу доступа к информации  внешнюю память делят на два класса:

устройства прямого (произвольного) доступа  –  время обращения к информации не зависит от места её расположения на носителе;

устройство последовательного доступа  – такая зависимость существует

в состав внешней памяти входят:     1) накопители на жестких магнитных дисках (нжмд);   2) накопители на гибких магнитных дисках (нгмд);   3) накопители на магнитооптических компакт дисках;   4) накопители на оптических дисках (cd-rom);   5) накопители на магнитной ленте и др.

Var   x,a,b,c,max,min,mid: real; begin   readln(x);   a: =sin(x);   b: =cos(x);   if a> 0 then   begin     c: =ln(x);     if (a> b) and (a> c) then  max: =a else     if (b> a) and (b> c) then max: =b else  max: =c;     if (a< b) and (a< c) then min: =a else     if (b< a) and (b< c) then min: =b else min: =c;     if (a> min) and (a< max) then mid: =a else     if (b> min) and (b< max) then mid: =b else mid: =c;     writeln(min,' ',mid,' ',max);   end   else   if a> b then writeln(b,' ',a) else writeln(a,' ',b); end.