Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Построить график функции методом касательных https://www.cyberforum.ru/ turbo-pascal/ thread1267009.html
1. Построить график функции f(x) таким образом, чтобы были видны все корни функции. 2. Графически отделить каждый из корней функции f(x) определив для каждого из корней интервал, на котором этот корень гарантировано находится. 3. Найти решение нелинейного уравнения вида f(x) = 0 отдельно для каждого из корней с помощью функции root(...). Построить график функции методом касательных ...
Turbo Pascal Дана Z-образная матрица, найти ее зеркальное изображение относительно вертикальной оси
Скажу сразу меня интересовал другой способ решения, чем приведенный в этой теме. Я хотел разложить элементы матрицы в линейный массив. В этом массиве произвести перестановки и вернуть все на круги своя. Да. Я хотел пойти по пути наибольшего сопротивления. Не удалось. Но ведь есть на форуме боги программирования! Буду рад любой подсказке uses Crt; const
Turbo Pascal Выбрать случайным образом две кости домино и определить, можно ли их приставить друг к другу Доброе время суток, помогите пожалуйста написать программу, за ранее большое спасибо. Смоделировать выбор «наугад» двух костей домино из полного набора костей этой игры (0-0, 0-1, …, 6-6) и определить, можно ли приставить эти кости одна к другой в соответствии с правилами домино. Вывести получившиеся кости и результат в формате «Да» или «Нет». https://www.cyberforum.ru/ turbo-pascal/ thread1266944.html Turbo Pascal В двумерном массиве определить количество различающихся элементов https://www.cyberforum.ru/ turbo-pascal/ thread1266941.html
Доброе время суток, помогите пожалуйста написать программу, за ранее большое спасибо. В двумерном массиве определить количество различающихся элементов. Реализовать ввод размерностей и возможность инициализации элементов массива.
Turbo Pascal Проверить правильность расстановки скобок в строке символов
Доброе время суток, помогите пожалуйста написать программу, за ранее большое спасибо. Строка содержит арифметическое выражение, в котором используются круглые скобки, в том числе вложенные. Проверить, правильно ли в нем расставлены скобки (т. е. находится ли справа от каждой открывающей скобки соответствующая ей закрывающая скобка, а слева от каждой закрывающей — соответствующая ей...
Turbo Pascal Дано натуральное число. Определить, сколько раз в нем встречается минимальная цифра https://www.cyberforum.ru/ turbo-pascal/ thread1266939.html
Доброе время суток, помогите пожалуйста написать программу, за ранее большое спасибо. Дано натуральное число. Определить, сколько раз в нем встречается минимальная цифра (например, для числа 102 200 ответ равен 3, для числа 40 330 — 2, для числа 10 345 — 1).
Turbo Pascal Используя метод деления отрезка пополам, найти приближенное значение корня уравнения Доброе время суток, помогите написать программу, за ранее большое спасибо. Используя метод деления отрезка пополам, найти приближенное (с точностью 0,001) значение корня уравнения f(x)=0 на отрезке . а)f(x)=x^4+2x^3-x-1 a = 0, b = 1; б)f(x)=x^3-0,2x^2-0,2x-1,2 a = 1, b = 1,5. https://www.cyberforum.ru/ turbo-pascal/ thread1266934.html Turbo Pascal Использование sin(x) и cos(x) в нахожденни координат
Привет. Можете сказать на каком сайте или в каком учебнике можно по больше узнать об использовании sin и cos в нахождении координат? А то вообще не понимаю как это делается. Пример: begin SetColor(color); x:=round(cos(a)*200+320); y:=round(sin(a)*200+240); Rectangle(x-10,y-10,x+10,y+10); a:=a+(pi*10/180); inc(color); if color=16 then color:=1;
Turbo Pascal Вычислить сумму ряда с точностью Eps Дан такой ряд: Y=1-2*x+3*Sqr(X)-4*(X^3)+5*(X^4), с клавиатуры вводятся только X=(-1;1) и Езы... Вычислить его сумму. Задумка такая: Вычислять сумму ряда Y1=-2*x-4*(X^3)... и Y2=3*Sqr(X)+5*(X^4)..., вроде всё верно вывел, но есть ошибка, не могу её найти. var Y, C1, C2: Real; I: Integer; X, Eps: Real; begin WriteLn('Vvedite argument ryada X'); ReadLn(X); https://www.cyberforum.ru/ turbo-pascal/ thread1266808.html Turbo Pascal Разместить элементы одномерного массива, равные нулю, после всех элементов массива Преобразовать массив К размером n таким образом, чтобы элементы, равные нулю, располагались после всех остальных. https://www.cyberforum.ru/ turbo-pascal/ thread1266776.html
Напечатать таблицу значений функции, заданной графически Turbo Pascal
Дано действительное число a. Для функции y=f(x), график которого приведен на рисунке, вычислить y=f(a) ,
Turbo Pascal Метод хорд E(x)=x3-0,2x2+0,5x+1,5 как писать на турбе паскале? https://www.cyberforum.ru/ turbo-pascal/ thread1266720.html
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,077
Записей в блоге: 1
02.10.2014, 16:52 0

Верно ли, что в первой строке, не считая символов второй строки, есть только точки, запятые, пробелы и цифры? - Turbo Pascal - Ответ 6673558

02.10.2014, 16:52. Показов 1517. Ответов 6
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s1, s2: set of Char;
  s: String;
  i: Integer;
begin
  Write('Введите строку 1: '); ReadLn(s);
  for i:=1 to Length(s) do Include(s1,s[i]);
  Write('Введите строку 2: '); ReadLn(s);
  for i:=1 to Length(s) do Include(s2,s[i]);
  WriteLn(s1-s2-['.',',',' ','0'..'9']=[]);
end.


Вернуться к обсуждению:
Верно ли, что в первой строке, не считая символов второй строки, есть только точки, запятые, пробелы и цифры? Turbo Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2014, 16:52
Готовые ответы и решения:

Строки: уничтожить в строке запятые перед первой точкой, заменить знаком + все цифры 3я после первой точки
Дано строка длиной n символов, среди которых есть хотя бы одна точка. превратить...

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

В списке символов заменить все запятые и точки с запятой на пробелы.
Прошу помочь решить задачки!:(очень нужно (Билет №5) В списке символов заменить все запятые и...

Строка: Удалить все запятые до первой точке и заменить символом ‘+’ все цифры ‘3’, встречающиеся после первой точки...
Дана строка символов, которая содержит хотя бы одну точку. Удалить все запятые, предшествующие...

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

Добавить к первой строке 5 символов второй строки
Добавить к первой строке 5 символов второй строки.

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

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

В первой строке символов оставить только те, которых нет во второй (помогите найти ошибку)
Даны две строки символов. В первой строке оставить только те, которых нет во второй. Dim s As...

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