Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Avery007
29 / 29 / 11
Регистрация: 26.07.2013
Сообщений: 160
1

Как считать N количество строк и в каждой разделить строку на два числа по пробелу и перевести их в real?

30.03.2014, 13:22. Просмотров 308. Ответов 0
Метки нет (Все метки)

Строки типа 7.0 0.3 или 3.7 15.97
Их вводится N количество раз, нужно каждый раз разделить ее по пробелу и каждое число занести в переменную.
хватит только считывания и правильного перевода из строки в real. Ибо мой вариант считывает на 1 меньше раз чем положено и переводит неправильно.
Мой код:
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function FromTo(str : string; start, close : integer) : real;
var
    i, j : integer;
    res : string;
    ret : real;
Begin
    j:=1;
    for i:= start to close do
    Begin
        res[j]:= str[i];
        inc(j);
    End;
    val(res, ret);
    writeln(res);
    FromTo:= ret;
End;
var
    count, c, s : integer;
    str : string;
    pos : array[1..100] of array[1..2] of real;
Begin
    read(count);
    for c:= 1 to count do
    Begin
        readln(str);
        for s:= 1 to length(str) do
        Begin
            if str[s] = ' ' then
            Begin
                pos[c][1]:= FromTo(str, 1, s-1);
                pos[c][2]:= FromTo(str, s+1, length(str));
                writeln(pos[c][1], ' ', pos[c][2]);
            End;
        End;
    End;
End.


Добавлено через 17 минут
Понл ошибку, вопрос решен.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2014, 13:22
Ответы с готовыми решениями:

Как разделить строку на подстроки по пробелу
Создана форма form1.h на ней button1, textbox1 and listbox1, but я не знаю как...

Считать несколько строк из файла зная их количество и сложить числа в каждой строке
Дан файл input.txt, в нем: 5 //количетво строк 1 2 3 4 5// строка 1 и так...

Разделить строку на подстроки по пробелу
Всем Привет!!! подскажите, пожалуйста, способ как разделить строку на части. ...

Как разделить строку по два символа
Как разделить получаемую строку по два символа Допустим ввожу С645 нужно...

Сложить все числа в Мемо и разделить их на количество строк
Имеется memo с примерно таким текстом 220 227 232 783 204 198 219 204...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2014, 13:22

Excel. Как разделить столбец по первому пробелу?
Добрый день! Есть таблица в Excel. Нужно каким-то образом разделить данные по...

Как считать определённое количество цифр заданного числа (считать число до заданной цифры)?
как считать число 12345 до символа 5? То есть 1234 присвоить другой...

Как разделить строку на массив строк по 16 символов?
foreach (string str in s) { for (int i = 0; i < str.Length; i++) { ...


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

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

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