Скандалы, Интриги, Расследования........ (1 Viewer)

[АфонЯ]

omg a ya wordom ne umeyu pol'zovaca bida

 

[pluck]

napostili bes tolku alololo wabaka nas tut ne udalit xatyap?omg

в теме флуда удалять посты ? лол

 

[PoLZa]

omg a ya wordom ne umeyu pol'zovaca bida

Я могу научить ^^ И вордом, и екселем, и презентациям, и как базы данных делают. А так же Фотошоп, корел, компас, паскаль и делфи. Ещё что то по мелочи но я не помню =( Ну ещё из личных знаний могу научить пользоваться 1C. ЗЫ: Ещё веб дизайн забыла добавить ^^

 

[DeadMan]

КОД
type
PListPoint=^TList;
TList=record
data:integer;
nextListPoint;
end;
function CheckOcc(s1,s2ListPoint):integer;
var curpos1,curpos2,curpos11ListPoint;
CheckRes:boolean;
OccNum:integer;
begin
if s2=nil then
begin
checkocc:=0;
exit;
end;
CheckRes:=false;
OccNum:=0;
curpos1:=s1;
while curpos1[]nil do
begin
if curpos1^.data=s2^.data then
begin
curpos2:=s2;
curpos11:=curpos1;
repeat
begin
CheckRes:=true;
if curpos11^.data[]curpos2^.data then CheckRes:=false;
curpos11:=curpos11^.next;
curpos2:=curpos2^.next;
end;
until (curpos11=nil) or (curpos2=nil) or not CheckRes;
CheckRes:=CheckRes and (curpos2=nil);
end;
if CheckRes then inc(OccNum);
CheckRes:=false;
curpos1:=curpos1^.next;
end;
CheckOcc:=OccNum;
end;
че эта штука делает? а то написал и не помню

 

[UniQu3]

че эта штука делает? а то написал и не помню

uveli4ivaet 4len

8==э =] 8======Э

 

[АфонЯ]

Я могу научить ^^ И вордом, и екселем, и презентациям, и как базы данных делают. А так же Фотошоп, корел, компас, паскаль и делфи. Ещё что то по мелочи но я не помню =( Ну ещё из личных знаний могу научить пользоваться 1C. ЗЫ: Ещё веб дизайн забыла добавить ^^

omg ya 4itat' ustal eto ewe i u4it' net mne xvatit znanii operi icq

 

[PoLZa]

Вообще я хз кто её писал. И у меня есть вопрос ты сам хоть знаешь что за бред ты написал? И вообще на каком это языке? Ну честно я не совсем поняла, но всё же,эта прога по ходу производит какие то вычислительные процессы, но я хз какие. Видно что здесь заданы циклы, и что то подбирается. Несколько вычислительных операций, но функции вывода значения я не вижу. Это всё что я могу сказать. И я очень сомневаюсь что её писал ты, а если и писал то поверь она не рабочая.

 

[DeadMan]

Вообще я хз кто её писал. И у меня есть вопрос ты сам хоть знаешь что за бред ты написал? И вообще на каком это языке? Ну честно я не совсем поняла, но всё же,эта прога по ходу производит какие то вычислительные процессы, но я хз какие. Видно что здесь заданы циклы, и что то подбирается. Несколько вычислительных операций, но функции вывода значения я не вижу. Это всё что я могу сказать. И я очень сомневаюсь что её писал ты, а если и писал то поверь она не рабочая.

Ну мб для преподавания в 3-6 классе это и не надо, указатели штука интересная

Написано на Delphi 7, и никаких вычислительных процессов не производит, а только проверят вхождение одного списка в другой (списки заданы указателями на их первые элементы)

но функции вывода значения я не вижу

function CheckOcc
CheckOcc:=OccNum;

И я очень сомневаюсь что её писал ты, а если и писал то поверь она не рабочая.

Зря сомневаешься :[ Рабочая, успешно справляется с поставленной задачей.

uveli4ivaet 4len
8==э =] 8======Э

 

[PoLZa]

Зря сомневаешься :[ Рабочая, успешно справляется с поставленной задачей.

Я проверяла она не работает.

 

[DeadMan]

Тебе рабочий .pas скинуть? Мб не то передаешь.