|
|
| Другие темы раздела | |
| Pascal ABC Преобразование строк по заданному правилу Добрый вечер! Помогите решить!!! Срочно нужно. Заранее спасибо. Пункты задачи: 1. Ввод слов с клавиатуры; 2. Преобразовать слова - каждое с новой строки; 3. Посчитать и вывести количество слов; 4. Вывести самое длинное слово и самое короткое (если таких слов несколько, вывести первое встречающееся). 5. Если вводятся знаки препинания, их не считать; 6. Выводить ошибку, если несколько пробелов... https://www.cyberforum.ru/ pascalabc/ thread2082496.html |
Исправьте ошибку в моей программе Pascal ABC var st,str:string; i,summ,b,f,a:integer; begin readln(str); i:=1; while str<>'=' do begin while str in do begin st:=st+str; i:=i+1; end; |
| Pascal ABC Найти среди 4-значных чисел наименьшее число ,которое делится на 18 и на 12 Вывести все числа, которые делятся на 18 и 12 program bb; var k,i:integer; begin for i:=1000 to 9999 do if (i mod 18 = 0) and ( i mod 12 = 0) then writeln(i); end. https://www.cyberforum.ru/ pascalabc/ thread2082200.html |
Pascal ABC Дан текст. Сколько в нем встречается русских букв a?
https://www.cyberforum.ru/ pascalabc/ thread2082153.html дан текст. Сколько в нем встречается русских букв a (учесть разные рerистры). |
|
Pascal ABC Определить принадлежность точки с заданными координатами заданной области Нужна помощь в решении задачи на координаты |
Pascal ABC Метод хорд
https://www.cyberforum.ru/ pascalabc/ thread2082087.html нужно исправить так чтобы выводились все три корня с количеством шагов, метод хорд, заранее спасибо) const a=-2; b=2; eps=0.0001; Var x, c: Double; n: Integer; Function f(x: Double): Double; Begin f := x*x*x-2*x +1; |
| Pascal ABC Удалять каждое второе вхождение подстроки в строке без стандартных функций Паскаля Лабораторная. Нельзя использовать "... стандартные функции для работы со строками (за исключением фукнции определения длины строки).". Нашел функцию по алгоритму Бойера-Мура, но программа работает так, что удаляет все вхождения, а мне нужно каждое второе. Почему не срабатывает? Program lab2; uses crt; function BMSearch(StartPos: Integer; const S, P: String): Integer; type ... https://www.cyberforum.ru/ pascalabc/ thread2081984.html |
Как узнать длину DataStack? Pascal ABC Как узнать длину DataStack? uses Containers, GraphABC, PointRect; const Angle = -Pi / 4; type EdgeData = class A, B, C: Point; R: integer; |
|
Pascal ABC Нахождение корней функции
https://www.cyberforum.ru/ pascalabc/ thread2081663.html Ребят помогите с написанием программы, срочно нужно 1. Задав достаточно большой интервал, получить график функции. По нему попытаться определить интервалы, в которых находятся корни функции. 2. Для каждого найденного интервала произвести вычисление методами Простой итерации, половинного деления. Вычисления проводить до достижения точности eps=0.0001. 3. Подсчитать число шагов каждого... |
Pascal ABC Переставить строки матрицы, чтобы их последние элементы располагались в порядке невозрастания
https://www.cyberforum.ru/ pascalabc/ thread2081623.html DELPHI - Дана целочисленная квадратная матрица порядка N. Переставить строки матрицы, чтобы их последние элементы располагались в порядке невозрастания. Сортировка подсчетом - Pascal ABC |
|
Pascal ABC Сравнение чисел не выполняется В чём проблема? Что за прикол? При таком простом коде: const start = 0; finish = 20; h = 0.4; var x:real; begin x:=start; while(x<finish) do begin write('f(', x, ') = '); if x < 10 then begin write(1); end else if x = 10 then begin write(0); end else if x > 10 then write(2); |
Pascal ABC Вычисление выражений с использованием функций
https://www.cyberforum.ru/ pascalabc/ thread2081257.html При заданных значениях N с помощью собственных функций вычислить выражения. Y= (8) / (9) + (10) Цифры в скобках обозначают номер функции в таблице: \begin{array}{|l|l|} \hline \\ 8. & \frac{1}{1\cdot 3}+\frac{1}{2\cdot 4}+\frac{1}{3\cdot 5}+...+\frac{1}{n\cdot (n+2)}\\ \hline \\ 9. & \frac{1}{1\cdot 2\cdot 3}+\frac{1}{2\cdot 3\cdot 4}+\frac{1}{3\cdot 4\cdot 5}+...+\frac{1}{n\cdot... |
|
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 2
|
|
| 0 | |
Определить дом, в котором нужно установить телефонную станцию - Pascal ABC - Ответ 1125599716.10.2017, 08:23. Показов 1138. Ответов 12
Метки (Все метки)
Вернуться к обсуждению: Определить дом, в котором нужно установить телефонную станцию Pascal ABC
0
|
|
| 16.10.2017, 08:23 | |
|
Готовые ответы и решения:
12
Определить дом, в котором нужно установить телефонную станцию Предприятие имеет местную телефонную станцию Вероятность количества звонков на телефонную станцию На телефонную станцию поступает в среднем 6 заявок |
| 16.10.2017, 08:23 | |
| 16.10.2017, 08:23 | |
|
Помогаю со студенческими работами здесь
0
Предприятие имеет местную телефонную станцию на 20 номеров
Самсунг е590 нужно скачать телефонную книгу |
Наверх