45 БАЛЛОВ ЗА ПОЛНОЕ РЕШЕНИЕ! Нужно составить программку на PascalABC.NET и
45 БАЛЛОВ ЗА ПОЛНОЕ РЕШЕНИЕ! Необходимо составить программу на PascalABC.NET и сделать все как на скришоте ниже.
Задать свой вопрос1 ответ
Наташка Пинтус
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var f:=OpenWrite('phones.txt');
var n:=ReadLnInteger('Количество номеров: ');
Writeln('Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;');
var s:string;
for var i:=1 to n do begin
s:=ReadLnString(IntToStr(i)+':');
Writeln(f,s)
end;
f.Close;
var s1:=ReadLines('phones.txt').ToArray;
Writeln('Содержимое файла');
s1.Println(NewLine);
f:=OpenWrite('phones.txt');
foreach var e in s1 do begin
s:=e.Where(x-gt;x in ['0'..'9']).JoinIntoString('');
Writeln(f,s)
end;
f.Close;
Writeln('Новое содержимое файла');
ReadLines('phones.txt').PrintLn(NewLine);
end.
Тестовое решение:
Количество номеров: 3
Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;
1: 8(999)111-22-33
2: 8(888)222-33-44
3: 8(777)333-44-55
Содержимое файла
8(999)111-22-33
8(888)222-33-44
8(777)333-44-55
Новое содержимое файла
89991112233
88882223344
87773334455
begin
var f:=OpenWrite('phones.txt');
var n:=ReadLnInteger('Количество номеров: ');
Writeln('Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;');
var s:string;
for var i:=1 to n do begin
s:=ReadLnString(IntToStr(i)+':');
Writeln(f,s)
end;
f.Close;
var s1:=ReadLines('phones.txt').ToArray;
Writeln('Содержимое файла');
s1.Println(NewLine);
f:=OpenWrite('phones.txt');
foreach var e in s1 do begin
s:=e.Where(x-gt;x in ['0'..'9']).JoinIntoString('');
Writeln(f,s)
end;
f.Close;
Writeln('Новое содержимое файла');
ReadLines('phones.txt').PrintLn(NewLine);
end.
Тестовое решение:
Количество номеров: 3
Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;
1: 8(999)111-22-33
2: 8(888)222-33-44
3: 8(777)333-44-55
Содержимое файла
8(999)111-22-33
8(888)222-33-44
8(777)333-44-55
Новое содержимое файла
89991112233
88882223344
87773334455
Володя
А возможно сделать так чтоб после ввода номеров они записались в файл и по нажатию хоть какой клавиши началась подмена на новое содержимое файла. Просто момент записи номеров практически не выходит узреть.
Оксана Сукало
А для чего его видеть, если s1.Println(NewLine); выводит содержимое на экран?
Степан Паешин
Но Вы сможете немножко модифицировать программку. 'phones.txt' употребляется 4 раза. Поставьте в двух заключительных именах 'phones2.txt' - и у Вас получится два файла - 1-ый, в котором будет содержимое после записи и 2-ой - после подмены.
Марина
Спасибо огромное! Не могли бо вы помочь еще с решением 1 задачи просто трудности есть. http://znanija.com/task/16281967
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов