Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Линейный программы,консоль ввода и вывода! Задача с формулами в файле doc!! Помогите плиз!!! Очень надо) Заранее огромное спасибо! https://www.cyberforum.ru/ pascal/ thread67478.html Pascal Одномерный массив
сделайте пожалуйста блок-схемы и напишите сам текст программ: Задача №1) В одномерном массиве, состоящем из n вещественных элементов, вычислить: (1) номер минимального элемента массива; (2)сумму элементов массива, расположенных между первым и вторым отрицательными элементами. Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а...
Pascal Разработка алгоритмов и программ с анализом организаци данных https://www.cyberforum.ru/ pascal/ thread67473.html
Помогите, пожалуйста с заданием. Опишите и постройте с помощью двумерного массива Sps линейный однонаправленный список из семи целых чисел и сделайте этот список пустым. После этого добавьте в список шесть элементов 1,3,5,7,9,11, затем найдите указатель на элемент 9 и удалите этот элемент. В конце работы со списком вставьте после элемента со значением 11 элемент со значением 13, предварительно... 		Pascal Сумма ряда числа https://www.cyberforum.ru/ pascal/ thread67471.html
Здравствуйте програмисты! помогите написать задачу на паскале, если честно то я впервый раз на него смотрю, и даже не знаю как это работает! Вычислить произведение ряда P=1*3*5*7*...*(2n-1)
Помагите с Решением лабораторных работ В Паскале Pascal
Работа с индексированными переменными 1)Дана квадратная матрица n-го порядка (n – целое число). Найти матрицу, обратную ей, или установить, что такой матрицы не существует. Работа с символьными и строковыми переменными 2)Даны символы S1,… , Sn. Верно ли, что хотя бы один символ входит в S1,… , Sn более одного раза и при этом так, что между любыми его двумя вхождениями встречается буква A... 		Pascal Random Здравствуйте програмисты! помогите написать задачу на паскале, если честно то я впервый раз на него смотрю, и даже не знаю как это работает! Знаю что там random есть эт точно!!! сгенерировать m случайных чисел из диапазона от 10 до 20 , вывести числа в столбик, а рядом с каждым вывести квадрат данного числа и его квадратный корень. https://www.cyberforum.ru/ pascal/ thread67462.html
Pascal Обработка строки Решите пожалуйста следующую задачу:"Дана строка S, изображающая вещественное число в формате с плавающей точкой, и целое число N (> 0). Вывести набор символов, изображающих первые N цифр дробной части этого вещественного числа (без округления)". Заранее спасибо https://www.cyberforum.ru/ pascal/ thread67458.html Pascal График по точкам на Pascal.
Люди, подскажите как по проще постоить график по точкам? Не надо ничего глобального, просто есть массив значений Х, массив значений У. Просто оси и простенькая ломанная(ДПСК естестно) Графики ф-ций не выкладнывайте! Я курсовую по нелинейным трансцендентным заканчиваю и так уже всего настроил), нужно просто вывести доп. инфу по итерациям с разными погрешностями и без фанатизма) Спасибо всем кто...
Pascal Ввод без перехода на следующую строку Ещё раз здравствуйте! Можно ли в pascal-е организовать ввод значений нескольких операндов без перехода на след. строку (не пробелами). После нажатия на клавишу "Enter" хотелось бы организовать ввод на той же строке Пример: For i:=1 to n do begin Write(i,': '); Read(a); Write(' '); end; https://www.cyberforum.ru/ pascal/ thread67450.html Pascal График по точкам на Pascal. https://www.cyberforum.ru/ pascal/ thread67447.html
Люди, подскажите как по проще постоить график по точкам? Не надо ничего глобального, просто есть массив значений Х, массив значений У. Просто оси и простенькая ломанная.
Pascal Повторения
Здравия желаю всем! Подскажите пожалуйста можно ли как-то определённую группу операторов объединить в один файл не создавая модулей, чтобы потом использовать в других программах? Не хочу постоянно из одной программы перекидывать в другую. 		Pascal Сумма ряда Помогите с задачами: Задача №1 Даны массив X1...X20 и A. 20 Определить d(i) = сумма (X(i) - A) i=1 --------------- X(i)^2 https://www.cyberforum.ru/ pascal/ thread67444.html
0 / 0 / 2
Регистрация: 12.11.2009
Сообщений: 24
28.11.2009, 13:40  [ТС] 0

Procedure - Pascal - Ответ 382531

28.11.2009, 13:40. Показов 736. Ответов 4
Метки (Все метки)

Ответ

Цитата Сообщение от o-user Посмотреть сообщение
А зачем тут сортировка? Что сортировать?
Сначала я думал, что с её помощью.

Добавлено через 3 минуты
Что-то пытался сам. Правда часть программы не моя нашёл похожее чем-то проверьте хоть правильно, что получилось?
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
38
39
40
41
42
43
44
45
46
47

Uses crt;
Type ta=array[1..10,1..10] of integer;
     tb=array[1..10] of integer;
     tc=array[1..10] of boolean;
Var a:ta;
    b:tb;
    c:tc;
    max,i,j:integer;
Procedure MaxEl(b1:tb; c1:tc);
BEGIN
  max:=b1[1];
  for j:=2 to 10 do
  if b1[j]>max then max:=b1[j];
  for j:=1 to 10 do
  begin
  if b1[j]=max then c1[j]:=true;
{  writeln(b1[j],' ',c1[j]);}
  end;
END;
Begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  begin
  a[i,j]:=random(10)+1;
  write(a[i,j],' ');
  end;
 writeln;
 end;
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
  begin
  b[j]:=0;
  c[j]:=false;
  end;
  for j:=1 to 10 do
  b[a[i,j]]:=b[a[i,j]]+1;
 write('наибольшее число раз в строке ',i,' повторяется число ',a[i,j],': ');
 MaxEl(b,c);
  for j:=1 to 10 do
  if c[j]=true then write(j,' ');
 writeln;
 end;
End.


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

Procedure
Заданы три массива: A(1)...A(11) B(1)...B(11) C(1)...C(11) Определить Y=(SA-SC)/SB и Z=...

Procedure
Здраствуйте! Осваиваю Pascal и вот не магу процеДУРУ сделать!! заранее очень БЛАГОДАРЕН, т.к....

Ошибка с procedure
Здравствуйте, как можно исправить ошибку в procedure Print?. Ошибка: Тип параметра или...

Подпрограммы (procedure)
Дан массив {Xij}, i=1..L, j=1..L. L - целое, не больше 20. Записать положительные элементы главной...

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

3адача Procedure
Решите, пожалуйста, эту задачу. Описать процедуру RectPS(x1, y1, x2, y2, P, S), вычисляющую...

добавила procedure и прога перестала работать
Помогите пожалуйста не могу разобраться почему когда я добавила procedure...

Определить площадь области исп. procedure
Написать программу, определяющую площадь области, ограниченной описанным вокруг окружности...

Поиск в ширину: Wrong number of procedure parameters
Помогите исправить програму поиска в ширину. visited: MassivBool; {матрица смежности графа}...

задача про матрицу с использованием procedure и function
помогите решить пожалуйста задачу,очень надо)) Найти сумму наибольших элементов строк матрицы А...

Прошу вас написать программу на Паскале. Через function или procedure
Даны две последовательности:С1,С2...,С10 ;Р1,P2...,P10.Если наибольший элемент первой...

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