|
|
| Другие темы раздела | |
| PascalABC.NET Подсчитать количество одинаковых чисел массива, идущих подряд program qwe; const n=20; var arr: array of integer; i:integer; count:byte; begin randomize; for i:=1 to n do begin https://www.cyberforum.ru/ pascalabc-net/ thread1455164.html |
PascalABC.NET Определить количество слов, начинающихся с гласных букв в последовательности Вводится последовательность символов, конец ввода - точка. Определить количество слов начинающихся, с гласных букв в последовательности. |
|
PascalABC.NET Как увеличить размер графического элемента (graphbox) окна?
https://www.cyberforum.ru/ pascalabc-net/ thread1454773.html Очень нужно, просто очень нужно увеличить размер графбокса, сам нашел функцию, возвращающую значение его ширины (1028). А поменять не могу. Помогите, пожалуйста. |
PascalABC.NET Удалить из массива все слова, содержащие не меньше трех четных цифр
https://www.cyberforum.ru/ pascalabc-net/ thread1454669.html Добрый день. Имеется вот такая задача: Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. Удалить из массива все слова, содержащие не меньше трех четных цифр. Собственно, интересует проверка символов каждой строки. Делал так: for i:=1 to n do begin writeln('Введи ',i,'-е слово'); readln(s); ... |
|
PascalABC.NET Сделать так, чтобы при изменении размера окна, линии рисовались опять по центру Нужно сделать так, чтобы при изменении размера окна, линии рисовались опять по центру, а фигуры оставались на своем месте и обновляли свои заливки в соответствии со своим положением относительно центральных линий. uses GraphABC; procedure MouseDown(x,y,mb: integer); begin if mb=1 then begin |
PascalABC.NET Создать файл случайных символов типа char и вывести из него все гласные буквы Создать файл случайных символов типа char и вывести из него все гласные буквы. Program qwe; const g: set of char=; var f : file of char; ch : char; i,n : integer; begin https://www.cyberforum.ru/ pascalabc-net/ thread1454256.html |
|
PascalABC.NET Построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке
https://www.cyberforum.ru/ pascalabc-net/ thread1454253.html Ввести строку и построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке. Вывести это множество. |
PascalABC.NET Рассчитать потенциал электростатического поля во всех точках плоскости Здравствуйте! помогите с задачей пожалуйста! даны 3 точечных заряда с координатами (x1,y1), (x2,y2), (x3,y3). требуется рассчитать потенциал электростатического поля во всех точках плоскости, содержащие эти заряды. в зависимости от величины потенциала ставится точка соответствующего цвета. (от синего до красного) Есть программный код, но его необходимо переделать под паскаль АВС. помогите... |
| PascalABC.NET Методом половинного деления найти корни производной функции var a,b,x,e,c: real; function f(x:real):real; begin f:=7.5*(x*x*x*x)-1.2*(x*x*x)-5.1*sqr(x)+3*x-4.36; end; begin a:=-4;b:=0;e:=0.0001; c:=(a+b)/2; while abs(b-a)>e do begin https://www.cyberforum.ru/ pascalabc-net/ thread1454088.html |
PascalABC.NET Нужно построить блок-схему по программе перевода единиц времени
https://www.cyberforum.ru/ pascalabc-net/ thread1454075.html Еще одна программка. Буду благодарен если поможете построить блок-схему :) program zizn_bol; uses crt; var chas,min,sec,summa:integer; function summ(secvchas,secvmin,sec:integer):longint; begin summa:=secvchas+secvmin+sec; summ:=summa; end; |
|
PascalABC.NET Построить блок-схему по программе определения в массиве положительных и отрицательных чисел Помогите построить блок-схему. Спасибо. program nnn; uses crt; var n,i,a,pol,otr:integer; begin write('n='); read(n); writeln('Введите ',n,' целых чисел'); pol:=0; |
PascalABC.NET Нужно построить блок-схему по программе транспонирования матрицы Добрый вечер. Помогите пожалуйста построить блок-схему до программе: program mat; var a: array of integer; i,j,n: byte; r: integer; begin randomize; write('размерность: '); https://www.cyberforum.ru/ pascalabc-net/ thread1454050.html |
|
0 / 0 / 0
Регистрация: 17.05.2015
Сообщений: 6
|
|
| 0 | |
Найти сумму модулей элементов массива, расположенных после первого отрицательного элемента - PascalABC.NET - Ответ 765709923.05.2015, 13:55. Показов 1660. Ответов 3
Метки (Все метки)
1) номер минимального по модулю элемента массива; 2) сумму модулей элементов массива, расположенных после первого отрицательного элемента. Вернуться к обсуждению: Найти сумму модулей элементов массива, расположенных после первого отрицательного элемента PascalABC.NET
0
|
|
| 23.05.2015, 13:55 | |
|
Готовые ответы и решения:
3
Вычислить количество и сумму модулей элементов массива, расположенных после первого отрицательного элемента
|
| 23.05.2015, 13:55 | |
| 23.05.2015, 13:55 | |
|
Помогаю со студенческими работами здесь
0
Вычислить сумму элементов массива, расположенных после первого положительного элемента Определить, сумму элементов массива, расположенных после первого положительного элемента |