Объяснить принцип действия программы

@kotyaaatok · Регистрация: 10.11.2019

Студворк — интернет-сервис помощи студентам

Pascal

uses crt;
type
  Stroka = array[1..200] of string;
 
var
  s1, s: string;
  i, j, L, r, k, q, x: integer;
  A: Stroka;
 
begin
  clrscr;
  writeln('Предложение');
  readln(s1);
  s1 := s1 + '';
  L := length(s1);
  s := '';
  r := 0;
  k := 0;
  x := 0;
  for i := 1 to L do
    if s1[i] <> '' then s := s + s1[i]
    else begin
      r := r + 1;
      A[r] := s;
      s := '';
    end;
  for i := 1 to r do
    for q := 1 to i do
      if A[i] = A[q] then x := x + 1;
  if x = 1 then begin
    for j := 1 to r do
      if A[i] = A[j] then k := k + 1;
    writeln(A[i], ':', k);
  end;
  readkey;
end.

Программа для каждого из слов заданного предложения указывает, сколько раз оно встречается в
предложении. Объясните, пожалуйста, как действует эта программа, для чего нужна строчка s1 := s1 + '', для чего вообще используется ' ' в ней... И что означает readkey? Заранее спасибо.

@JuriiMW · 30.12.2019, 06:36

Уберите лишние строки:

uses crt;

clrscr;

readkey;

Они вам не нужны. Поверье!
А потом пройдите по программе отладчиком и посмотрите что в какой из переменных происходит на каждом шаге программы…
Если что, отладка — это нужно не F9, а F8 нажимать.

@Puporev · 30.12.2019, 11:43

Сообщение от kotyaaatok

для чего нужна строчка s1 := s1 + '',

Только не

Pascal

s1+'';

а

Pascal

1	s1:=s1+' ';//не пустую строку, а пробел, это для обозначения конца последнего слова.

@JuriiMW 5059 / 2633 / 2346 Регистрация: 10.12.2014 Сообщений: 9,997
	30.12.2019, 06:36	2
	Уберите лишние строки: `uses crt;` `clrscr;` `readkey;` Они вам не нужны. Поверье! А потом пройдите по программе отладчиком и посмотрите что в какой из переменных происходит на каждом шаге программы… Если что, отладка — это нужно не F9, а F8 нажимать. 0

Опции темы