|
|
Другие темы раздела | |
Pascal Напечатать те слова последовательности, которые отличны от последнего слова
https://www.cyberforum.ru/ pascal/ thread1338473.html Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пропуска, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: буквы слова упорядочены по алфавиту |
Найти минимальный четный элемент, максимальный отрицательный элемент на четной позиции Pascal Найти минимальный четный элемент, максимальный отрицательный элемент на четной позиции. Сумму между ними |
Pascal Написать программу, переводящую вещественное число в двоичный код
https://www.cyberforum.ru/ pascal/ thread1338395.html Доброго времени суток. Помогите пожалуйста студенту получить зачет. Надо написать программу, переводящую вещественное число в двоичный код( обратный и дополнительный).Заранее всем спасибо! |
Pascal Написать процедуру и нарисовать блок-схему (Вычисление суммы и максимального элемента ПД)
https://www.cyberforum.ru/ pascal/ thread1338371.html Написать процедуру и нарисовать блок-схему по программеprogram pascal; uses crt; const n=5; var a:array of integer; i,j:byte; imax,jmax,max,s:integer; begin clrscr; |
Ошибка в программе вычисления выражения Pascal Program lab2; Var w,y,x1,c,k,b:real; Begin writeln('vvedite znachenie y'); readln(y); If y<=5.2 then b:=abs(y)-2.5 else x1:=7*y*y*y-3*y*y; b:=((7.5*x1)/(y*x1-y*x1*x1*x1)+sqrt(sqr(x1)+sqr(y))); c:=(ln(abs(b-2*b*y+3*y*y))/ln(10)); w:=((c+y)/(exp(abs(y))-exp(abs(c)))); |
Pascal Определить день недели своего рождения По введенной текущей дате (число, месяц и год), текущем дне недели, дате (число, месяц и год) своего рождения определить день недели своего рождения. https://www.cyberforum.ru/ pascal/ thread1338264.html |
Pascal Застелить коридор прямоугольными плитками Прямоугольный коридор длиной N метров и шириной M метров решили застелить N прямоугольными плитками шириной 1 метр и длиной M метров, таким образом, чтобы не было не застеленной поверхности. Требуется написать программу, которая найдет количество способов это сделать. Например, для коридора с размерами 6 на 4 существует четыре способа застелить плитками 1 на 4. Коридор Входные данные ... https://www.cyberforum.ru/ pascal/ thread1338262.html |
Сгенерировать случайным образом многочлен P(x) заданной степени N и найти многочлен P(x+1) Pascal Сгенерировать случайным образом многочлен P(x) заданной степени N и найти многочлен P(x+1). |
Pascal Массивы. Вывести списки предприятий, выпускающих одинаковую продукцию Даны массивы: H1,....,H5 шифры предприятий 1-ой группы HH1,...., HH8 шифры предприятий 2-ой группы N1,....., N5 наименование продукции предприятий 1-ой группы NH1,....., NN8 наименование продукции предприятий 2-ой группы Вывести списки предприятий, выпускающих одинаковую продукцию. вот что я сделал ,но тут явно неправильно . https://www.cyberforum.ru/ pascal/ thread1338236.html | Pascal Найти минимальный элемент из элементов массива, расположенных на нечетных местах Доброго времени суток! Вообщем возник очередной вопрос по одномерным массива. Нужно составить алгоритм к задаче: Найти минимальный элемент из элементов массива, расположенных на нечетных местах. Попробовал, но почему то не работает. Вот что получилось у меня: Program project1; Var x: array of integer; i,n,k: integer; min: real; Begin writeln ('n='); readln (n); i:=1; https://www.cyberforum.ru/ pascal/ thread1338156.html |
Как работать с коммандной строкой Windows программным образом? Pascal Подскажите пожайлуста, как работать с коммандной строкой Windows программным образом в Dev-Pascal. Например, в Dev-Cpp комманды можно было вызывать через system("");. А как это сделать в Dev-Pascal? |
Pascal Для заданных N и X1,X2,.Xn написать программу, используя подходящую функцию
https://www.cyberforum.ru/ pascal/ thread1338043.html помогите решить,чем проще тем тем лучше s=\frac{x_k-x_n}{(n-k)\cdot n!} где xk = min(x1, x2, ..., xn) |
5079 / 2651 / 2349
Регистрация: 10.12.2014
Сообщений: 10,028
|
||||||
23.12.2014, 06:56 | 0 | |||||
Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные - Pascal - Ответ 702502923.12.2014, 06:56. Показов 3097. Ответов 2
Метки (Все метки)
Сообщение было отмечено maverick16 как решение
Решение
Час назад давал на ответах майл:
Вернуться к обсуждению: Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные Pascal
1
|
23.12.2014, 06:56 | |
Готовые ответы и решения:
2
В третий файл записать сначала четные элементы первого файла, а затем — нечетные Массивы. Четные элементы массива поместить в один массив, а нечетные – в другой Переписать в новый массив сначала нечетные, потом четные элементы. Вывести на экран сначала четные элементы массива потом нечетные |
23.12.2014, 06:56 | |
23.12.2014, 06:56 | |
Помогаю со студенческими работами здесь
0
Вывести на экран cначала четные элементы массива, затем нечетные Пользователь вводит 10 чисел, из них формируется массив сначало четные затем нечетные Записать в файл все четные числа, а затем - все нечетные Четные числа файла запишите в один выходной файл, а нечетные – в другой |