Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти минимальный и максимальный элементы массива и их порядковые номера https://www.cyberforum.ru/ turbo-pascal/ thread254471.html
Дан массив (20). Найти минимальный и максимальный элементы массива и их порядковые номера. Пожалуйста помогите... на завтра очень нужно. Заранее благодарен.
Выяснить верно ли, что в последовательности имеется пять идущих подряд букв "Е" Turbo Pascal
№1 дана последовательность символов S1...Sn.выяснить верно ли,что в последовательности S1...Sn имеется пять идущих подряд букв "Е". №2 дан не пустой текст из заглавных русских букв, за которыми...
Turbo Pascal проверка и замена введенных символов
Задание: Вводить с клавиатуры десятичные цифры. На экран монитора выво-дить цифру, следующую по порядку за вводимой, считая при этом, что за '9' следует 'О’. Ввод продолжать до нажатия ‘End’ на...
Turbo Pascal Строки Дано 6 строк текста, представляющего расписание на неделю. В каждой строке через запятую перечисленны уроки на один день (например, "алгебра, алгебра, геометрия, физкультура, труд, труд"), строка... https://www.cyberforum.ru/ turbo-pascal/ thread254457.html
Turbo Pascal Найти ошибку https://www.cyberforum.ru/ turbo-pascal/ thread254451.html
Помогите выдает ошибку "переполнение операции".Я не знаю как от нее избавиться program ld5; uses crt; var a:array of real; x1,x2,z,t,y1,b,e,y2,y3,h,w,f1,p,p1:real; i,k:integer; begin clrscr;...
расставить по поряку случайные числа Turbo Pascal
Расставить по порядку случайные числа, используя randomize с массивами. всего чисел 6 в промежутке от 1до20 Просьба написать программу полностью!
Turbo Pascal Угадать число, задуманное компьютером
помогите написать программу которая загадывает случайное число от 0 до 1 предлогает воспользоваться с одной попытки
Turbo Pascal Строки Дана строка символов S1...Sn. Удалить из данной строки все группы букв 'a b c d'. https://www.cyberforum.ru/ turbo-pascal/ thread254437.html
Turbo Pascal Составьте программу вычисления элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread254432.html
народ помогите решить задачи вообще не получается....:( 1. Напишите программу, находящую в двухмерном массиве номера строк с наибольшей суммой элементов. 2. Найти наименьший из положительных...
Turbo Pascal Определить принадлежность точки части круга ниже заданной прямой Составить функцию f(x,y) с выходными параметрами логического типа,которая определяет принадлежность точки части круга ниже прямой y=-x+3 радиус 3 с центром в точке (0,3). Воспользовавшись функцией... https://www.cyberforum.ru/ turbo-pascal/ thread254424.html
8 / 8 / 10
Регистрация: 03.03.2011
Сообщений: 75
12.03.2011, 19:58 0

Сформирировать целочисленный миссив А(75) ,элементами которого являются случайные числа

12.03.2011, 19:58. Просмотров 1111. Ответов 1
Метки (Все метки)

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

Решение

Вот: набросал на скорую руку, вроде работает.
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
34
35
36
37
program Lab;
uses wincrt;
const nmax=25;
var x:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=random(26)-5;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
writeln;
mx:=x[1]-x[2];
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if (x[i]-x[j])>mx then
 begin
  mx:=x[i]-x[j];
  imx:=i;
  jmx:=j;
 end;
writeln('два элемента: ',imx,' и ',jmx,' = ',mx:5:1);
readln
end.


Вернуться к обсуждению:
Сформирировать целочисленный миссив А(75) ,элементами которого являются случайные числа
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2011, 19:58
Готовые ответы и решения:

Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа
Даны вещественные числа a и b (a<b). Сформировать матрицу X(10,10) элементами которой являются...

Вывести на экран матрицу размером M*N, элементами которой являются целые случайные числа
вывести на экран матрицу размером M*N, элементами котрой являются целые случайные числа из...

Cформировать массив, элементами которого являются цифры числа N
Дано натуральное число N. Составьте программу формирования массива, элементами которого являются...

Сформировать массив, элементами которого являются цифры числа N
Народ помогите пожалуйста решить контрольную работу..... Она состоит из 7 вопросов...4 я...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.