Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Сделать блок схему к задаче https://www.cyberforum.ru/ pascal/ thread1300623.html
Текст задачи:Составьте программу,которая вычисляет сумму чисел от 1 до N.Значение N вводится с клавиатуры. Требуется блок схема с понятным и простым языком как и что там.
Pascal Найти сумму ряда чисел
Найти сумму ряда чисел : 1/1+1/4+1/9+1/16+1/25
Pascal Задача функции и её разложение в ряд https://www.cyberforum.ru/ pascal/ thread1300561.html
Cox(x)=1-x^2/2!+x^4/4!-...+((-1)^n)*(x^2*n)/(2*n)!, n=0,1,2,...(здесь n! обозначает факториал числа n, равный 1*2*3*...*n; при этом 0!=1). Найти число элементов ряда k, требуемое для достижения заданной точности ε =0,000001
Pascal Шифр Гронсфельда https://www.cyberforum.ru/ pascal/ thread1300547.html
Помогите пожалуйста отладить код) Program Gronsfeld; const nn=32; {число букв в алфавите} type cifra=0..9; var key:array of cifra; x, {данный ключ - пятизначное число} i: integer; c: char; function shifr (c:char; k:cifra):char; {зашифровка данной буквы ключом k} var i:integer;
Напечатать первые n нечетных чисел Pascal
Напечатать первые n нечетных чисел
Pascal Цикл while: найти пары натуральных двузначных чисел а и b, произведение которых в 10 раз больше их суммы https://www.cyberforum.ru/ pascal/ thread1300501.html
Помогите пожалуйста написать задачу через цикл while Найти пары натуральных двузначных чисел а и b, произведение которых в 10 раз больше их суммы. Заранее спасибо!
Pascal Что не так с циклом? что не так с циклом..вдыает ошибку? Program Funkcia; Var x,s,k,n,a:real; Begin X:=1.28; S:=0; For k:=1 to 5 do begin For n:=1 to 10 do Begin https://www.cyberforum.ru/ pascal/ thread1300484.html Ошибка перед словом else Pascal
Подскажите пожалуйста что не правильно...в самом конце там где else пишет ошибку.. Program Func; Var x0,xn,hx,s,f,fsr: real; n,k,i : integer; Begin Writeln('vvedite x0,xn,hx'); Readln(x0,xn,hx); n:=trunc((x0-xn)/hx)+1; s:=0; k:=0;
Pascal Последовательность случайных чисел https://www.cyberforum.ru/ pascal/ thread1300467.html
Выводится на экран последовательность 12 случайных чисел из промежутка . Определить количество отрицательных чисел больших 5 в данной последовательности.
Pascal Цикл FOR,WHILE и Цикл DO WHILE (DENWER+PHP) Составить алгоритм и программу для вычисления произведения чисел: 13, 14.3, 15.6, 16.9, …, 40.3 Цикл FOR, Цикл WHILE B Цикл DO WHILE https://www.cyberforum.ru/ pascal/ thread1300372.html
Процедуры и функции, вычислить значение выражения Pascal
дано вектор а и б , которые состоят из 10 компонентов . вичислить max( Ai)*max(Bi)/max(Ai+Bi) помогите решить
Pascal PHP+(Denwer) https://www.cyberforum.ru/ pascal/ thread1300295.html
Помогите пожалуйста, если не будет трудно то пройдите по ссылки, (Ссылка на сторонний ресурс удалена)Создайте программу для вычисления: r=\frac{g-\begin{matrix}\\\\e\end{matrix}^{5.1x-1}}{x+y} где g=\sqrt{\frac{1+a^k}{2}} x=\sin ^3(2+k)
0 / 0 / 0
Регистрация: 25.10.2014
Сообщений: 21
0

Найти неповторяющиеся члены массива - Pascal - Ответ 6850528

14.11.2014, 18:11. Показов 1198. Ответов 4
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены).
Получить все числа, которые входят в последовательность по одному разу.
Начал что то делать, не получается, подскажите, как правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a: array [1..15] of integer;
    i,m,n,d:integer;
begin
for i:=1 to 15 do
readln(a[i]);
for m:=1 to 15 do
n:=a[m];
for i:=1 to 15 do
if n<>a[i] then 
write(n);
end.


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

Вывести на экран числа массива, которые повторяются, а неповторяющиеся удалить
Необходимо составить программу, которая будет выводить на экран не повторяющиеся элементы массива....

даны несколько слов,найти повторяющиеся и неповторяющиеся буквы
имеем любые несколько слов(задание со строками).Нужно найти повторяющиеся и неповторяющиеся буквы в...

Найти все неповторяющиеся элементы двумерного массива
Решите, пожалуйста. Найти все неповторяющиеся элементы двумерного массива целых чисел...

Найти все неповторяющиеся элементы двумерного массива целых чисел
Помогите с написанием проги: Найти все неповторяющиеся элементы двумерного массива целых...

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

Найти все неповторяющиеся элементы двухмерного массива целых чисел
решите задачу с помощю подпрограммы !!! задача(330): найти все неповторяющиеся элементы...

Необходимо найти повторяющиеся и неповторяющиеся буквы
даны несколько слов (любые) Необходимо найти повторяющиеся и неповторяющиеся буквы Добавлено...

Найти все неповторяющиеся элементы матрицы
Найти все неповторяющиеся элементы двумерного массивацулых чисел.

Все члены массива меньше первого элемента массива, увеличить на его значение.
1) В матрице a найти произведение положительных элементов во всех нечётных столбцах.Если таких...

В массиве случайных чисел из 17 элементов найти неповторяющиеся значения: проверить код
В массиве случайных чисел из 17 элементов найти неповторяющиеся значения. program b21; uses...

Найти все неповторяющиеся варианты перестановок элементов массива
Здравствуйте. Нужно написать процедуру Next, при этом дан массив V, а нужно найти все...

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