Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 30.03.2011
Сообщений: 8
1

Получить на основе S новую строку путем добавления пробела после каждой запятой и удаление строк 'video'

30.03.2011, 00:43. Просмотров 1295. Ответов 1
Метки нет (Все метки)

задана строка S='16 Mb video RAM,video terminal.video buffer.'Преобразовать первые два её символа в число.Получить на основе S новую строку путем добавления пробела после каждой запятой и удаление строк 'video'.Разработать программу решения этой задачи с выводом результатов в файл
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2011, 00:43
Ответы с готовыми решениями:

После каждой запятой следующую запись перенести на новую строку
Добрый день! возникла задача.. есть даные в строке 2456, 2457, 2474, 2499, 2500, 2501, 2502,...

Написать программу добавления пробела, после каждой буквы 'а', введенной строки
Написать программу добавления пробела, после каждой буквы 'а', введенной строки. Подключаемые...

Переход на новую строку после пробела
Как организовать переход на новую строку после пробела? Ну например как из строки "10 20 30",...

Скопировать слово после пробела в новую строку
Здравствуйте. У меня вопрос насчет строк. Например у нас есть строка(string), которая состоит из...

1
Добры_Змейка
52 / 52 / 43
Регистрация: 09.06.2010
Сообщений: 170
30.03.2011, 10:57 2
Лучший ответ Сообщение было отмечено Ann1 как решение

Решение

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
uses crt;
  var 
    f: Text;
    int,err,i : integer;
    s,newS : string;
BEGIN
    If FileExists('C:\1.txt')
      then begin Assign(f,'C:\1.txt');Append(f);end
      else begin Assign(f,'C:\1.txt');Rewrite(f);end;
      
    s := '16 Mb video RAM,video terminal.video buffer.';
    val(Copy(s,1,2),int,err);
    
    s := Copy(s,3,length(s));
    
    repeat
        Insert(' ',s,Pos(',',s));
        Delete(s,Pos(',',s),1);
    until(Pos(',',s) = 0);
    
    newS := 'video';
    
    repeat
      Delete(s,Pos(newS,s),length(newS));
    until(Pos(newS,s) = 0);
    
    writeln(f,int,s);
    
    Close(f);         
    
END.
может немного примитивно?...(давно не писал на паскале...)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2011, 10:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Получить новую строку путем копирования из исходной 5 символов
Написать программу в которой вводится одна строка и выполняются следующие действия 1) получить...

Переход на новую строку в texbox после запятой
Помогите советом. Есть textbox, в него загружается из CheckedListBox текст через запятую: Вася,...

Написать программу добавления пробела после каждой буквы "а" введенной строки
Здравствуйте у меня снова запара, если с прошлой задачей я все-таки разобралась то тут вообще ни...

Строка без пробела перед запятой и с пробелом после запятой
Всем привет! Помогите, пожалуйста, составить регулярное выражение для строки содержащей буквы...


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

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

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