Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Получить два наиболее часто встречающихся слова в файле https://www.cyberforum.ru/ turbo-pascal/ thread294591.html
напишите пожалуйста программу,очень нужно: дан символьный фaйл f. получить два наиболее часто встречающихся слова в этом файле
разработать модульную, эффективную программу. Turbo Pascal
Если все элементы массива положительные или равные нулю, то найти максимальный элемент. Если все элементы массива отрицательные, то найти минимальный элемент. Если среди элементов массива есть...
Turbo Pascal Определение ошибочного символа https://www.cyberforum.ru/ turbo-pascal/ thread294571.html
Даны два слова, одинаковых по значению, в одном из них сделана ошибка. Определить в какой позиции ошибочный символ.
Turbo Pascal Массивы и Файлы: Найти сумму положительных и сумму отрицательных элементов каждой матрицы https://www.cyberforum.ru/ turbo-pascal/ thread294537.html
Найти сумму положительных и сумму отрицательных элементов каждой матрицы. Результат записать в файл F4.
Turbo Pascal Составить блок-схемы к нескольким программам
помогите!!! из 2 блок схем напишите пожалуйста 2 программы, очень сильно прошу!!! спасибо.сегодня курсовая.ПОМОГИТЕ ПОЖАЛУЙСТА.
Turbo Pascal Вычислить сумму произведений всех пар соседних чисел Здравствуйте,не могу решить две задачи=(Помогите пожалуйста=) 1)Задан одномерный числовой массив. Вычислить сумму произведений всех пар соседних чисел. 2)Задана квадратичная матрица.Сформировать... https://www.cyberforum.ru/ turbo-pascal/ thread294518.html
Turbo Pascal Бинарные деревья https://www.cyberforum.ru/ turbo-pascal/ thread294493.html
Задание: составить программу, которая выполняет следующие действия: а) читает из файла, созданного по заданиям предыдущих работ, информацию о студентах и вносит ее в бинарное дерево; б)...
Turbo Pascal Изобразить две движущиеся по концентрическим окружностям точки
Изобразить на экране две движущиеся точки по концентрическим окружностям. Скорости точек различны, а направление одно. (пожалуйста....)
Turbo Pascal оживить фигуру https://www.cyberforum.ru/ turbo-pascal/ thread294465.html
нужно оживить фигуру рыбы за счёт изменения размера плавников.:
Turbo Pascal Циклы( операторы цикла FOR, WHILE, REPEAT) https://www.cyberforum.ru/ turbo-pascal/ thread294437.html
Составить программу для вычисления произведения конечного ряда:\prod_{i=2}^{30}\frac{{i}^{2}+1}{i}
Turbo Pascal Как сделать следующую диаграмму с функцией sector
program diagram; uses crt, graph; const x:array of integer=(1653,1753,1853,1953); y:array of integer=(789,1376,1674,2398); var dr,mode,i,Xc,Yc:integer; m,q:string; a,s,a0,t:real; begin
Turbo Pascal Графика круги Помогите нарисовать кругами одного радиуса https://www.cyberforum.ru/ turbo-pascal/ thread294420.html
Путешественник вселенной
189 / 160 / 119
Регистрация: 01.03.2011
Сообщений: 664
13.05.2011, 12:00 0

Получить все числа которые входят в последовательность по одному разу - Turbo Pascal - Ответ 1644293

13.05.2011, 12:00. Показов 1408. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Раз раз orkk orkk как программа? Повторяю, как программа?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var a:array[1..200] of integer;
i,j,flag:byte;
begin
randomize;
for i:=1 to 200 do
begin
flag:=0;
for j:=1 to 200 do
begin
a[j]:=random(200)+1;
if a[j]=a[j+1]
then begin
flag:=1; break; end;
end;
if flag=0 then
Writeln(' Chislo pod nomerom ',i,' 1 raz ');
Write('a[',i,'] = ',a[i]);
end;
readln;
end.


Вернуться к обсуждению:
Получить все числа которые входят в последовательность по одному разу Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2011, 12:00
Готовые ответы и решения:

Получить все числа, которые входят в последовательность по одному разу
Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется...

Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые входят в нее по одному разу
Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые...

Напечатать гласные, которые входят в текст по одному разу и согласные, которые не входят в текст по одному разу
Друзья, помогите решить следующую задачу: Дан произвольный текст. Напечатать в алфавитном...

Получить в порядке возрастания все целые числа из интервала, которые не входят в последовательность
Даны целые числа а1,…, а30. Пусть М – наибольшее, а N – наименьшее из а1,…, а30. Получить в порядке...

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

Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу
Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые...

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по...

Создать новую последовательность, в которую элементы последовтельности B входят только по одному разу
Дана последовательность чисел или слов B. С помощью процедуры создать новую последовательность, в...

Создать новую последовательность, в которую элементы последовательности В входят только по одному разу
Дана последовательность чисел или слов В. С помощью процедуры создать новую последовательность , в...

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