Помогите пожалуйста с этими примерами 1) Определите значение целочисленных переменных x и y после выполнения фрагмента программы
Помогите пожалуйста с этими примерами 1) Определите значение целочисленных переменных x и y после выполнения фрагмента программы: x := 336 У := 8; x := x div y; y := х mod у; 2) Определите значение целочисленных переменных a и b после выполнения фрагмента программы: а :=1686; b :=(a div 10) mod 5; а := а - 200*b; 3)Определите значение целочисленных переменных x и y после выполнения фрагмента программы: х := 11; у := 5; t := y; у := х mod у; x := t; у := у + 2*t; 4) Определите значение целочисленных переменных x и y после выполнения фрагмента программы: х := 19; у := 3; z := у*2; у := х mod у; х := х - z; у := у + z; 5)Определите значение целочисленных переменных x, y и z после выполнения фрагмента программы: х := 13; у := 3; z := x; x := z div у; у := х;
Procedure TForm1.Button4Click(Sender: TObject); var Buff: TNodePointer; x: TItem; i,j: Cardinal; begin i:=0; Buff:=Head; if(Buff^.Next=nil) then begin ShowMessage('В стеке один элемент!'); exit; end; while Buff <> nil do begin while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do begin pop(Buff^.Next,x); for j:=i to StringGrid1.RowCount-2 do StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1]; StringGrid1.RowCount:=StringGrid1.RowCount-1; end; Buff:=Buff^.Next; i:=i+1; end; end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.