PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Выяснить, есть ли в двумерном массиве хотя бы один столбец, содержащий более двух одинаковых элементов Здравствуйте! Нужно составить программу, позволяющую выяснить, есть ли в двумерном массиве хотя бы один столбец, содержащий более двух одинаковых элементов. Если нетрудно, приведите, пожалуйста, пояснения к действию программы. https://www.cyberforum.ru/ pascalabc-net/ thread1407974.html	*ABCObjects: собрать несколько .png в один PascalABC.NET** ABCObjects: собрать несколько *.png в один. Подскажите, пожалуйста, как такое возможно реализовать? Есть 4 изображения в PictureABC, которые необходимо склеить в один PictureABC. (\begin{matrix}1 & 2\\ 3 & 4\end{matrix}) Можно и не в PictureABC, если существуют какие другие методы.
PascalABC.NET Для нечетных чисел найти среднее арифметическое цифр старшего и младшего разрядов На интервале чисел для нечетных чисел найти среднее арифметическое цифр старшего и младшего разрядов, для четных определить числа с максимальной цифрой в младшем разряде. https://www.cyberforum.ru/ pascalabc-net/ thread1407410.html	PascalABC.NET Для нечетных чисел найти среднее арифметическое максимальной и минимальной цифр https://www.cyberforum.ru/ pascalabc-net/ thread1407409.html На интервале чисел для нечетных чисел найти среднее арифметическое максимальной и минимальной цифр, для четных определить числа с максимальной цифрой в старшем разряде.
PascalABC.NET Для четных чисел найти среднее арифметическое нечетных цифр На интервале чисел для четных чисел найти среднее арифметическое нечетных цифр, для нечетных найти максимальную цифру.	PascalABC.NET Для четырезначных чисел найти среднее арифметическое цифр https://www.cyberforum.ru/ pascalabc-net/ thread1407407.html На интервале чисел для 4-х значных чисел найти среднее арифметическое цифр, для всех нечетных- вывести все цифры, для остальных - только цифру младшего разряда.
PascalABC.NET Для трехзначных чисел найти среднее арифметическое крайних цифр https://www.cyberforum.ru/ pascalabc-net/ thread1407215.html На интервале чисел для трехзначных чисел найти среднее арифметическое крайних цифр, для всех четных вывести все цифры числа, остальные числа игнорировать	Написать программу, которая переводит переданное её целое число в двоичный код PascalABC.NET Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру. Входные данные Входная строка содержит целое число N . Выходные данные Программа должна вывести двоичное представление переданного её числа. Примеры входные данные
PascalABC.NET Графический редактор - доработать работу с кистями Всем привет. В школе недавно начали изучать паскаль и нам сказали, что в конце апреля нужно будет сдать какой-нибудь проект. (даже можно кружки разноцветные анимировать и получить за это хорошую оценку). Паскаль я с сентября изучаю( мало, но все-таки больше чем остальные ). Дак вот, думаю я, дай-ка напишу какой-нибудь графический редактор, ну так, ОЧЕНЬ ОЧЕНЬ простенький, типа пэинта, но... https://www.cyberforum.ru/ pascalabc-net/ thread1406932.html	PascalABC.NET Универсальное возведение в степень https://www.cyberforum.ru/ pascalabc-net/ thread1406913.html Здравствуйте! Помогите пожалуйста представить это в виде функции... Program Number_Nine; Var N,Index:integer; Answ:real; i:byte;
Вывести название продукции, имеет наибольший объем выпуска PascalABC.NET В файле записано: название продукции , вес единицы , цена единицы и количество выпуска каждого вида продукции . Посчитать общую стоимость каждого вида продукции. Вывести название продукции, имеет наибольший объем выпуска . Нужна помощь в этой задачи	PascalABC.NET Дана строка символов. Найти самое длинное предложение из нескольких https://www.cyberforum.ru/ pascalabc-net/ thread1406813.html дана строка символов. найти самое длинное предложение из нескольких.

volvo

Супер-модератор

32835 / 21172 / 8148

Регистрация: 22.10.2011

Сообщений: 36,432

Записей в блоге: 8

30.03.2015, 20:38

Поменять последний элемент массива, кратный своему порядковому номеру с первым элементом - PascalABC.NET - Ответ 7410785

30.03.2015, 20:38. Показов 1537. Ответов 9

Метки (Все метки)

Ответ

.NET 3.5:

Pascal

{$reference System.Core.dll}
uses System, System.Linq, System.Collections.Generic, Arrays;
type
  pair = KeyValuePair<integer, integer>;
var 
  a : array of integer;
  rnd : Random := new Random;
  ix : integer;
 
begin
  a := Enumerable.Range(1, 40).Select((i : integer) -> rnd.Next(100)).ToArray();
  a.Writeln;
  
  ix := a.Select((v : integer, i : integer) -> new pair(v, i + 1)).
    Where((p : pair) -> p.Key mod p.Value = 0).LastOrDefault().Value;
    
  writeln('Обмениваем первый элемент с ', ix, '-ым');
  if(ix > 0) then Swap(a[ix - 1], a[0]);
  a.Writeln;
end.

.NET 4+

Pascal

{$reference System.Core.dll}
uses System, System.Linq, System.Collections.Generic, Arrays;
type
  pair = KeyValuePair<integer, integer>;
var 
  a : array of integer;
  rnd : Random := new Random;
  ix : integer;
 
begin
  a := Enumerable.Range(1, 40).Select(i -> rnd.Next(100)).ToArray();
  a.Writeln;
  
  ix := a.Select((v, i) -> new pair(v, i + 1)).
    Where(p -> p.Key mod p.Value = 0).LastOrDefault().Value;
    
  writeln('Обмениваем первый элемент с ', ix, '-ым');
  if(ix > 0) then Swap(a[ix - 1], a[0]);
  a.Writeln;
end.

Вернуться к обсуждению:
Поменять последний элемент массива, кратный своему порядковому номеру с первым элементом PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.03.2015, 20:38

Готовые ответы и решения:

Поменять местами последний элемент массива с первым элементом, равным x
Заданный массив с n чисел. Поменять местами последний элемент с первым элементом, равным x. Учесть...

Поменять местами последний элемент массива с первым минимальным элементом, а затем поделить на заданное
Поменять местами последний элемент массива с первым минимальным элементом, а затем поделить на...

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

В одномерном целочисленном массиве поменять местами последний элемент с первым нулевым элементом
Ввести в память машины одномерный целочисленный массив, размерностью не более 50 элементов....

	30.03.2015, 20:38

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.03.2015, 20:38

Помогаю со студенческими работами здесь

Найти наибольший элемент вектора, кратный трём и равный своему номеру, и его номер
Задан вектор из N элементов. Найти наибольшее число и его координату среди кратных трем и...

Дан целочисленный вектор А(n). Поменять местами последний положительный элемент вектора с первым ненулевым элементом
Дан целочисленный вектор А(п). Поменять местами последний положительный элемент вектора с первым...

Поменяйте местами последний элемент массива, кратный В и первый элемент кратный С
Создайте одномерный массив, поменяйте местами последний элемент кратный В и первый элемент кратный...

Поменять местами минимальный элемент с первым элементом массива, а максимальный элемент с последним
Здравствуйте. Помогите пожалуйста написать программу: для поиска минимального и максимального...

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

Поменять местами минимальный элемент массива с первым элементом массива
Привет. Как поменять мин.элемент с первым элементом массива? namespace ConsoleApp107 { ...

Наверх