Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Вывести число, полученное при перестановке цифр сотен и единиц исходного числа https://www.cyberforum.ru/ pascal/ thread1851177.html
Задание: Дано четырехзначное число. Вывести число, полученное при перестановке цифр сотен и единиц исходного числа (Например, 1234 перейдет в 1432) Но нужно не с отдельными числами сотен и единиц, а ввести одно целое(k например) 		Определить количество выигрышей, проигрышей, ничьих Pascal
Составить программу на паскале . В массиве записаны результаты 10 игр фут-больной команды(если игра закончилась выигрышем данной команды ,то записано число3 ,проигрышем-число2,вничью-1). Определить количество выигрышей, проигрышей, ничьих.
Pascal Нужны комментарии к коду https://www.cyberforum.ru/ pascal/ thread1851035.html
uses crt,graph; const n=2; var a,a1:array of real; b,b1,x:array of real; function f(a,b,c,x:real):real; begin f:=-a*x/b+c/b; end; var i, j, k,x0,y0: integer; delenie,xn,xk,m,z,x1,y1:real; 		Pascal Суммы элементов с нечётными и чётными номерами столбцов https://www.cyberforum.ru/ pascal/ thread1850839.html
Составить программу, которая находит в каждой строке матрицы P(k,l), k≤12, l≤14, сумму элементов с нечетными номерами столбцов и сумму элементов с четными номерами столбцов. Найти максимальное значение из первых сумм и минимальное из вторых сумм. Вывести исходную матрицу, располагая в одной строке элементы строки матрицы, после которых найденные суммы, максимальное и минимальное значения....
Pascal Блок-схема алгоритма вычисления произведения элементов квадратной матрицы, расположенных на главной диагонали
Здравствуйте. Разработать алгоритм вычисления произведения элементов квадратной матрицы, расположенных на главной диагонали. Нужна именно блок-схема. 		Pascal Найти N пар простых чисел-близнецов помогите пожалуйста , как реализовать эту задачу Найти N пар простых чисел, которые отличались бы друг от друга на 2 («близнецы»). Использовать функции поиска «близнецов» и простых чисел. https://www.cyberforum.ru/ pascal/ thread1850700.html
Pascal Работа с внешними файлами Здравствуйте!Помогите с программой, пожалуйста! Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4. Оценки в аттестате. 5. Признак - нуждается ли в общежитии. 6. Оценки вступительных экзаменов. Разработать программу записи... https://www.cyberforum.ru/ pascal/ thread1850614.html Что будет выведено на экран в результате работы этой программы? Pascal
Что будет выведено на экран в результате работы программы?Объясните эту задачу. Program Main; Uses crt; Var a,b,c,d:integer; Function f(var b:integer; c:integer):integer; Var d:integer; Begin a:=2; b:=b+1; d:=3; c:=b-a; Writeln(a,b,c,d); f:=d;
Pascal Вычислить сумму ряда https://www.cyberforum.ru/ pascal/ thread1850415.html
1 Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε(ε=10-3,10-4,10-5,10-6)сумму ряда и указать количество учтеных слагаемых. Ограничиться рассмотрением первых 10-ти членов. 		Pascal Написать программу, которая запрашивает данные на 2-ух учеников https://www.cyberforum.ru/ pascal/ thread1850409.html
Описать массив 50 элементов для учеников и ввести сведения для 5 учеников и вывести данные столбиком (извините, написано коряво, но учитель сам сочиняет задачи... и вот что выходит)
Pascal Найти сумму модулей элементов, расположенных выше главной диагонали матрицы
Подпрограммы-процедуры. Составьте программу и блок-схему, используя подпрограммы и функции. Дана квадратная матрица действительных чисел. Найти сумму модулей элементов, расположенных выше главной диагонали 		Pascal Составьте программу для определения самой рентабельной парикмахерской города https://www.cyberforum.ru/ pascal/ thread1850137.html
Для определения рентабельности парикмахерской используют прибыль на одного работающего. В ЭВМ поступают данные о названии парикмахерской, фамилия владельца, общая прибыль и количество работающих. Составьте программу для определения самой рентабельной парикмахерской города. Выведите ее название. ФИО директора и постройте диаграмму распределения по рентабельности.(Количество парикмахерских -10). ...
Модератор
9601 / 4923 / 3248
Регистрация: 17.08.2012
Сообщений: 15,366
15.11.2016, 14:31 0

Удалить из массива заданный символ - Pascal - Ответ 9771442

15.11.2016, 14:31. Показов 925. Ответов 2
Метки (Все метки)

Ответ

Вариант:
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

type stroka = packed array [1..80] of char;
var s: stroka;
    t: string;
    i, n: integer;
begin
  writeln('Введите строку:');
  readln(t);
  if length(t) = 0
    then writeln('Введена пустая строка')
    else if length(t) > 80
      then begin
        delete(t, 81, length(t) - 80);
        writeln('Слишком длинная строка, обрезана до 80 символов');
      end;
  for i := 1 to length(t) do s[i] := t[i];
  for i := length(t) + 1 to 80 do s[i] := ' ';
  n := 1;
  while (n <= 80) and (s[n] <> 'w') do inc(n);
  for i := n to 79 do s[i] := s[i + 1];
  if n <= 80 then s[80] := ' ';
  writeln('Результат:');
  for i := 1 to 80 do write(s[i]);
  readln
end.


Вернуться к обсуждению:
Удалить из массива заданный символ Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 15.11.2016, 14:31
Готовые ответы и решения:

Удалить заданный столбец массива и определить среднее арифметическое всех элементов обновленного массива
Дана матрица размером M*N. Удалить K -й столбец и определить среднее арифметическое в обновленном...

Заменить в каждой строке один заданный символ на другой заданный символ. Описать отдельной функцией замену символов
Следующие ошибки: sym, symChange необъявленные идентификаторы(26, 29; 28, 29 соответсвенно), тип...

Поменять в введенном с клавиатуры строке символов подряд заданный символ на другой заданный символ
Поменять в введенном с клавиатуры строке символов подряд заданный символ на другой заданный символ.

Удалить заданный символ из строки
Как удалить один определенный символ из строки? Например у меня строка: &quot;абвввггд&quot; Мне надо...

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

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

Удалить из строки заданный символ
Всем привет, выручайте:) Написать и выполнить средствами delphi функцию, удаляющую из строки...

Заменить в каждой сроке один заданный символ на другой заданный символ
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ)) НА ЯЗЫКЕ С!!!!!!! Даны 2 строки до 80 символов. Необходимо Заменить в...

Заменить в каждой строке один заданный символ на другой заданный символ
Даны две строки длиной длиной до 80 символов. Заменить в каждой строке один заданный символ на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru