|
|
| Другие темы раздела | |
| Pascal ABC Программы. Физика Примеры: Program Linza; uses ctr, GraphABC; var p, x0, y0, F, h, d, s, hi: integer; begin p:LoadPicture('linza.jpg'); DrawPicture(p,0,0); x0:=320; y0:=240; F:=120; h:=70; write ('Расстояние от линзы до предмета (>160) d='); readln(d); https://www.cyberforum.ru/ pascalabc/ thread2538316.html |
Программы. Биология и экология Pascal ABC Примеры: Program Microscop; uses ctr, GraphABC; Var img, x,y,w,h,d: integer; c:char; Begin SetwindowSite(400,260); img:=LoadPicture('kletka.jpg'); x:=0; y:=0; w:=400; h:=260; |
| Pascal ABC Вычислить косинус угла между векторами Вычислить косинус угла между векторами а и b размерность n по формуле cos(\alpha )=\frac{(ab)}{|a||b|} Не удаётся сделать,надеюсь на поддержку https://www.cyberforum.ru/ pascalabc/ thread2538312.html |
Pascal ABC Программы. География
https://www.cyberforum.ru/ pascalabc/ thread2538309.html Примеры: Program Geograf1; Uses crt, GraphABC; var karta,R,A: ineger; Begin SetWindowSize (520,480); karta:=LoadPicture('belarus.gif'); DrawPicture (karta,10,10); SetBrushColor (clRed); A:=1700; R:=round (sgrt (A/pi)); |
|
Программы. Астрономия Pascal ABC Примеры: program Teleskop; uses crt, GraphABC; var nebo, luna, x, y, w, h: integer; k: real; begin SetWindowSize (500,500); nebo:=LoadPicture('sky.gif'); DrawPicture(nebo,0,20,500,500); luna:=LoadPicture('luna2.gif'); SetPictureTransparent(luna,true); x:=200; y:=200; |
Pascal ABC Вычислить значение бесконечной суммы
https://www.cyberforum.ru/ pascalabc/ thread2538303.html Для х, изменяющегося от х0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью e=0.00001 и функции y(x). S=\sum_{n=0}^{\infty}\frac{{x}^{2n+1}}{n!}\\y=x{e}^{{x}^{2}} Не удаётся сделать,надеюсь на поддержку |
| Pascal ABC Программы. Диаграммы и графики Примеры: Program Grafik; Uses GraphABC; Car x0, y0, x1, y1, k: integer; x, y:real; begin SetWindowSize (640,400); x0:=320; y0:=200; k:=20; Line (20, y0, 620, y0); Line (x0, 20, x0,380); SetPenColor (clRed); https://www.cyberforum.ru/ pascalabc/ thread2538300.html |
Pascal ABC Проблема с вводом файла var f1, f2: tfmatr;k, i, n, d: integer; fn1, fn2: string; st: tmatr; begin task; writeln('вв имя исход'); readln(fn1); if not fileexists(fn1) then begin assign(f1, fn1); |
|
Pascal ABC Вычислить значение функции
https://www.cyberforum.ru/ pascalabc/ thread2538289.html Не получается сделать,надеюсь на поддержку |
Pascal ABC Вычислить значение выражения Не получается сделать, надеюсь на поддержку. Вычислить значение выражения y=\begin{cases}x+\frac{\cos (x)}{x^2-1} & \text{ npu } x\,<\,0 \\\\ \frac{(x^2+1)\cos (x)}{x^2} & \text{ npu } x\geq 0 \end{cases} где x - меньший корень уравнения ax2+bx+c=0. Значения a, b, c задавать при вводе. На экран дисплея вывести значения a, b, c, x, y. https://www.cyberforum.ru/ pascalabc/ thread2538270.html |
|
Pascal ABC Определить количество элементов массива, равных заданному числу Здравствуйте!) Дана упорядоченная таблица чисел A , которая может содержать элементы с одинаковыми значениями. Записать алгоритм, для выяснения того, имеется ли в таблице заданное число К. Если такое число имеется, то найти количество элементов таблицы, равных ему. Помогите пожалуйста, очень нужно. |
Pascal ABC Присвоить z = 1, если точка внутри эллипса и z = 0, если точка вне эллипса
https://www.cyberforum.ru/ pascalabc/ thread2538125.html Дана точка М(x, y).Присвоить z = 1, если точка внутри эллипса x^2/a^2 + y^2/b^2 =1 и z = 0,если точка вне эллипса. |
|
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
| 26.11.2019, 07:28 | 0 | |||||
Дана строка, состоящая из символов. Удалить из этой строки все цифры, записав в другую строку - Pascal ABC - Ответ 1403181126.11.2019, 07:28. Показов 2173. Ответов 1
Метки (Все метки)
Ответ 
Сообщение от dakwol
Вернуться к обсуждению: Дана строка, состоящая из символов. Удалить из этой строки все цифры, записав в другую строку Pascal ABC
0
|
||||||
| 26.11.2019, 07:28 | |
|
Готовые ответы и решения:
1
Дана строка символов, состоящая из букв и цифр. Удалить из строки все цифры
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
|
| 26.11.2019, 07:28 | |
| 26.11.2019, 07:28 | |
|
Помогаю со студенческими работами здесь
0
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки- не работает
|