|
|
| Другие темы раздела | |
|
Delphi Консольное приложение, описывающее ф-цию нахождения ср.арифм. отр.чисел. Исправление ошибок
https://www.cyberforum.ru/ delphi-beginners/ thread138153.html type ssilka = ^ integer; vector = array of ssilka; Считая, что все элементы вектора Х отличны от nil, создать консольное приложение, описывающее функцию SRED(x) для нахождения среднего арифметического отрицательных чисел, на которые ссылаются элементы вектора Х. program Project1; {$APPTYPE CONSOLE} uses SysUtils; |
Delphi Поиск в текстовом файле В текстовом файле поместить информацию о писателях и их произведениях (20…30 наименований), например: Пушкин #Евгений Онегин Тургенев #Накануне Пушкин #Медный всадник Написать программу, которая читает содержимое файла и находит следующую информацию: По заданному имени автора выводит все его произведения; По заданному названию произведения выводит имя автора; Выводит начинающиеся с... |
|
Delphi Сохранение и загрузка нескольких MEMO
https://www.cyberforum.ru/ delphi-beginners/ thread138105.html Добрый вечер. Как сохранить и загрузить несколько MEMO, при этом сохраняется и загружается ещё несколько edit. Сохранение Edit. var myFile : TextFile; text : string; s,s1,s2,s3:string; begin s:=ExtractFilePath(Application.Exename)+ '1.txt';//* AssignFile(myFile, s); |
Delphi Уплотнить в 2 раза таблично заданную функцию Уплотнить в 2 раза таблично заданную функцию с помощью интерполяционного многочлена Ньютона, первой степени, по двум узлам. Входной фаил n- размерность таблицы (0..N) х- вектор значений аргумента, в порядке возрастания у=10х у-вектор значения функции Выходной фаил уплотненная таблица IER:=1 n<2 IER:=2 x2<x1 https://www.cyberforum.ru/ delphi-beginners/ thread138062.html |
|
Вместо каждой буквы в ребус (ЛИК)2=БУБЛИК под¬ставить некоторую цифру Delphi Вместо каждой буквы в ребус (ЛИК)2=БУБЛИК под¬ставить некоторую цифру, причем одинаковым буквам должны соответствовать одинаковые цифры, а различным буквам – раз-личные цифры. Разработать схему алгоритма и написать прог¬рамму для нахождения всех таких чисел. |
Delphi Разработать функцию Разработать функцию, которая определяет: пересекаются, касаются или не касаются две окружности с заданными координатами вершин и радиусами. https://www.cyberforum.ru/ delphi-beginners/ thread138026.html |
| Delphi САОД Помогите решить, пожалуйста. 1) Даны натуральное число 'н' и однонаправленный список из целых чисел b1,...,b20. После каждого нечетного звена списка добавить элемент, значением которого будет являться удвоенное значение данного звена. Организовать вывод начальной и конечной последовательности значений в списке. 2) Написать рекурсивную программу вычисления N-го члена геометрической... https://www.cyberforum.ru/ delphi-beginners/ thread137932.html |
Перемещение картинок по форме (не повтор) Delphi Всем добрый день. В общем проблема такая: Требуется поместить на форму несколько картинок (неизвестно сколько) и затем перемещать их по форме мышкой. Были идеи: 1. Либо каким-нибудь образом запихнуть в TImage несколько картинок (не знаю как) и двигать уже эти картинки 2. Либо во время выполнения создавать в массиве TImage эти компоненты (TImage), а затем двигать уже сами TImage с... |
|
Delphi неправильно работает сортировка
https://www.cyberforum.ru/ delphi-beginners/ thread137917.html у меня задача с шейкерной сортировкой. проблема заключается в том, что с файлами которые она сама создает всё работает хорошо. файл создается по приципу: первая строка - количество элементов вторая строка - элементы через пробел например 100 46 22 6 8 3 2 45 78 3... а с файлами, которые я создаю он сортирует неправильно например 4 1 2 3 4 |
Delphi Разработать процедуру, определяющую тип, количество и значения корней квадратного уравнения.
https://www.cyberforum.ru/ delphi-beginners/ thread137895.html =Разработать процедуру, определяющую тип, количество и значения корней квадратного уравнения.= пожалуста сделайте кто нить оч прошу на курсач задачка.... |
|
Delphi перевод чисел 8сс в 2сс,10сс,16сс Доброго дня! Есть готовый код перевода, но без дробной части. Можете ли помочь с куском кода для дробной части? Извините, что создаю эту тему, ведь похожие. Уже несколько дней изучал все темы что нашёл в поиске.. мозги кипят, а прогресса вообще нет, и если бы не срок сдачи программки не поджимал, то не тему не создал бы. заранее спасибо! вот код: unit form_convert; interface |
Delphi Записать диапазоны в массив и сравнить с текущим IP Уважаемые форумчане, помогите пожалуйста реализовать следующее. Задача заключается в том, чтобы загрузить из файла диапазоны IP и сравнить их с IP присоединяющегося. Файл *.cfg с таким содержимым: 3 127.0.0.0 127.0.0.255 128.0.0.0 128.0.0.255 129.0.0.0 129.0.0.255 При чтении командой ReadLn, в первой строке глубина цикла, от 1 до этого значения. Затем, в цикле подряд два оператора... https://www.cyberforum.ru/ delphi-beginners/ thread137852.html |
|
103 / 74 / 10
Регистрация: 29.05.2010
Сообщений: 192
|
|
| 30.05.2010, 21:28 | 0 |
Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него - Delphi - Ответ 76661830.05.2010, 21:28. Показов 1592. Ответов 1
Метки (Все метки)
Ответ Код
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f,g:TextFile;
i:integer = 1;
s,snum:string;
begin
AssignFile(f,'input.txt');
AssignFile(g,'output.txt');
Reset(f);
Rewrite(g);
Append(g);
while not(eof(f)) do begin
readln(f,s);
while i<=length(s) do begin
if s[i] in ['0'..'9'] then begin
snum:= snum + s[i];
delete(s,i,1);
dec(i);
end;
inc(i);
end;
s:= s + snum;
Writeln(g,s);
s:='';
snum:='';
i:=1;
end;
CloseFile(f);
CloseFile(g);
writeln('output.txt zapisan!');
readln;
end.
Вернуться к обсуждению: Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него Delphi
0
|
|
| 30.05.2010, 21:28 | |
|
Готовые ответы и решения:
1
Переписать содержимое файла А в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания Переписать все из файла А в файл В, перенося в конец каждой строки все входящие в нее знаки препинания Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g |
| 30.05.2010, 21:28 | |
| 30.05.2010, 21:28 | |
|
Помогаю со студенческими работами здесь
0
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки Переписать все цифры каждой строки файла в конец строки |
