Шестнадцатеричный редактор для программистов. Помимо стандартных для такого рода программ возможностей редактирования, предлагает подсчет контрольных сумм CRC16 и CRC32, поиск, замену и подсчет числа вхождений байтов в файл.
Незаменимая на экзамене шпора по русскому. Почти весь материал русского языка 10-11 классов. Все компактно и удобно. Советую распечатать на обеих сторонах листа. Тогда получиться сразу несколько штук.
Первая часть текста (разд. 2–7) содержит необходимые теоретические сведения и задания на 6 лабораторных проектов по основным те- мам линейной алгебры. Во второй части (разд. 8–9) приведены задачи, контрольные задания и рабочая программа курса. Для студентов, изучающих численные методы по программе под- готовки в области математики, экономики и управления, естественных или технических наук по специальностям: 010101 – Z Математика , 010501 – Прикладная математика и информатика P, 010503 – b Математическое обеспечение и администрирование информационных систем , 210400 – Телекоммуникации0, 230200 – B Информационные системы, 230301 – Моделирование и исследование операций в организационно- технических системах&, 080801 – 8Прикладная информатика (по областям) , 090105 – Комплексное обеспечение информационной безопасности автоматизированных систем: и другим
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.
Описание: Задание: Имеется файл. Содержимое файла поместить в список в обратном порядке.
Исходный код: Program spiski; uses crt; Type TElement=^element; Element=record a:char; next:TElement; End;
var Q,last,head:TElement; m,j,c:integer;
Procedure add(var last:TElement; k:char); var Q:TElement; Begin new(Q); Q^.a:=k; Q^.next:=nil; last^.next:=Q; Last:=Q; End;
{proverka nali4iya faila}
procedure proverka(filename:string); var f:text; Begin {$I-} Assign(f,filename); reset(f); {$I+} if ioresult<>0 then Begin textcolor(204); writeln('ERROR FILE!!!'); readln; halt; End; End;
{vivod faila na ekran}
procedure printfile(filename:string); var f:text; a:string; Begin Assign(f,filename); reset(f); while not eof(f) do Begin readln(f,a); textcolor(12); writeln(a); End; close(f); End;
{====sozdanie spiska====}
procedure createhead(var head,last:TElement); Begin new(head); head^.next:=nil; last:=head; End;
{====vivod na ekran spiska====}
procedure print(head:TElement); var Q:TElement; l:integer; Begin new(q); Q:=head^.next; while Q<>nil do Begin write(Q^.a,'-->'); Q:=Q^.next; End; writeln; End;
{====vipoln9Iet...====}
procedure poisk(filename:string;head:TElement); var Q,O,p:TElement; F:file of char; b:char; i:integer; Begin new(Q); Assign(f,filename); reset(f); Q:=head^.next; for i:=filesize(f)-1 downto 0 do begin seek(f,i); read(f,b); add(last,b); end; writeln; close(f); End;
02 Февраля 2026, Понедельник
14:37
>Г Л А В Н А Я
>Ф А Й Л Ы
>С Т А Т Ь И
>Р Е Ф Е Р А Т Ы
>Ф О Р У М
>О Т З Ы В Ы
>Т Е С Т Ы
>F l a s h И Г Р Ы
>Ф О Т О Ш О П
