1 / 1 / 0
Регистрация: 23.12.2013
Сообщений: 21
1

Дан файл вещественных чисел. Удалить из него все компоненты, принадлежащие отрезку

23.12.2013, 05:51. Показов 1187. Ответов 1
Метки нет (Все метки)

Сам бы все это дело сделал бы да не могу у меня комп слишком "Старый" Для "Новейшего" Turbo Pascal 7.0 )) Ребят, я серьезно намучился с этими дос боксами и установкой винды на виртуалку(Так не канает).... Вообще ужс... Ошибки выдает которых у меня нет вовсе(Я про другие писанные мной программы). Я уже путаюсь в правильности написанных мной прорамм... Мне нужно 3 задания сделать.

-------------------------------------------
2. Дан файл вещественных чисел. Удалить из него все компоненты, принадлежащие отрезку [1,5].
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program v7;
Var i, z, x :integer;
    f       :text;
    y    :string;
    Label n;
Begin
     Assign(f, '1.txt');
     Reset(f);
     Read(f, x);
     For i:=1 to 19  do begin
     If x[i]=' ' then GoTo n;
     If (x[i]>=1) and (x[i]<=5) then y:=y+x[i]+' ';
     n:
     End;
     Writeln (y);
     close (f);
End.
Что-то пытался не пашет. FileSize Использовал бы в цикле да не пашет опять же
-------------------------------------------
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2013, 05:51
Ответы с готовыми решениями:

Удалить из файла все компоненты, принадлежащие отрезку [1,5]
Добрый день.:) у меня такое задание: Дан файл вещественных чисел. Удалить из него все...

Дан файл вещественных чисел. Если сумма его элементов превышает количество компонент, переписать в новый файл все положительные компоненты
Помогите, пожалуйста решить!!!)) Дан файл вещественных чисел. Если сумма его элементов превышает...

Дан файл целых чисел. Удалить из него все отрицательные числа
Вот решение.При запуске просит ввожу полный путь к файлу,который заполнен числами и лежит в той же...

Дан файл целых чисел. Удалить из него все элементы с четными номерами.
Помогите. Дан файл целых чисел. Удалить из него все элементы с четными номерами. Помогите сделать...

1
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.12.2013, 15:35 2
Напишите программу заново - у Вас беда с типами переменных... например в 11-ой строке:
x[i]=' ' - x имеет тип integer !!!, а не String - сами решайте хде перепутали.

12-ая строка: Вообще сказка!
If (x[i]>=1) and (x[i]<=5) then y:=y+x[i]+' '; - используется одновременно x и как Integer (в начале) и одновременно как строка или массив в конце.

P.S.: Попробуйте использовать PascalABC.NET

Добавлено через 3 минуты
Да! И ИЗБАВЬТЕСЬ ОТ LABEL и GOTO !!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2013, 15:35

Сумма трех вещественных чисел принадлежащие отрезку(любой). Цикл не использовать
Вообще возможно ли решить его без цикла легким способом который понятен?Вот нашел один способ,но...

Перестроить массив, включив в него числа, принадлежащие отрезку [-30;-20] и все положительные
Помогите решить задачи в VB. 1. Из старого массива Z(12) составить новый B(N), включив в него...

Удалить все элементы массива, принадлежащие отрезку [-а,а]
Удалить все элементы массива, принадлежащие отрезку const n=10; var a:array of integer;...

Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл
Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.