![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
NajjZ |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
вот такая задача:
Описать процедуру: add (t, c), добавляющую литеру с в конец текста t; сообразил два варианта кода, но не знаю будут ли они правильны
и второй
из второго кода в частности интересует будет ли в участке begin read(t,d); write(s,d) end;после прочтения текста из t и записи его в s операцией write(s,c) записываться С именно в конец текста s помогите, очень надо. пишите и свои варианты Сообщение отредактировано: NajjZ - 14.01.2009 12:36 |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата сообразил два варианта кода, но не знаю будут ли они правильны Проверь, узнаешь... Что, сложно создать файл и запустить свои процедуры? Заодно расскажи, что такое tekst...Цитата пишите и свои варианты Угу. Напишем. Только после того, как ты приведешь название темы в порядок: Цитата 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... Тебе кажется, что "Помогите с кодом, нужно проверить" - это информативно? Нажми на кнопку "Изменить" в первом посте, и поменяй название на более корректное.Сообщение отредактировано: volvo - 14.01.2009 11:49 |
NajjZ |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
|
Archon |
![]()
Сообщение
#4
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
type tekst=file of textУ тебя файл получается для хранения переменных типа text. А ты в них пишешь символы. Если хочешь использовать текстовый файл напиши так: type tekst=text(без "file of". А лучше вообще не вводи собственный тип и просто используй тип text. Добавлено через 2 мин. procedure add (var t:tekst; c:char); Я думаю, что тебе надо не символ 'c' записать в конец, а символ из переменной с; Добавлено через 4 мин. procedure add(var t:tekst; c:char);Жутко надуманный вариант. Еще и работать не будет, потому что файловую переменную s нужно сперва связать с реальным файлом при помощи assign(). -------------------- Close the World...txeN eht nepO
|
NajjZ |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
не, в задании сказано добавить в конец литеру С, т.е. было йцукен и надо что б стало йцукенС
|
Archon |
![]()
Сообщение
#6
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата не, в задании сказано добавить в конец литеру С, т.е. было йцукен и надо что б стало йцукенС Тогда исправь второй вариант. А вообще, вот: Цитата add (t, c), добавляющую литеру с в конец текста t; Второй параметр процедуры add называется с и судя по твоему коду имеет тип char. Если добавить нужно именно символ 'c', то зачем этот второй параметр?-------------------- Close the World...txeN eht nepO
|
NajjZ |
![]()
Сообщение
#7
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
так в задании было написано, это такое условие. я так понимаю что адд(т,с) - добавить С в Т.
вообще это задание из Пильщикова 15.21 б) в нем есть ответ для процедуры, которая добавляет литеру С в начало текста Т: вот такой прям там был ответ вот тут begin read(t,d); write(s,d) end;после операций read и write куда C запишется в S?? Сообщение отредактировано: NajjZ - 14.01.2009 15:08 |
Archon |
![]()
Сообщение
#8
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата так в задании было написано, это такое условие. я так понимаю что адд(т,с) - добавить С в Т. Вот и добавляй содержимое параметра C в T. А вообще, поступай как знаешь, это же твое задание.-------------------- Close the World...txeN eht nepO
|
volvo |
![]()
Сообщение
#9
|
Гость ![]() |
А что, обязательно надо открыть файл и прочитать его с начала до конца, вместо вот такого, например:
procedure add(var t: text; c: char); ? NajjZ Тему я переименовал, но в следующий раз будь внимателен при выборе названия... Сообщение отредактировано: volvo - 14.01.2009 19:18 |
NajjZ |
![]()
Сообщение
#10
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
volvo, спасибо что открыл, теперь уж буду внимательней и уже с опытом ))))) твой совет меня устраивает, впринципе так должно работать. спасибо за совет
![]() тока надо вместо write(t, c) писать write(t, 'c') Сообщение отредактировано: NajjZ - 14.01.2009 21:01 |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 5:17 |