Borland Pascal подпрограмма

@maksim-2804 · Регистрация: 13.06.2011

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

6. Составить подпpогpамму, котоpая читает постpочно текст дpугой пpогpаммы
на языке Паскаль (вводится с клавиатуpы), содеpжащий не более 10 стpок
(стpока - не более 80 символов), обнаpуживает комментаpии и печатает их.

@AnTro.Net · 20.06.2011, 20:01

Pascal

1
2
3

for i:=1 to lenght(s) do 
 if s[i]='{' then 
   while s[i]<>'}' do res:=res+s[i];

как то так, но не учитываю если комментарий на несколько строк. это нужно?

@maksim-2804 · 20.06.2011, 20:16 **[ТС]**

думаю что да, нужно.

@maksim-2804 1 / 1 / 0 Регистрация: 13.06.2011 Сообщений: 18
		1
	Borland Pascal подпрограмма 20.06.2011, 10:05. Показов 1336. Ответов 2 Метки нет (Все метки) 6. Составить подпpогpамму, котоpая читает постpочно текст дpугой пpогpаммы на языке Паскаль (вводится с клавиатуpы), содеpжащий не более 10 стpок (стpока - не более 80 символов), обнаpуживает комментаpии и печатает их. 0

@maksim-2804 1 / 1 / 0 Регистрация: 13.06.2011 Сообщений: 18
	20.06.2011, 20:16 [ТС]	3
	думаю что да, нужно. 0

Опции темы

Borland Pascal подпрограмма

Решение