Program spusku; uses crt; type spusok=^elem; elem=record data:integer; next:spusok; end; var i:spusok;
procedure add(var current:spusok; elem:integer); var x:spisok; begin new(x); x^.data:=elem; x^.next:=nil; current^.next:=x; current:=x; end;
procedure stvor(var i:spusok); var p:spisok; n:integer; begin i:=nil; writeln('Vvedite spusok celux 4usel. 0-konec'); readln(n); add(i,n); readln(n); while n<>0 do begin p:=i; while p^.next<>nil do p:=p^.next; add(p,n); readln(n); end; end;
procedure minmax(var i:spusok); var p:spusok; kmin, kmax:integer; begin kmin:=1000000; kmax:=0; while i<>nil do begin p:=i; if p^.data>kmax then kmax:=p^.data; if p^.data<kmin then kmin:=p^.data; i:=i^.next; end; writeln('raznost =', kmax-kmin) end;
BEGIN clrscr; stvor(i); minmax(i); readkey; end.
ti2107
16.11.2020
Cистема -совокупность взаимосвязанных между собой объектов. Составные части системы называются элементами или компонентами.
СИСТЕМНЫЙ ПОДХОД - Метод рассмотрения каждого вопроса, задачи, явления, объекта как части более широкого единого и неразделимого целого - системы взаимосвязанных составных элементов. Системный подход предусматривает определение целей функционирования системы, выделение ее связей с другими системами. При системном подходе решения самой задачи ставится в зависимость от решения смежных задач и проблем более высокого уровня.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Добрый вечер! мне с этими заданиями, это Заранее за ответ.
2 не знаю .