Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вывести на экран монитора изображение прямоугольного параллелепипеда, в котором проведены диагонали разного цвета https://www.cyberforum.ru/ turbo-pascal/ thread845575.html Вывести на экран монитора изображение прямоугольного параллелепипеда, в котором проведены диагонали разного цвета	Матрица 7 х 7. Найти скалярное произведение строки на столбец Turbo Pascal Дана матрица размером 7х7 с элементами вещественного типа. Найти скалярное произведение строки, в которой находится максимальный элемент матрицы, на столбец в котором находится наименьший элемент. дано матриця з елементами дійсного типу розміром7*7.Знайти скалярний добуток рядка,в якому знаходиться найбільший елемент матриці,на стовпець з найменшим елементом Обращаю Ваше внимание на правила...
Turbo Pascal нужно дописать код для построения графика решения диф. уравнения (с подписями и метками на осях) нужно дописать код для построения графика решения диф. уравнения (с подписями и метками на осях) Уравнение общего вида, третьей степени, файл pas находится в архиве во вложении https://www.cyberforum.ru/ turbo-pascal/ thread845560.html	Turbo Pascal [SchoolPak] мышь в Паскале https://www.cyberforum.ru/ turbo-pascal/ thread845535.html существуют ли, и если существуют то какие, функции для работы с мышью в графическом режиме(VGA 640*480), которые возвращают ху курсора и состояние кнопок(нажата/нет)?
Найдите ошибку в коде Turbo Pascal помогите...где здесь ошибка??? Завтра сдавать... program Lab5; type tmatrix=array of integer; var n,indi,indj,i,j,min:integer; arg:tmatrix; procedure creatematrix(var arg:tmatrix); var	Turbo Pascal Распечатать полученный список и подсчитать количество элементов кратных 4 https://www.cyberforum.ru/ turbo-pascal/ thread845495.html создать динамическии список целых чисел,записать элементы в конец спискаРаспечатать полученный список и подсчитать количество элементов кратных 4. вот моя программа подскажите в чем ошибка? program stek; Type pspis=^spisok; spisok=record data:integer; next:pspis; end; Var i,n,a:integer; p,x,y:pspis; k:integer; Begin
Turbo Pascal Найти в матрице наименьший элемент и его расположение найти в матрице 4*4 состоящей из вещественных элементов наименьший элемент и его расположение в матрице(турбо паскаль) https://www.cyberforum.ru/ turbo-pascal/ thread845484.html	Turbo Pascal Применение методов численного дифференцирования к исследованию функции Применение методов численного дифференцирования к исследованию функции y = f (x) заданной таблично на отрезке . Оценить точность расчета.
Turbo Pascal Создание списка учеников. Задача на записи https://www.cyberforum.ru/ turbo-pascal/ thread845417.html Учусь на заочке, на первом курсе. Не могу выполнить задание, ибо не понимаю как его сделать. Кто-нибудь помогите, надеюсь на ваш опыт и знания. В общем сама задача : Написать программу, которая преобразует исходный текстовый файл, переставляя предложения текста в лексикографическом по- рядке. Предложение оканчивается символами "." , "?", "!" и мо- жет размещаться в...	Turbo Pascal Вычислить приближенное значение квадратного корня из числа а https://www.cyberforum.ru/ turbo-pascal/ thread845401.html Вычислить приближенное значение квадратного корня из числа а по формуле Ньютона: xi+1=0.5(a/xi +xi) , (i=0,1,2,...), где x0 - начальное приближенное к корню. Вычисления прекратить при требуемой точности, т.е при выполнении условия \|xn+1-xn\|< или = EPS (эпсилон)
Элементы матрицы вычислить по формуле, поменять местами n и k строки Turbo Pascal Дано квадратную матрицу (двумерный массив) А размером k * k, где k = (22 +25) mod 3 +3, элементы матрицы вычислить по выражению *** Ai, j = (k/2-i +0.3) * (j-k +5 * n) * sinj, где i = 1, ..., k; j = 1, ..., k. Составить программу обработки матрицы которая содержала две подпрограммы: вычисление элементов матрицы и вывод ее на экран; поменять местами n-й и k-й строки. спасибо!	Turbo Pascal C заданной степенью точности Е найти предел последовательности https://www.cyberforum.ru/ turbo-pascal/ thread845389.html C заданной степенью точности ЕPS найти предел последовательности с элементом аn=n / √n3+1 при n cтремящейся к бесконечности. Точность считать достигнутой, как только выполняется неравенство \|an+1-an\|<EPS

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

24.04.2013, 22:38

Распечатать последовательность, удалив из нее все цифры - Turbo Pascal - Ответ 4466382

24.04.2013, 22:38. Показов 887. Ответов 12

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

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

Решение

Push96, украинского я не знаю, но вот еще два варианта решения:
1)

Pascal

Var
  s: String;
  c: Char;
BEGIN
Writeln('Введите последовательность символов. Конец ввода - символ "точка"');
Repeat
 Readln(c);
 If not (c in ['0'..'9']) Then
 s:=s+c;
until c='.';
Writeln('Результат: ',s);
Readln
END.

Pascal

Var
  x: Array [1..100] of Char;
  i,n: Integer;
BEGIN
Write('Сколько сиволов ввести? ');
Readln(n);
For i:=1 to n do
Readln(x[i]);
Writeln('Результат: ');
For i:=1 to n do
If not (x[i] in ['0'..'9']) Then
Write(x[i]);
Readln
END.

Вернуться к обсуждению:
Распечатать последовательность, удалив из нее все цифры Turbo Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.04.2013, 22:38

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

Написать строку справа налево, удалив из нее все цифры и пробелы ^_^
Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку справа налево,...

Преобразовать строку, удалив из нее все запятые, предшествующие первой точке, и заменив знаком "+" все цифры "5"
Дана строка символов, среди которых есть хотябы одна точка. Преобразовать строку, удалив из нее все...

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

Преобразовать последовательность S1,....Sn удалив из нее все запятые
1) Даны натур. числа n,символы S1,....Sn среди которых есть хотя бы одна точка. Преобразовать...

	24.04.2013, 22:38

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.04.2013, 22:38

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

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

Напечатайте строку, предварительно удалив из нее все вхождения th
Не работает, помогите найти ошибку! Известно, что в начале строки s находится не более 40...

Сжать некоторую строку, удалив из нее все пробелы
Ребят, помогите пожалуйста решить, сам не смогу, не достаточно знаний. Задание: Дан текст из...

Из заданной строки получить новую, удалив из нее все точки.
Из заданной строки получить новую, выбросив из нее все точки. Распечатать новую строку Uses crt;...

Наверх