1

Тема: Як зробити програму що видаляє слова. Pascal

Я пару годин не можу зробити програму що видаляє слова які мають хочаб одну цифру.

Program asm;
uses crt;
var mytext, word1:string; 
    i,k :integer;
Begin
  clrscr;
  write('Ведіть текст: '); readln(mytext);
  word1:='1';
  k:=length(word1);
  for i:=1 to length(mytext) do
    if copy(mytext,i,k)= word1 then
    begin
      delete(mytext,i,k);
    end;
  writeln(mytext)
end.

2

Re: Як зробити програму що видаляє слова. Pascal

kuzmyak написав:
Program asm;

Дуже невдала назва.
Будь ласка, уточнюйте, що саме пише компілятор чи чим вас не задовільняє ваш код. "Я не можу" - це, звісно, цікаво, але нам це не допоможе вам допомогти. А от "компілятор пише про помилку таку в рядку такому" - допоможе і нам, і вам.

3

Re: Як зробити програму що видаляє слова. Pascal

https://replace.org.ua/uploads/images/9602/0a6344aedc5eb8464cf9c107058f973d.bmp
Він видаляє лише цифру, а мені потрібно щоб видаляло слово.
І в мене не виходить.

4 Востаннє редагувалося koala (10.11.2019 19:00:02)

Re: Як зробити програму що видаляє слова. Pascal

kuzmyak написав:

Він видаляє лише цифру

kuzmyak написав:
  word1:='1';

Замінити на слово не пробували?

І зверніть увагу на функцію pos.

5

Re: Як зробити програму що видаляє слова. Pascal

це умова щоб воно мені один(цифру) шукало

6

Re: Як зробити програму що видаляє слова. Pascal

Ну так а якщо там слово написати?

word1:='love';

7

Re: Як зробити програму що видаляє слова. Pascal

то видалить ціле слово. але я хз що з  тим знанням робити

8

Re: Як зробити програму що видаляє слова. Pascal

Давайте спочатку визначимось, що таке слова. Думаю, для навчальної програми, можна вважати словом усе, що знаходиться між двома пробілами, або між пробілом і початком або кінцем рядка. Далі, як тільки ми визначили межі чергового слова, ми можемо перевірити, чи містить воно цифру. Отже у вас має бути щонайменше дві різних перевірки, або навіть два цикли. До того ж, вам усе одно, яке число ви знайдете, тому тут можна використати множини: http://web.archive.org/web/201805201526 … -types#set

Подякували: kuzmyak, koala, leofun013

9

Re: Як зробити програму що видаляє слова. Pascal

Не переплутайте множину чисел, і множину символів чисел.

10

Re: Як зробити програму що видаляє слова. Pascal

Постараюсь