Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Подпрограмма. Вместо совпадающих чисел в строках матрицы записать нули https://www.cyberforum.ru/ pascalabc/ thread1029951.html Есть матрица целых чисел n × n. Вместо совпадающих чисел в строках матрицы записать нули. (Оформить в виде подпрограмм-процедур в программе.)	Pascal ABC Оформить в виде подпрограмм-функций в программах В массиве (а1, а2, ..., А30) получить min (a1a16, a2a17 ..., a15a30).
Pascal ABC пояснение к коду помогите пожалуйста. напишите поянение к коду. var f1, f2 : text; s : string; i : integer; flagEnd : boolean; begin Assign(f1,'input.txt'); Assign(f2,'rezzult.txt'); https://www.cyberforum.ru/ pascalabc/ thread1029930.html	Pascal ABC Вывести и обработать два массива, содержащие соответственно 7 и 10 вещественных компонентов Вывести и обработать два массива, содержащие соответственно 7 и 10 вещественных компонентов. 1)Требуется в каждом массиве найти наибольший и наименьший элементы и напечатать их. 2)Все компоненты каждого массива возвести в квадрат и снова найти наибольший и наименьший элементы Вычисление максимальной и минимальной величин оформить в виде процедуры, глобальные параметры в процедуре не... https://www.cyberforum.ru/ pascalabc/ thread1029928.html
Pascal ABC Преобразование задачи в/по процедуры Как правильно распределить описание параметров в процедурах? uses crt; var x,y,a1x,a2x,a1y,a2y,b1x,b2x,b1y,b2y,c1x,c2x,c1y,c2y,a1,b1,c1,a2,b2,c2:real; s1,s2,p1,p2,n1,n2:real; begin writeln('Ввод координат вершин первого треугольника'); write('x(A1)=');readln(a1x); write('y(A1)=');readln(a1y); write('x(B1)=');readln(b1x); write('y(B1)=');readln(b1y);	Pascal ABC Определить, какое число из данных трех не является ни максимальным и ни минимальным Определить, какое число из данных трех не является ни максимальным и ни минимальным, используя в качаестве подпрограмм процедуры max и min. Добавлено через 13 минут Мне тут не помогут? Добавлено через 4 часа 29 минут Блин народ, гуру паскаля помогите! например среди цифр 1 5 10 какое их этих цифр ни max, ни min и покажите его. Запишите только это в виде процедур. Спасайте я нуб в паскале https://www.cyberforum.ru/ pascalabc/ thread1029868.html
Pascal ABC Подпрограммы должны организовывать ввод чисел, вычисление их суммы и вывод результата. Написать программу, состоящую из трех подпрограмм и основной программы. Подпрограммы должны организовывать ввод чисел, вычисление их суммы и вывод результата. (11 класс) https://www.cyberforum.ru/ pascalabc/ thread1029840.html	Множества, перечисления Pascal ABC Переменной t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false иначе. type месяц=(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); день=1..31; var d1,d2: день; m1,m2: месяц; t: boolean;
Pascal ABC Составьте программу управления танком на экране с помощью клавиш управления курсором Составьте программу управления танком на экране с помощью клавиш управления курсором. Танк должен стрелять при нажатии пробела. Заранее спасибо=) https://www.cyberforum.ru/ pascalabc/ thread1029834.html	Pascal ABC Вычислить два выражения в одной программе https://www.cyberforum.ru/ pascalabc/ thread1029831.html Нужно вычислить два выражения в одной программе. Если не видно: \sum_{k=1}^{5}\frac{{k}^{2}}{{k}^{2}+3k+5} \prod_{i=1}^{4}\frac{{5}^{i}}{{3}^{i}+{2}^{i+2}}
Нужно перевести на язык Pascal Pascal ABC Добрый вечер форумчане! Помогите перевести на язык Pascal, пока еще не изучал C++, буду очень благодарен... struct PRICE { char tovar; char mag; int cena; }; #include <iostream.h>	Pascal ABC Найти количество чисел меньше заданаго program procedura; uses crt; Type mas=array of integer; VAR a, p, v, f :mas; t, sum, k, i :integer; procedure sozdviv(var x:mas; i:integer); begin writeln; for i:=1 to 10 do begin https://www.cyberforum.ru/ pascalabc/ thread1029800.html

Dream_Angel

0 / 0 / 1

Регистрация: 20.04.2014

Сообщений: 2

04.05.2014, 17:44

Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение. - Pascal ABC - Ответ 6125764

04.05.2014, 17:44. Показов 4428. Ответов 1

Метки (Все метки)

Сообщение было отмечено сашка малашка как решение

Решение

Pascal

program Skalyarnoe proizvedenie;
uses crt;
Var a, b: array [1..50] of integer;
n, s, i: integer;
Begin
Writeln ('Введите количество элементов массива a');
Readln (n);
For I:=1 to n do
Begin
Write('a[', i, ']=');
Read (a[i]);
end;
Begin
Writeln ('Введите количество элементов массива b');
Readln (n);
For I:=1 to n do
Begin
Write('b[', i, ']=');
Read (b[i]);
end;
s:=0;
For I:=1 to n do
s:=s+a[i]*b[i];
s:=s;
Writeln;
For I:=1 to n do
write (s);
end;
end.

P.S. Я каждую часть программы выполняю в отдельном цикле.

Вернуться к обсуждению:
Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение. Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.05.2014, 17:44

Готовые ответы и решения:

Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности
Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который...

Ввести двумерный массив произвольной размерности и получить из него два одномерных массива по правилу
2.Ввести двумерный массив произвольной размерности, получить из него два одномерных массива: один...

Паскаль. Л7. з1. Даны два одномерных массива целых чисел

	04.05.2014, 17:44

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.05.2014, 17:44

Помогаю со студенческими работами здесь

Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i].
Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А = B.

Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i].
Помогите решить 1.Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых...

Даны два отсортированных одномерных массива, объединить их в один, тоже отсортированный
Даны два отсортированных одномерных массива, объединить их в один, тоже отсортированный. Помогите...

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

Наверх