Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal создать файл содержащий сведения о личной коллекции книголюбаю.каждая запись содержит:шрифт книги,автор,название,год издания,номер стеллажа, полки https://www.cyberforum.ru/ turbo-pascal/ thread722997.html местонахождения книги автора X с названием Y; списка книг автора Z; числа книг издания года W. значения X,Y,Z,W, ввести с клавиатуры	Turbo Pascal Найти максимальный элемент в матрице Как можно найти максимальный элемент в матрице размером (nxn)??? Понимаю что задача не такая уж и сложная,но сообразить не могу, помогите пожалуйста.
Turbo Pascal Второе по величине число https://www.cyberforum.ru/ turbo-pascal/ thread722943.html Составить программу, которая в массиве A находит второе по величине число (Прашу вас использовать лёгкие функции без таких как secondmax,seeksecondMax,Tvector и т. д. и т. п.)	Turbo Pascal Заполнить массив по спирали Заполнить массив по спирали по часовой стрелке, на турбо паскале но при этом exe файл должен весить не более 2кб.. я сам алгоритм написал но как его уменьшить хз... program sort; var a:array of word; i,j,k,sum,k_e,n:word; begin write('Vvedite n:'); Readln(n); writeln('Massiv'); k:=n; https://www.cyberforum.ru/ turbo-pascal/ thread722930.html
Заменить символы в файле Turbo Pascal Дан символьный файл. Заменить все символы ';' на '.'	Turbo Pascal Комбинированные типы данных Разработать базу данных "Отдела кадров универ-та" (фам, имя, отчество, адрес, стаж препод деят-ти). Вывести на экран данные по препод-телям, имеющим стаж больше 10 лет. https://www.cyberforum.ru/ turbo-pascal/ thread722920.html
Turbo Pascal Вывести на экран элементы целочисленных матриц https://www.cyberforum.ru/ turbo-pascal/ thread722899.html A(n,m)и B(s,d)кратные 3	Turbo Pascal Вычисление суммы ряда Помогите пожалуйста с лабораторной. Вот инструкция и оно же задание :-NiceQ, оформляя задания не забывайте о правилах форума! 1. Каждое задание - в отдельной теме с вразумительным, информативным названием. 2. Текстовые задания набирайте вручную. Формулы - в редакторе формул. Если проблемы с редактором формул - прикладывайте к сообщению картинку.
Turbo Pascal Строка представляет собой последовательность слов, разделенных пробелом https://www.cyberforum.ru/ turbo-pascal/ thread722871.html Строка представляет собой последовательность слов, разделенных пробелом. Удалить из нее все повторения слов. Рабочие строки не использовать. Входные данные: abcde fghik abcde lmnop fghi Выходные данные: abcde fghik lmnop fghi Помогите сделать)) очень надо)))	Turbo Pascal Массив. Четность/нечетность. Кол-во и сумма. Где ошибка? https://www.cyberforum.ru/ turbo-pascal/ thread722847.html Есть задание: В массиве Т(25) все четные числа сделать отрицательными, а для нечетных подсчитать кол-во и сумму Вроде все сделал, но при подсчете кол-ва элементов массива и суммы для нечетных чисел считает неправильно по-моему, прилагаю скрин Где ошибка и что не так?program t25; uses crt; const N=25; var t:array of integer;
Turbo Pascal Проиллюстрировать поиск в ширину PROGRAM GRAF; uses crt; type mat=array of integer; {матрица смежности} ukaz=^usel; usel=record key:integer; left,right,back:ukaz; end; var top,t,p,q,ps:ukaz; {для дерева}	Turbo Pascal Меню в паскале, объясните Объясните, как создать в паскале меню, с возможностью управления стрелочками. если можно, с подробными комментариями.Заранее спасибо:) https://www.cyberforum.ru/ turbo-pascal/ thread722818.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

07.12.2012, 20:35

Исключение из массива всех символов – цифр и пробелов - Turbo Pascal - Ответ 3819653

07.12.2012, 20:35. Показов 2154. Ответов 1

Метки (Все метки)

Сообщение было отмечено plusmove как решение

Решение

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of char;
    c:char;
    n,i,j:byte;
begin
clrscr;
writeln('Введите не более 100 символов, в том числе цифры и пробелы,');
writeln('окончание ввода символ !');
n:=0;
repeat
c:=readkey;
write(c);
n:=n+1;
a[n]:=c;
if n=nmax then c:='!';
if c='!' then
 begin
  write(c);
  writeln;
 end;
until c='!';
i:=1;
while i<=n do
if a[i] in ['0'..'9',' '] then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
writeln('Массив без цифр и пробелов:');
for i:=1 to n do
 begin
  write(a[i]);
  if i mod 30=0 then writeln;
 end;
readln
end.

Вернуться к обсуждению:
Исключение из массива всех символов – цифр и пробелов Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.12.2012, 20:35

Готовые ответы и решения:

Исключение всех цифр в строке
Всем привет, нужно на 1 курс написать программу на Pascal Free "Исключение всех цифр в...

Ввeсти строку символов состоящую из латинских букв, цифр и пробелов
Осуществить проверку правильности введенных символов. Добавлено через 25 минут сдeлaйтe пож

Замена в строке длиной N символов всех пробелов на символ $
помогите решить пожалуйста, я ни черта здесь не понимаю((((

Выполнить замену всех символов в строке на первый отдельный символ, а всех пробелов в строке на второй отдельный символ
Задана строка текста длинной не менее двадцати символов и заданы два отдельных символа.Выполнить...

	07.12.2012, 20:35

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.12.2012, 20:35

Помогаю со студенческими работами здесь

Выполнить замену всех символов в строке на первый отдельный символ, а всех пробелов в строке на второй отдельный символ
Задание: 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран...

Удаление всех символов в textbox(multiline) кроме цифр и пробелов
Около пару часов думаю, прочитал про regex и тд не могу понять удаление строк содержащие буквы,...

Массив символов, вывод на экран всех цифр из этого массива
Ввести массив символов произвольного размера с клавиатуры. На экран вывести все цифры.

Удаление всех пробелов в строке длинной 25 символов
Всем hello!!! Помогите разработать программу для удаления всех пробелов в строке длинной 25...

Наверх