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

Нужно отделить части адреса как в комментарии к программе. Но почему то не работает. Скажите пожалуйста. Что не так?)

19.11.2017, 12:17. Показов 753. Ответов 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
{C:/фото/2013/Поход/vasya.jpg
C:
фото
2013
Поход
vasya.jpg}
program chasty;
 
const
  N = 5;
 
var
  s: string;
 
var
  e, i: integer;
 
var
  A: array[1..N] of string;
 
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  for i := 1 to N do 
  begin
    e := pos(s, '/');
    A[i] := copy(s, 1, e - 1);
    delete(s, 1, e);
    writeln(A[i]);
  end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2017, 12:17
Ответы с готовыми решениями:

Скажите пожалуйста, что не так: Почему в выделенной части кода пропускается ввод фамилии?
#include "stdafx.h" #include <iostream> #include <conio.h> #include <cstdlib> #include...

скажите пожалуйста что не так?
пишет ошибку "Необработанное исключение в "0x0f3fde8f (msvcr100d.dll)" в "lab2.exe": 0xC0000005:...

Скажите пожалуйста, что не так с программой
#include<iostream> #include<fstream> #include<cstring> using namespace std; struct tovar { ...

Скажите пожалуйста, что не так в данном коде?
Доброго времени суток, скажите пожалуйста, что не так в данном коде? <?php ...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32446 / 20941 / 8104
Регистрация: 22.10.2011
Сообщений: 36,208
Записей в блоге: 7
19.11.2017, 12:38 2
А вот так:
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
program chasty;
 
const
  N = 5;
 
var
  s: string;
 
var
  i, prev, p: integer;
 
var
  A: array[1..N] of string;
 
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  s := s + '/';
  p := 0; i := 0;
  repeat
    prev := p + 1;
    p := PosEx('/', s, prev);
    if p <> 0 then 
    begin
      inc(i);
      a[i] := Copy(s, prev, p - prev);
    end;
  until p = 0;
  print(a);
end.
?

Хотя в этом компиляторе все проще:
Pascal
1
2
3
4
5
6
7
8
9
program chasty;
var
  s: string;
begin
  write('Введите строку с адресом файла: ');
  readln(s);
  var a := s.ToWords('/');
  print(a);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2017, 12:38
Помогаю со студенческими работами здесь

Не работает код, скажите что не так)
вот код немогу понять почему выдает ошыбки. #include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include...

Не работает fopen, скажите что не так плз
Имеется программа по заданию: Дан текст. Написать программу печати всех строк, которые короче 10...

Подскажите пожалуйста, что не так сделал и как нужно написать правильно
Идея такова : даны уравнения прямых а1х+b1y=c1, a2x+b2y=c2, a3x+b3y=c3. Выяснить, какие из этих...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru