|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.07.2008, 18:04 | #1 | |||
Пользователь
Регистрация: 25.07.2008
Сообщений: 82
|
Проблема с работой с файлами (Паскаль)
Вот на каникулах решил изучать Паскаль, помогите решить задачу точнее я её уже решил просто как к этому подсоединить файлы чисто для примера помогите:
Вот условие задачи: Цитата:
Цитата:
Цитата:
P.S. Рисунок выложен внизу. |
|||
25.07.2008, 19:37 | #2 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
AssignFile
Reset/Rewrite далее Read(ln)/Write(ln) потом CloseFile P.S. читай хоть немного учебники |
25.07.2008, 21:40 | #3 |
Пользователь
Регистрация: 25.07.2008
Сообщений: 82
|
Ты вроде что то переаутал с Delphi?
|
26.07.2008, 09:20 | #4 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
ну тогда вот так
Assign Reset/Rewrite далее Read(ln)/Write(ln) потом Close |
26.07.2008, 12:07 | #5 |
Пользователь
Регистрация: 25.07.2008
Сообщений: 82
|
Чё то вроде как то не так, а куда Tri.out девать? Можно все же поподробние, если не трудно.
|
26.07.2008, 13:01 | #6 | |
Пользователь
Регистрация: 24.07.2008
Сообщений: 10
|
Самый распространённый и самый смертельный грех всех программистов - кидаться писать код, не осмыслив алгоритма.
Если дать себе труд подумать несколько минут перед тем, как начать писать, то сам себе сделаешь огромную услугу. А может быть и Всему Человечеству. Все нынешние "биллы гейтсы" хорошо умеют писать, а думать просто не считают нужным. Я бы за это просто сажал бы на кол. Писателей среди программистов больше, чем программистов. (Вспомним Марка Твена :"Дураков на свете больше, чем людей.") Ни в коем случае не становись таким. Думай!!!! Ей Богу, это самое приятное занятие на свете!!! Но, в сторону лирику. Не считай, что ставлю тебя в угол. Просто усвой эту аксиому! Думать, думать, думать .... Только потом писать. Вот что получается с твоей задачкой, если хоть чуточку порассуждать: 1. Родительский треугольник + 4 его ребёнка 1+4. 2. Трое из 4 детей рожают ещё по 4 +3*4 3. И далее в том же духе - каждые трое из 4-х новорождённых рожают 4-х новых. . Итого:________(1+4)___+ (3*4)___+ (3*3*4) + ... (и т. д.) . Или так:___1 + (4*3^0) + (4*3^1) + (4*3^2) +... + (4*3^(n-2)) Вот теперь всё очень просто напишется: Цитата:
ЗЫ:Критику не воспринимай, как ругань. Последний раз редактировалось Господин ПэЖэ; 26.07.2008 в 13:10. |
|
26.07.2008, 13:03 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Открываешь Блокнот, записываешь в нем одно число, сохраняешь под именем Tri с расширением *in. Помещаешь в одну папку с программой.
Пишешь программу. Я кое-что поправил. Модуль Crt подключаешь, если у тебя Турбо Паскаль или Паскаль АВС. Выходной файл будет в той же папке. Код:
Последний раз редактировалось puporev; 26.07.2008 в 13:06. |
26.07.2008, 13:45 | #8 |
Пользователь
Регистрация: 25.07.2008
Сообщений: 82
|
С этим все ясно спасибо. Ну принципе Господин ПэЖэ у меня тоже вроде правильно было написано.
Но вот появились ещё вопросы: 1. Например словосочетание: "Introduction to algorithms" как можно подсчетать сколько букв в отдельно взятом здесь слове? Последний раз редактировалось ReaktiV; 26.07.2008 в 13:48. |
26.07.2008, 14:07 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если решать только для этого конкретного словосочетания, то можно просто в лоб.
Код:
while pos(' ',s)<>0 do begin ..... end; Для удобства нужно добавить пробел в конец строки s:=s+' '; В цикле длины слов можно сразу выводить на экран, или собирать в массив и потом выводить сразу все. Зависит от конкретной поставленной задачи. |
26.07.2008, 14:21 | #10 |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
Вот код программы, которая определит длину всех слов исходной строки с учетом почти всех знаков препинания.
Код:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проблема с файлами в Pascale | velgelmina | Помощь студентам | 3 | 26.03.2010 23:14 |
Проблема с работой програм на компах без С++ | Bitrayder | Общие вопросы C/C++ | 2 | 02.03.2008 01:09 |
Паскаль. Работа с файлами, дисплеем. | Надюха | Помощь студентам | 1 | 21.09.2007 07:43 |