Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Вычисление сопротивления электрической цепи https://www.cyberforum.ru/ turbo-pascal/ thread986303.html
Вычисление сопротивления электрической цепи, состоящей из двух последовательно соединенных сопротивлений: - величина первого сопротивления, - величина второго сопротивления, - сопротивление цепи. 		Написать программу, которая выводит таблицу значений функции y=|x+2| Turbo Pascal
Написать программу, которая выводит таблицу значений функции y=|x+2|. Диапазон изменения аргумента: от –4 до 4, шаг приращения аргумента: 0,5 .
Turbo Pascal Однонаправленные списки.Написать подпрограмму,которая добавляет в конец списка А1 элементы списка А2 со значением больше за 3 Однонаправленные списки. Дано: 2-а списка .А1-первое поле-отрицательное число .А1-первое поле-положительное число.Написать подпрограмму,которая добавляет в конец списка А1 элементы списка А2 со значением больше за 3. https://www.cyberforum.ru/ turbo-pascal/ thread986280.html Turbo Pascal В одномерном массиве найти самый маленький элемент и заменить им все нулевые элементы в одномерном массиве найти самый маленький элемент и заменить им все нулевые элементы. https://www.cyberforum.ru/ turbo-pascal/ thread986250.html
Суммирование бесконечного ряда Turbo Pascal
1.выполнить суммирование бесконечного ряда до тех пор ,пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Delta=10^-4 ...10^-10 или пока не будет просуммировано заранее заданное число членов бесконечного ряда. 2.сравнить вычисленную сумму членов бесконечного ряда с образцовым значением , полученным в виде константы или вычисленным по формуле.... 		Turbo Pascal Вычисление квадратного корня https://www.cyberforum.ru/ turbo-pascal/ thread986235.html
Всем привет:) Прошу помощи в составлении программы по вычислению квадратного корня из конечного числа.. Сначала ввожу значение Re=.. и Ym=.. Потом значения Re,Ym возвожу в квадрат, далее оба числа складываю и непосредственно извлекаю корень.. Как это в языке Паскаль отобразить? Сначала уравнение на язык перевести потом уже значения Re, Ym вводить или наоборот? Заранее благодарен!
Turbo Pascal Сортировки.Подсчет замен и сравнений Код сортирует в двух вариантах,но не считает количество замен и сравнений.Прошу помощи. const n=96; type mas=array of integer; var X:mas; i:integer; ks1,kz1,ks2,kz2:integer; procedure Vybor(var X:mas; ks1,kz1:integer); var i,j,min,imin:integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread986230.html Turbo Pascal Сортировки.Подсчет замен и сравнений
Код сортирует в двух вариантах,но не считает количество замен и сравнений.Прошу помощи. const n=96; type mas=array of integer; var X:mas; i:integer; ks1,kz1,ks2,kz2:integer; procedure Vybor(var X:mas; ks1,kz1:integer); var i,j,min,imin:integer; begin
Turbo Pascal В массиве все элементы, стоящие после максимального, уменьшить на 1 Прочитал методичку и понял что ничего не понял, прошу помощи! Напишите пожалуйста листинг программы. Сказали должно получатся как в этом примере: из массива А: 3 2 1 5 4 должен получиться массив А: 3 2 1 5 3. https://www.cyberforum.ru/ turbo-pascal/ thread986218.html Turbo Pascal Сортировка массива методом пузырька по возрастанию и убыванию https://www.cyberforum.ru/ turbo-pascal/ thread986217.html
Всем привет, помогите отсортировать одномерный масив методом пузырька. Только мне нужно чтоб парные елеметны, сортировались по возростанию, а не парные по спаданию... 4 5 8 10 1 3 {Было} 8 3 4 5 1 10 {После сортировки} Спасибо!:D Добавлено через 12 часов 25 минут help
Задача.Длинное число Turbo Pascal
Дано натуральное число.Разделите точками цифры этого числа группами по три,начиная справа. Программа получает на вход натуральное число,содержащее не более 100 цифр. Программа должна вывести то же число с точками между некоторыми цифрами этого числа. Не могу написать эту программу,я новичёк в турбо паскале. Помогите написать,пожалуйста. Пример: 22345983 : 22.345.983 		Turbo Pascal Подскажите где я ошибся?! Вот сама задача-Вставить два элемента: первый - после всех элементов, больших данного числа Р, а второй - перед всеми элементами, большими данного числа Р (Р вводить с клавиатуры). Не вставляет почему то 2 элемент который должен быть перед всеми элементами.. найдите пожалуйста ошибку!? uses crt; const nmax=90; var a:array of integer; n,i,j,p,k,k2:integer; begin clrscr; randomize; repeat https://www.cyberforum.ru/ turbo-pascal/ thread986182.html
Супер-модератор
6192 / 2938 / 1300
Регистрация: 04.03.2013
Сообщений: 5,780
Записей в блоге: 1
24.10.2013, 07:04 0

Перемножение массивов через функции - Turbo Pascal - Ответ 5227647

24.10.2013, 07:04. Показов 1961. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Sharkboy как решение

Решение

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

uses crt;
const
  n = 15;
type
  m = array[1..n] of integer;
var
  a, b, c : m;
  i : byte;
 
function mult(z1, z2 : m) : m;
var e : byte;
    t : m;
begin
  for e := 1 to n do
    t[e] := z1[e] * z2[e];
  mult := t
end;
 
begin
  clrscr;
  randomize;
  {заполняем массивы}
  for i := 1 to n do
  begin
    a[i] := random(20) - 10;
    write(a[i]:4)
  end;
  writeln;
  for i := 1 to n do
  begin
    b[i] := random(20) - 10;
    write(b[i]:4)
  end;
  writeln;
  {перемножаем массивы}
  c := mult(a, b);
  {вывод}
  for i := 1 to n do
    write(c[i]:4);
  repeat until keypressed
end.


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

Перемножение матриц через процедуру
Вот рабочая программа, с ее помощью нужно перемножить данные матрицы (C+A)*(A-B). Как только не...

перемножение массивов
Помогите, пожалуйста. Есть следующая задача: заданы массивы: a, b, которые инициализированы...

Перемножение массивов
подскажите ,пожалуйста, как можно умножить первый элемент первого массива на первый элемент второго...

Перемножение массивов
Скажите, как можно написать программу чтобы элементы (1 2 3 4) умножались на отсчеты где их 8?...

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

Непонятное перемножение массивов
Доброго времени суток, господа. Выполняю перемножение вектора-столбца и вектора-строки следующим...

Перемножение двух массивов
помогите с программой пожалуйста, когда перемножается 2 матрицы выводится какой то мусор вместо...

Создание и перемножение массивов
как создать два масива с числами от 1 до 10 и что б они на друг друга множились в третей строке ...

Перемножение 2-х массивов коэфициентов многочлена
Итак, стоит задача перемножить напрямую 2 многочлена - 2 массива коэффициентов при неизвестных...

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