Паскаль файловые переменные, Помогите пожалуйста сделать задачки |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Паскаль файловые переменные, Помогите пожалуйста сделать задачки |
киб |
3.05.2010 19:42
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Игор Репутация: 0 |
1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g менее всего из значений компонент с непарными номерами файла f.
2. Дано число к и текстовый файл. Уничтожить из файла строку с номером к (строки нумеруются от 0). Если строки с таким номером нет, то оставить файл без изменений. 3. Дан текстовый файл f, каждое слово которого видокремлено от других символом пробела. Записать в файле g, в алфавитном порядке, все слова длиной у n символов. |
Ozzя |
4.05.2010 9:05
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
|
Ozzя |
4.05.2010 12:07
Сообщение
#3
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Взять функцию GetWords
Строки Читать строку из файла, разбивать на слова, записывать только те, длина которых n. Алгоритмы сортировки есть в ЧАВО. |
Ozzя |
4.05.2010 16:20
Сообщение
#4
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата Записать в файле g менее всего из значений компонент с непарными номерами файла f. Вот эту фразу нужно бы повторить по-русски. |
Гость |
4.05.2010 19:44
Сообщение
#5
|
Гость |
это так задача звучить, завдание на лабораторну
|
Ozzя |
5.05.2010 7:14
Сообщение
#6
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата это так задача звучить, завдание на лабораторну Я понял. Но не все понимают по -украински. Непарные - это нечетные? Цитата менее всего Вот это что означает? |
Гость |
5.05.2010 17:49
Сообщение
#7
|
Гость |
1. Дано файл f, компонентами якого є дійсні числа. Записати у файлі g найменше із значень компонент із непарними номерами файла f.
Program z1; var f:file of real; p,n,n1:string; x,m:real; i:integer; begin writeln('Введіть шлях до файлу'); read(p); writeln('Введіть ім"я вхідного файлу'); read(n); writeln('Введіть ім"я вихідного файлу'); read(n1); assign(f,p+'\'+n); i:=1; read(f,m); while not eof(f) do begin read(f,x); i:=i*(-1); if i=1 then begin if x<m then m:=x; ; end; end; close(f); assign(f,p+'\'+n1); write(f,m); close(f); end. Посмотри пожалуйста, вот что-то делал, но нимогу понят почему не вводиться путь к файлу! |
Гость |
5.05.2010 17:50
Сообщение
#8
|
Гость |
а во второй вроде все правильно, но не вводиться K, может я что-то нитак делаю?
Program z2; var k,i:integer; f,f1:text; p,n:string; begin writeln('Введіть значення k'); read(k); writeln('Введіть шлях до файлу'); read(p); writeln('Введіть ім"я файлу'); read(n); assign(f,p+'\'+n); reset(f); assign(f1,p+'\tmp.tmp'); rewrite(f1); i:=0 while not eof(f) do begin readln (f); if k<>i then writeln(f1); i:=i+1; end; close(f); close(f1); assign(f,p+'\'+n); erase(f); assign(f1,p+'\tmp.tmp'); rename(f1,p+'\'+n); close(f1); end. |
Ozzя |
6.05.2010 7:26
Сообщение
#9
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Посмотри пожалуйста, вот что-то делал, но нимогу понят почему не вводиться путь к файлу! ... Строки вводятся readln, а не read. |
Ozzя |
6.05.2010 8:06
Сообщение
#10
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
|
Гость |
6.05.2010 12:04
Сообщение
#11
|
Гость |
Спасибо компилюеться, но ввожу данные и возникает ошибка!(
Может я данные не правильно ввожу? |
Ozzя |
6.05.2010 12:08
Сообщение
#12
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата но ввожу данные и возникает ошибка!( Может я данные не правильно ввожу? В которой программе? Какие данные? Файл с данными прилепи. |
Гость |
6.05.2010 12:25
Сообщение
#13
|
Гость |
1 задача
как я понимаю, мне нужно создать файл(я создаю на диску D) имя файла 1.txt там записал цыфры(5 4 6 2 5 4 5 5 8) нужно ввести путь: d:\ имя 1 файла 1.txt имя 2 файла 2.txt и потом ошибка |
Ozzя |
6.05.2010 12:31
Сообщение
#14
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Неверно. У тебя получается текстовый файл. А тебе нужно "файл f, компонентами которого являются вещественные числа". Файл тоже нужно заполнить программно.
|
volvo |
6.05.2010 12:31
Сообщение
#15
|
Гость |
Цитата нужно ввести путь: Не совсем... К пути и так добавляется слэш, а если слэш вводится пользователем - то путь становится неправильным, соответственно программа вылетает с ошибкой "Файл не найден". Вводить путь надо так:d:\ нужно ввести путь: d: |
Гость |
6.05.2010 12:36
Сообщение
#16
|
Гость |
всеровно выдаеться ошибка, может тип даных не такой как надо стоит?
|
Ozzя |
6.05.2010 12:43
Сообщение
#17
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата всеровно выдаеться ошибка, может тип даных не такой как надо стоит? Цитата "файл f, компонентами которого являются вещественные числа". Файл тоже нужно заполнить программно. Ты ответы-то читаешь? |
Гость |
6.05.2010 12:46
Сообщение
#18
|
Гость |
извини не заметил
|
Текстовая версия | 15.06.2024 21:19 |