|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.03.2012, 23:44 | #1 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
Нужно дописать программу!
Добрый день. Помогите дописать программу пожалуйста. она должна считать количество элементов до введенного слова (слово вводится с клавиатуры). Текст вводится в 8 строк. Осталось дописать процедуру которая считала бы символы. Помогите пожалуйста.
program LAB_3; uses crt; var Dinam: ^String; F,s: Text; i,k: integer; NameFile: string[10]; Slovo: string; begin ClrScr; WriteLn; Write('Vvedit` imya faily (do 10 symvoliv): '); ReadLn(NameFile); if Length(NameFile) = 0 then halt; assign(F, NameFile+'.TXT'); rewrite(F); WriteLn('Vvedit` ryadky: '); New(Dinam); for i := 1 to 8 do begin Write(i:2,': '); ReadLn(Dinam^); WriteLn(F, Dinam^); end; Close(F); WriteLn; WriteLn('Textoviy fail stvoreno. Natysnit` klavishy'); readkey; ClrScr; WriteLn; Write('Vvedit` slovo do yakogo rahyvaty: '); ReadLn(Slovo); Assign(F, NameFile+'.TXT'); Reset(F); WriteLn; WriteLn('Vmist faily:'); WriteLn; for i:=1 to 8 do begin readln(F,Dinam^); writeln(Dinam^); end; Close(F); Dispose(Dinam); readkey; end. |
17.03.2012, 23:51 | #2 | ||
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Если я правильно понял, из коментариев в программе, то так:
Код:
Цитата:
Цитата:
Код:
И вообще, зачем тут динамическая строка?
Все тривиальное просто
Последний раз редактировалось whatever; 18.03.2012 в 01:42. |
||
17.03.2012, 23:59 | #3 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
но насколько я знаю sysutils для Делфи, а мне нужен Паскаль.
должна щитать символы текста(буквы, пробелы..). та строка значит "ВВедите слово до которого щитать" динамическая строка потому что в задании так написано) Последний раз редактировалось Маx; 18.03.2012 в 00:12. |
18.03.2012, 00:58 | #4 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
Если говорить точнее, то нужно найти позицыю (введеного) слова в тексте, который состоит с 8 строк)
|
18.03.2012, 01:54 | #5 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Тяжело с "иностанцами" общаться, так и не понял, что тебе нужно. Посмотри, такой вариант пойдет?
Код:
Все тривиальное просто
|
18.03.2012, 13:27 | #6 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
я сейчас напишу пример роботы програмы, чтоб было понятней:
Вводим строки: 1: собака 2: телефон 3: кот 4: яблоко 5: дерево 6: слон 7: жаба 8: лампа Вводим слово до которого считать: кот Программа должна ответить: до слова кот 13 символов. Грубо говоря это позицыя слова кот -1 |
18.03.2012, 14:22 | #7 |
Пользователь
Регистрация: 27.02.2010
Сообщений: 90
|
Код:
как-то так
|
18.03.2012, 15:22 | #8 | ||||
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Цитата:
Код:
Цитата:
Цитата:
Цитата:
Все тривиальное просто
|
||||
18.03.2012, 15:50 | #9 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
Спасибо большое очень помогли!
Последний раз редактировалось Маx; 18.03.2012 в 17:26. |
18.03.2012, 17:26 | #10 |
Пользователь
Регистрация: 17.03.2012
Сообщений: 25
|
еще один вопрос. А как сделать так чтобы считало еще в виде, например, стиха, чтобы в каждой строке было по несколько слов, а не одно как в придыдущем примере?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно дописать программу | alex0097 | Фриланс | 3 | 16.10.2011 14:05 |
Нужно дописать программу!!! | Bal_Bes | Помощь студентам | 1 | 08.06.2011 18:08 |
Нужно дописать программу на Ассемблере | Seoha | Помощь студентам | 0 | 22.01.2011 17:13 |
Нужно дописать программу (C\C++) | Operator-cn | Помощь студентам | 0 | 09.03.2010 20:03 |