|
|
| Другие темы раздела | |
| PascalABC.NET Запуск компилятора pabcnetc.exe из .bat файла Есть .bat, который должен запускать в цикле перекомпиляцию всех примеров на PascalABC.NET из данной папки после компиляции проекта в Visual Studio: for %%f in ("%pascalExamplesFolder%*.pas") do "%pabcnetc%" "%%f" , но проблема в том, что данная строка даёт сбой с сообщением: Необработанное исключение: System.IO.IOException: Неверный дескриптор. 1> 1> в... https://www.cyberforum.ru/ pascalabc-net/ thread2573586.html |
Определить номер позиции максимальной цифры, встречающейся в строке PascalABC.NET Пожалуйста, помогите с решением: Дана строка. Определить номер позиции максимальной цифры, встречающейся в ней. |
|
PascalABC.NET Объясните каким образом работает программа,чем в данном коде является pos
https://www.cyberforum.ru/ pascalabc-net/ thread2573497.html Объясните каким образом работает программа,чем в данном коде является pos. ___ var s: string; begin s := 'rabrakadabravddfa'; write(pos('ab',s)); end. ____ Ответ:2 |
PascalABC.NET Невозможно явно преобразовать тип real к типу string
https://www.cyberforum.ru/ pascalabc-net/ thread2573493.html Как обойти? uses graphABC; var gx,gy,x0,y0{м},x1,y1,y2{перепад на торцах}:integer;{переменным присваиваем целочисленный тип данных} r{м},x,k,n,{коэфф. расхода}Po{плотность кг/м^3},P0{давление в Па},Pab{перепад давлений на торцах},k2{для шкалы},i{для шкалы}, k3 {коэффициент для перепада на торцах}, L1,A1,Q1,S11,S12,S1,H1,dP1, L2,A2,Q2,S21,S22,S2,H2,dP2, L3,A3,Q3,B3,S31,S32,S3,H3,dP3,... |
|
PascalABC.NET Выполняется условие, которое не должно выполнятся Доброго времени суток! Со мной произошло довольно неприятное происшествие - я наткнулся на логическую ошибку в своей программе. И все бы ничего, но ошибка не поддается моей логике. После большого количества упрощений, код стал выглядеть так: var arr: array of string; begin for var x := 2 to 3 do begin; |
PascalABC.NET Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержат Прошу помощи в следующем вопросе: Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержать только положительные числа, а второй - отрицательные. Порядок чисел должен быть сохранен, как в первом стеке. Pascal Не понимаю почему не нравится преподу этот вариант. Говорит это вообще не стек. Помогите пожалуйста. (Пробелы где : P... https://www.cyberforum.ru/ pascalabc-net/ thread2573408.html |
|
PascalABC.NET Определить день недели
https://www.cyberforum.ru/ pascalabc-net/ thread2573401.html uses crt; {високосный год} function Vis(y:word):boolean; begin Vis:=((y mod 100<>0)and(y mod 4=0))or(y mod 400=0); end; {кол. дней прошло в данном году} function Dn_gd(d,m,y:word):word; var k,k2:word; begin |
PascalABC.NET Описать структуру с именем STUDENT Никак не могу написать эту программу, а на просторах форума нашел ответ на такой же вопрос только под С++ а под Pascal нигде нет. Описать структуру с именем STUDENT, содержащую следующие поля: - фамилия и инициалы; - номер группы; - успеваемость (массив из пяти элементов). Написать программу, выполняющую следующие действия: - ввод с клавиатуры данных в файл, состоящий из ... |
| PascalABC.NET Найти среднее арифметическое нечетных элементов каждого столбца матрицы Вывести на экран матрицу 5x5, элементами которой являются целые случайные числа из интервала . Найти среднее арифмети-ческое нечетных элементов каждого столбца. РАБОТА В СРЕДЕ PascalABC.NET https://www.cyberforum.ru/ pascalabc-net/ thread2573314.html | PascalABC.NET Переписать код с Python Здравствуйте, могли бы вы переделать данный код с python на паскаль? from random import randint n=int(input("Введите кол-во строк:")) m=int(input("Введите кол-во столбцов:")) a=*m for i in range(n)] b= for i in range(n): for j in range(m): a=randint(-100,100) https://www.cyberforum.ru/ pascalabc-net/ thread2573310.html |
|
PascalABC.NET Написать код программы, вычисляющей сумму всех чисел массива, произведение цифр которых равно 12 Нужно написать программу во вложенном цикле через массив. Помогите, если вам не трудно. До самого не доходит) |
PascalABC.NET Задача про файлы Паскаль Дан файл f, компоненты которого являются целыми числами. Получить в файле g положительные четные компоненты файла f. Помогите сделать через процедуры и функции. type T = file of Integer; var f, g: T; i, j: Integer; https://www.cyberforum.ru/ pascalabc-net/ thread2573220.html |
|
0 / 0 / 0
Регистрация: 22.01.2020
Сообщений: 11
|
|
| 0 | |
Разбить один стек на два: положительные и отрицательные элементы отдельно - PascalABC.NET - Ответ 1419442122.01.2020, 16:24. Показов 2082. Ответов 1
Метки (Все метки)
Помогите пожалуйста, буду очень благодарен! Вернуться к обсуждению: Разбить один стек на два: положительные и отрицательные элементы отдельно PascalABC.NET
0
|
|
| 22.01.2020, 16:24 | |
|
Готовые ответы и решения:
1
Таблицу значений функции разложить на две колонки — отрицательные отдельно, положительные отдельно Переписать положительные элементы в один массив, отрицательные – в другой Разбить исходный список на два (в один - положительные элементы, в другой - отрицательные) |
| 22.01.2020, 16:24 | |
| 22.01.2020, 16:24 | |
|
Помогаю со студенческими работами здесь
0
Сложить отдельно все положительные и отрицательные элементы массива отдельно
Разделить один однонаправленный список на два: положительные и отрицательные элементы |