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

@Ann1 · Регистрация: 30.03.2011

задана строка S='16 Mb video RAM,video terminal.video buffer.'Преобразовать первые два её символа в число.Получить на основе S новую строку путем добавления пробела после каждой запятой и удаление строк 'video'.Разработать программу решения этой задачи с выводом результатов в файл

@isqoff · 30.03.2011, 10:57

Pascal

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.

может немного примитивно?...(давно не писал на паскале...)

@Ann1 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

Опции темы

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

Решение