pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 >  > Запись оставлена ruslana 02.12.2020 в 17:39 Получить справку

Запись оставлена ruslana 02.12.2020 в 17:39
запустить | скачать | новая запись

  1. program test;
  2. uses crt;
  3. type
  4. zv=^pointer;
  5. pointer=record
  6. elem:char;
  7. next:zv;
  8. end;
  9. var
  10. vlan1, vlan2, s1, s2:zv;
  11. sym:char;
  12. Lk,ls:boolean;
  13.  
  14. procedure vstav(lanka:zv; buk:char);
  15. var
  16. q:zv;
  17. begin
  18. new(q);
  19. q^.elem:=buk;
  20. q^.next:=lanka^.next;
  21.  
  22. lanka^.next:=q;
  23. end;
  24. begin
  25. clrscr;
  26. new(s1);
  27. s1^.next:=nil;
  28. vlan1:=s1;
  29.  
  30. write('enter symbols= ');
  31. repeat
  32. read(sym);
  33. vstav(vlan1,sym);
  34. vlan1:=vlan1^.next
  35. until sym='.';
  36. vlan1:=s1^.next;
  37. writeln;
  38. write('string S1= ');
  39. while vlan1<>nil do
  40. begin
  41. if vlan1^.elem='k' then
  42. lk:=true;
  43. if (vlan1^.elem='s') and (lk=true) then
  44. ls:=true;
  45. write(vlan1^.elem);
  46. vlan1:=vlan1^.next;
  47. end;
  48. writeln;
  49.  
  50. if (lk=true) and (ls=true) then
  51.   begin
  52. new(s2);
  53. s2^.next:=nil;
  54. vlan2:=s2;
  55. vlan1:=s1^.next;
  56.  
  57. repeat
  58. if vlan1^.elem='k' then
  59. begin
  60. vlan1:=vlan1^.next;
  61. while vlan1^.elem<>'s' do
  62. begin
  63. vstav(vlan2,vlan1^.elem);
  64. vlan2:=vlan2^.next;
  65. vlan1:=vlan1^.next;
  66. end;
  67. end;
  68.  
  69. vlan1:=vlan1^.next
  70. until vlan1=nil;
  71.  
  72. write('string S2= ');
  73. vlan2:=s2;
  74. vlan2:=vlan2^.next;
  75. while vlan2<>nil do
  76. begin
  77. write(vlan2^.elem);
  78. vlan2:=vlan2^.next;
  79. end;
  80. end
  81. else writeln ('there are no k-s pairs in the S1 string');
  82. end.

Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки