Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Дан текстовый файл. Вывести те строки, в которых есть симметричные слова help https://www.cyberforum.ru/ pascalabc-net/ thread2492422.html Дан файл целых чисел. Записать в другой файл те элементы исходного файла, у которых ровно три четных делителя PascalABC.NET
Помогите найти ошибку, пожалуйста. Если ввести числа 2,4 и 8, выводит 4. А если ввести 8 и 18, то вообще ничего не выводит, хотя эти числа и имеют 3 четных делителя........................................... Var f1,f2:text; i, j, n, k, x: integer; Begin Assign(f1, 'file1.txt'); Rewrite(f1); Readln(n);
PascalABC.NET Нужно переделать в Функции и Процедуры https://www.cyberforum.ru/ pascalabc-net/ thread2492099.html
Нужно переделать программу через Функцию и Процедуру Вот что делает программа: Определить и напечатать количество ненулевых элементов в каждой колонке заданной матрицы. Составить и напечатать матрицу, каждый элемент которой исчисляется как разница значений соответствующего элемента заданной матрицы и минимального элемента строки. Вот код: var F: array of integer; k, l: integer; i,...
PascalABC.NET Найти время полета, максимальную высоту, достигнутую телом, и расстояние пройденное им https://www.cyberforum.ru/ pascalabc-net/ thread2492087.html
Здравствуйте. Я начинающий программист (пару дней как). Проблема. Нужно написать программу: Тело бросили под углом к горизонту. Нужно найти время полета, максимальную высоту, достигнутую телом, и расстояние пройденное им. Ошибка с типами данных. Не могу понять в чем дело. t—время, h—максимальная высота, l—расстояние.
Сортировка паскаль авс нет PascalABC.NET
Нужно отсортировать средний балл по убыванию вместе с его строкой Вот то что я сделал: type S=Record FIO:String; GR:Word; GP:Word; O:Array of Byte; End; Var a:Array of S;
PascalABC.NET Нужно упрощение кода https://www.cyberforum.ru/ pascalabc-net/ thread2491405.html
begin ReadInteger.To(ReadInteger).Where(n->begin var(t,m):=(n,0);repeat m*=10;m+=t mod 10;t:=t div 10;until t=0;Result:=m=n; end).Count.Println; end. вот тот самый код. он правильный, но мне надо его поменять, так как мы немного в другом стиле работаем. буду благодарен за помощь
PascalABC.NET Закраска элементов в таблице https://www.cyberforum.ru/ pascalabc-net/ thread2491337.html
Доброго дня, господа товарищи. Нужен совет. Есть программа: const m=20; var i, j, k, l: integer; a:array of integer; begin for i:=1 to m do begin for j:=1 to m do begin a:=i*i+j*j;
PascalABC.NET Свой ЯП с IDE
В голову пришла такая идея: Написать свой собственный язык программирования,связи с чем нужна команда. Я буду писать IDE и напишу установщик для языка. Нужен программист,который сделает компилятор. Все вопросы,касающиеся языка будем разбирать походу. По возможности будем помогать друг другу. P.S. синтаксис,и прочие особенности языка решим позже,главное,что бы у вас был ВК или Mail.ru либо...
PascalABC.NET Перевод между десятичной/двоичной системами Я вот туплю, например. Помощь нужна, задания сделать. Новичок, практически ничего не понимаю, изучаю сам. Напишите пожалуйста программы, которые я описал ниже. Без пояснений, хочу разобраться сам. Буду благодарен. 1. Введите в компьютер и отладьте программу Numbeгs_2_l 0. Переведите с ее помощью в десятичную систему счисления следующие двоичные числа: 111110; 1111111; 100000. Проверьте... https://www.cyberforum.ru/ pascalabc-net/ thread2491174.html PascalABC.NET Задача про автомобили Два автомобиля движутся по кольцевой дороге длины L в противоположных направлениях. Они начинают движение из одной точки и едут с постоянными скоростями v1 и v2 соответственно. Требуется определить, на каком расстоянии друг от друга они окажутся в момент времени T. Формат входных данных: На вход подаются 4 натуральных числа L, v1, v2, T, разделенных пробелом. Все числа не превосходят 100.... https://www.cyberforum.ru/ pascalabc-net/ thread2491140.html
Задача про алгебраические выражения PascalABC.NET
Ввести алгебраическое выражение, полученное после раскрытия скобок (сумма или разность произведений однобуквенных переменных без коэффициентов). Привести подобные. Пример: abc + a + bca-acb+abc+abc+a Ответ: 2a+3abc. помогите решить на pascalabc.net
PascalABC.NET Решение задачки по палиндромам https://www.cyberforum.ru/ pascalabc-net/ thread2491135.html
Кто поможет решить задачу. Вот условие: Вывести число натуральных чисел-палиндромов от а до b. (а, b не превышают 10000). На паскале abc
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,045
20.08.2019, 04:00 0

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки - PascalABC.NET - Ответ 13780173

20.08.2019, 04:00. Показов 824. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
begin
  ReadAllLines(ReadLnString('Имя файла:')).Select(Line->Odd(Line.Length)?Line.Select(Ch->(Char.IsLetter(Ch)?'*':'')+Ch).JoinIntoString(''):Line.Substring(0,Line.Length div 2)+Line.Substring(Line.Length div 2).Select(Ch->Not Char.IsDigit(Ch)?Ch:'').JoinIntoString('')).PrintLines;
end.


Вернуться к обсуждению:
Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки PascalABC.NET
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.08.2019, 04:00
Готовые ответы и решения:

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки
pascalABC.net

Массив строк в с++. Вывести строки, в которых есть цифры. В каждой строке удалить все цифры
Помогите пожалуйста с задачей ! срочно!! Необходимо написать программу, в которой с клавиатуры...

Удалить из строки S1 длиной до 40 символов все слова, начинающиеся с цифры
Помогите решить пожалуйста! :) 1) Удалить из строки S1 длиной до 40 символов все слова,...

Найти в каждой строке слова палиндромы с четной длиной, удалить их и дописать в конец строки
Помогите пожалуйста, в строках на ассемблере ничего не понимаю :( Вот условие задачи: Задан...

1
20.08.2019, 04:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.08.2019, 04:00
Помогаю со студенческими работами здесь

Удалить из файла все слова, длина которых меньше половины длины самого длинного слова второй строки
Переписать текст в файл output.txt, удалив из него все слова, длина которых меньше половины длины...

Из каждой строки удалить все цифры, и не содержащие цифр строки записать в новый список
Здравствуйте. Я полнейший нуб в прологе, заранее извиняюсь, не могли бы вы мне подсказать, как...

Преобразовать строку так, чтобы сначала в ней шли все цифры исходной строки, а потом – все буквы исходной строки, но в обратном порядке
1)Даны сведения о 8 фильмах: название, режиссер, страна, год выпуска, стоимость(расходы на выпуск),...

Дан массив строк, нужно из каждой строки удалить пробелы
Подскажите пожалуйста: дан массив строк, нужно из каждой строки удалить пробелы, какая функция это...

Дан текст (массив строк). Составить программу, которая в начале каждой строки текста припишет длину этой строки
(длина - это количество символов в строке).

Массив: Напечатать номер каждой строки, в которой второй элемент меньше среднего арифметического элементов этой строки, и число таких строк.
Дана матрица А(m,n). Напечатать номер каждой строки, в которой второй элемент меньше среднего ...

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