Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Численное решение нелинейных алгебраических уравнений Мне нужна помощь по составлению программы по уравнению.Знаю я уже не первый кто просит именно по этой теме, но я буду вам благодарен за помощь. Собственно дано уравнение x=exp(-x) и записать его на языке Pascal методом половинного деления. Как указано в задании требуется метод оформить в виде подпрограммы и в программе подсчитать количество шагов (итераций) требуемых для нахождения решения... https://www.cyberforum.ru/ pascalabc/ thread1222032.html Pascal ABC Сформировать новый массив, на четных местах которого будут элементы с нечетными индексами из первого массива
Помогите с решением пожалуйста, у самого что-то ничего не получается. Требуется решить следующую задачу: Ввести два целочисленных массива по 10 элементов в каждом. Сформировать новый массив, на четных местах которого будут элементы с нечетными индексами из первого массива, а на нечетных с четными индексами из второго.
Pascal ABC Преобразовать время к формату чч:мм, применив правила округления до целого числа минут https://www.cyberforum.ru/ pascalabc/ thread1221997.html
В заданном формате чч-целое число из диапазона от 0 до 24,мм и сс - целое число от 0 до 60(если какая-то часть фрагмента нарушена,то данная подстрока в качестве даты не рассматривается).Преобразовать каждое время к формату чч:мм,применив правила округления до целого числа минут. 		Pascal ABC В двумерном массиве удалить все столбцы,в которых первый элемент больше последнего В двумерном массиве,элементы которого-целые числа,произвести след.действия: удалить все столбцы,в которых первый элемент больше последнего https://www.cyberforum.ru/ pascalabc/ thread1221984.html
В одномерном массиве вставить новый элемент после всех элементов, кратных своему номеру Pascal ABC
В одномерном массиве, элементы которого-целые числа, произвести следующ. действия: вставить новый элемент после всех элементов, кратных своему номеру 		Pascal ABC Для каждой строки матрицы найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив Дан массив размером n*n, элементы которого-целые числа. Для каждой строки найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив. https://www.cyberforum.ru/ pascalabc/ thread1221982.html
Pascal ABC Вычислить факториал с заданной точностью https://www.cyberforum.ru/ pascalabc/ thread1221975.html
Дано выражение \sum_{i=1}^{6}{i}^{0.4}\sum_{j=1}^{\infty}\frac{{10}^{0.1ij}}{j!-{j}^{2}+5.2} Вычислить с точностью до 0.0001 Застрял на последней стадии с вычислением факториала. Что не правильно. Поясните. const Eps = 0.0001; function f_j(n:integer):real; var i: integer; 		Pascal ABC В матрице переставиь 2 средних строки,если кол-во строк четное, первую со средней, если кол-во строк нечетное
Дан массив размером n*n, элементы которого-целые числа. Поменять местами 2 средних строки,если кол-во строк четное,и первую со средней ,если кол-во строк нечетное
Pascal ABC В последовательности из действительных чисел найти номер последнего минимального элемента Дана последовательность из n действительных чисел. Найти номер последнего минимального элемента. https://www.cyberforum.ru/ pascalabc/ thread1221972.html Pascal ABC Разработать программу, которая для заданной строки s подсчитывает общее число вхождений x и y https://www.cyberforum.ru/ pascalabc/ thread1221963.html
Пожалуйста)
Ветвящиеся алгоритмы. Попадание точки в ОДЗ Pascal ABC
Дан рисунок. Составить программу для попадания точки в одз. Написал, но всегда пишет, что не попадает. Сам ошибку не могу найти. Помогите плз. var x, y: real; begin write('Введите x: ');readln(x); write('Введите y: ');readln(y); if (0<=y) and(-0.25*x+5<=y) and (-1.333*x+13.667<=y) and (-2*x+17<=y) and(-x+5<=y) and (3*x-18<=y) then writeln ('Попадает') else writeln ('Не... 		Pascal ABC Бинарное дерево и его вывод на экран (Tree Node Pointer Draw) Бинарное дерево и его вывод на экран (Tree Node Pointer Draw) Прошу помощи в подсказке, для решения. В программе требуется изобразить визуально случайное бинарное дерево. Задача у меня не сложная, решал самостоятельно. Но вот столкнулся, с тем, что просто запутался видимо. Понимаю, что не хватает какого то цикла, но не могу понять где и какого точно. Помогите, кто чем может, пожалуйста. ... https://www.cyberforum.ru/ pascalabc/ thread1221852.html
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
04.07.2014, 03:20 0

В матрице чисел найти все элементы, равные числу, введенному с клавиатуры - Pascal ABC - Ответ 6394504

04.07.2014, 03:20. Показов 1660. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Salaga как решение

Решение

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

var
  A: array[1..20, 1..20] of integer;
  X: integer;
  i, j, count, n, m: byte;
  
begin
  repeat
    write('n = ');
    readln(n)
  until n <= 20;
  repeat
    write('m = ');
    readln(m)
  until m <= 20;
  write('Введите число: ');
  readln(X);
  writeln;
  count := 0;
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:5)
    end;
    writeln
  end;
  writeln;
  writeln('Результат:');
  for i := 1 to n do
    for j := 1 to m do begin
      if a[i, j] = X then begin
        writeln('a[', i, ', ', j, '] = ', a[i, j]);
        inc(count)
      end
    end;
  if count > 0 then writeln('Количество элементов: ', count)
  else writeln('Таких элементов нет');
  writeln
end.


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

В матрице найти все элементы, равные числу, введенному с клавиатуры
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры
Выручайте 2. Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные...

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

Найти в матрице все элементы, равные числу, введенному с клавиатуры
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

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

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

Сжать массив, удаляя из него элементы равные числу, введенному с клавиатуры
Помогите пж если не сложно! Написать и протестировать функцию compress(), которая сжимает массив,...

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

Получить новый массив, удалив из исходного элементы, равные введённому пользователю числу k
Получить новый массив, удалив из исходного элементы, равные введённому пользователю числу k Вот,...

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