Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Не работает сортировка массива https://www.cyberforum.ru/ pascalabc/ thread1187575.html
program pro1; uses op,obrabotki; begin writeln ('Введите количесвто элементов массива'); writeln('Введите элементы массива:'); vvod(a); viviod(a); sort(a,n); readln(key); poisc(a,k); 		Работа с файлами Pascal ABC
Помогите, пожалуйста, очень надо....:cry: Создать файл F1, содержащий записи о параметрах заданного числа кругов. Каждая запись файла должна включать случайные координаты центра из интервала и случайный радиус из , полученные Random. Найти в файле круг, площадь пересечения которого с квадратом максимальна. Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном...
Pascal ABC Очереди / Динамические переменные Условие: нужно проверить на равенство две очереди. https://www.cyberforum.ru/ pascalabc/ thread1187414.html Pascal ABC Множество Помогите со множеством Сортирует по пробегу Тип элементов множества|Метод представления|Задание Запись с полями: номер автомобиля ФИО владельца пробег в км |Бинарный вектор|Генерация всех подмножеств данного n-элементного множества https://www.cyberforum.ru/ pascalabc/ thread1187412.html
Рандомный вывод Pascal ABC
Нужно написать программу, которая выводит с процентным соотношением ту или иную фразу, к примеру: 55% что выведет слово "Да" 30% что выведет слово "Нет" 15% что выведет слово "Неизвестно" 		Pascal ABC Дана квадратная матрица А порядка n Найти матрицу B=A^m, где m целое число https://www.cyberforum.ru/ pascalabc/ thread1187313.html
Напишите, пожалуйста программу и алгоритмизацию Дана квадратная матрица А порядка n Найти матрицу B=Am, где m целое число Вычислить сумму отрицательных элементов полученной матрицы расположенных под её главной диагональю в столбцах с чётными номерами.
Pascal ABC Найти ошибку в программе https://www.cyberforum.ru/ pascalabc/ thread1187267.html
Это задание из егэ C1. По моему мнению, ошибка здесь в том, что когда x>=3.14/2 или y>=0, программа ничего не выведет, а должна выводить не принадлежит. Доработать таким образом: if (x<=3.14/2) and (y<=0) and (y>=-sinx) then write('Принадлежит') else write('Не принадлежит'); Это будет правильно ? 		Найти среднее арифметическое всех положительных элементов матрицы Pascal ABC
Если возможно, то, пожалуйста, напишите программу в соответствии с приложенной блок-схемой. Должна быть возможность вручную задавать количество столбцов и строк, а также значение каждого элемента. Заранее спасибо. Удалены ссылки на запрещенные ресурсы
Pascal ABC Проверка корректности ввода через процедуру Нужно было написать программу корректности ввода маски ББЦЦЦБ в этой программе: uses crt; const bk=; cf=; var c:char; i:byte; s:string; begin writeln('Введите строку из 6 симолов по маске ББЦЦЦБ'); i:=1; while i<=6 do https://www.cyberforum.ru/ pascalabc/ thread1187112.html Pascal ABC Доказать, что данная функция вычислимой за Тьюрингом, и написать программу машины Тьюринга, которая ее вычисля https://www.cyberforum.ru/ pascalabc/ thread1187111.html
Доказать, что данная функция вычислимой за Тьюрингом, и написать программу машины Тьюринга, которая ее вычисляет: ( на фото )
Pascal ABC Найти функцию, которая получается в результате применения оператора примитивной рекурсии до двух данных функци
Найти функцию, которая получается в результате применения оператора примитивной рекурсии до двух данных функций: ( на фото ) 		Pascal ABC Указать все функции, которые можно получить из указанных функций в результате однократного применения оператор Указать все функции, которые можно получить из указанных функций в результате однократного применения оператора подстановки:(на фото) https://www.cyberforum.ru/ pascalabc/ thread1187102.html
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 35
0

Отсортировать динамический список так, чтобы все четные значения оказались вначале списка, а нечетные в конце - Pascal ABC - Ответ 6224130

25.05.2014, 17:10. Показов 1044. Ответов 1
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Дан текстовый файл с числами. Переписать все числа в динамический список. Отсортировать динамический список так, чтобы все четные значения оказались вначале списка, а нечетные в конце.Затем привести количество четных и нечетных чисел к одинаковой длине, путем удаления начальных значений.

Запись из файла в список сделал, дальше не знаю
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

procedure readdynam;
begin
reset(t);
first:=nil;
while not seekeof(t)  do begin                 
      new(p1);
      read(t,p1^.x);
      inc(i);
      if first=nil then
      first:=p1
      else p2^.adr:=p1;
      p2:=p1;
                               end;
      close(t);
      writeln;
      p2^.adr:=nil;
      p1:=first;
      writeln('Исходный список:');             
      while p1<>nil do begin
      write(p1^.x:4);
      p1:=p1^.adr;
                       end;
end;
procedure dynam;
var koln,kolch:integer;
begin
koln:=0;kolch:=0;  kol:=0;
p1:=first;
while p1<>nil do begin
      if p1^.x mod 2=0 then begin
                   new(p3);
                   p3^.x:=p1^.x;
                   inc(kolch);


Вернуться к обсуждению:
Отсортировать динамический список так, чтобы все четные значения оказались вначале списка, а нечетные в конце Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 25.05.2014, 17:10
Готовые ответы и решения:

Переставить значения элементов заданного одномерного массива,так, чтобы все нулевые значения оказались в конце массива,а ненулевые вначале
Переставить значения элементов заданного одномерного массива,так, чтобы все нулевые значения...

Переставить элементы массива так, чтобы в начале оказались четные элементы, а в конце - нечетные
Очередная,теперь уже последняя &quot;проблема&quot; с вба.Необходимо переставить элементы массива так,чтобы в...

Отсортировать заданную последовательность так, чтобы все нули оказались в конце
Задача: Дана последовательность чисел, отсортировать эту последовательность так, чтобы все нули...

Перестроить односвязный список так, чтобы сначала стояли все нечетные числа, затем все четные
Построить линейный список из входной последовательности чисел. Перестроить его так, чтобы сначала...

1
25.05.2014, 17:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 25.05.2014, 17:10
Помогаю со студенческими работами здесь

Машина Тьюринга: отсортировать символы таким образом, чтобы все a были вначале слова, все b в середине, все c - в конце
В слове из {a,b,c} отсортировать символы таким образом, чтобы все a были вначале слова, все b в...

Вывести вначале массива нечетные элементы, в конце - чётные
Недавно начал изучение C, попалась такое задание в лабораторной работе. Первое задание, в котором...

Переставить числа в массивах так, чтобы в начале оказались все положительные элементы, а в конце отрицательные
Заданы три одномерных масива.Переставиты числа в массивах таким образом, чтобы в начале массивов...

Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные
задача3-Сформировать одномерный целочисленный массив из 80 элементов. Сформировать новый массив,...

Список: Преобразовать список так, чтобы сначала шли нечетные элементы, а потом четные
Преобразовать список таким образом, чтобы в первой его половине располагались элементы, стоявшие на...

Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце
Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце.(Метод...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru