Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Написать программу со списками и текстовыми файлами Задача (алфавитно-частотный словарь). В файле записан текст. Нужно записать в другой файл в столбик все слова, встречающиеся в тексте, в алфавитном порядке, и количество повторений для каждого слова. Добавлено через 3 часа 26 минут Задача (алфавитно-частотный словарь). В файле записан текст. Нужно записать в другой файл в столбик все слова, встречающиеся в тексте, в алфавитном порядке, и... https://www.cyberforum.ru/ pascal/ thread962964.html	Pascal К какому виду алгоритмов можно отнести алгоритм, представленный на блок-схеме? К какому виду алгоритмов можно отнести алгоритм, представленный на блок-схеме?
Pascal К какому виду циклических конструкций можно отнести фрагмент алгоритма, представленный на схеме? https://www.cyberforum.ru/ pascal/ thread962947.html К какому виду циклических конструкций можно отнести фрагмент алгоритма, представленный на схеме?	Pascal К какому виду алгоритмических конструкций можно отнести фрагмент алгоритма, представленый на схеме? https://www.cyberforum.ru/ pascal/ thread962945.html К какому виду алгоритмических конструкций можно отнести фрагмент алгоритма, представленый на схеме?
Pascal К какому виду алгоритмов можно отнести алгоритм, представленный на схеме? К какому виду алгоритмов можно отнести алгоритм, представленный на схеме?	Pascal дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных элементов массива https://www.cyberforum.ru/ pascal/ thread962909.html дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных элементов массива
Pascal Пересечение множеств! Задан некоторые набор товаров. Определить для каждого из товаров, какие из них имеются хотя бы в одном магазине, а какие не имеются ни в одном магазине. https://www.cyberforum.ru/ pascal/ thread962626.html	Замена подстроки! Pascal Привет, всем откликнувшимся, не могли бы вы помочь с решением энтих заданий: Дана строка символов (текст). Заменить в ней все слова "you" на "yours". Результат вывести на экран. Спасибо.
Pascal Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соответственно под-множества М1 чисел https://www.cyberforum.ru/ pascal/ thread962539.html Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1..100. Из данных множеств выделить соответственно под-множества М1 чисел, делящихся на 3 без остатка, и N1 чисел, делящихся на 2 без остатка. На печать вывести мощность и значения элементов множества MN=M1 N1.	Pascal вычислить абсолютную величину отклонения точки от прямой Плз помогите кто чем может, с паскалем ранее не работал, начинаю учиться! По заданным коэффициентам уравнения прямой линии на плоскости (Ax + By + C = 0) и координатам некоторой точки P(X0, Y0) должна вычисляться абсолютная величина отклонения точки от прямой. https://www.cyberforum.ru/ pascal/ thread962430.html
Составить программу, определяющую, сколько балов набрал победитель Pascal Привет, всем откликнувшимся, не могли бы вы помочь с решением энтих заданий: Задание 1. К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал m1 баллов, во втором – n1, в третьем – p1. Петров соответственно m2, n2, p2; Сидоров – m3, n3, p3. Составить программу,...	Pascal Информатика задачка Даны три натуральных числа,являющиеся длинами сторон треугольника.Числа ввести с клавиатуры.Опредилить является ли треугольник прямоугольным,если эти отрезки позволяют его построить. https://www.cyberforum.ru/ pascal/ thread962274.html

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

26.09.2013, 17:12

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai - Pascal - Ответ 5103270

26.09.2013, 17:12. Показов 4814. Ответов 1

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

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

Решение

Pascal

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массивов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
writeln('Исходный массив B:');
for i:=1 to n do
 begin
  b[i]:=-25+random(50);
  write(b[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
  x:=a[i];
  a[i]:=b[i];
  b[i]:=-x
 end;
writeln('Преобразованный массив A:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Преобразованный массив B:');
for i:=1 to n do
write(b[i]:4);
readln
end.

Вернуться к обсуждению:
Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.09.2013, 17:12

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

Получить новые массивы a и b, элементы которых вычисляются по правилу
ребят,помогите с задачей "Даны массивы а и b, состоящие из n-элементов каждый. Получить новые...

Получить новые массивы a и b, элементы которых вычисляются по правилу
НАрод,помогите с задачей "Даны массивы а и b, состоящие из n-элементов каждый. Получить новые...

Получите массивы a и b, элементы которых вычисляются по определеному правилу
Даны массивы a и b, состоящие из n элементов каждый. Получите новые массивы a и b, элементы которых...

Сформируйте новые последовательности, элементы которых вычисляются по правилу
{Даны две последовательности чисел a1, a2, ..., an и b1, b2, ..., bn. Сформируйте новые...

	26.09.2013, 17:12

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.09.2013, 17:12

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

Получить массивы X3 (NxN), X4 (NxN), элементы которых вычисляются по формулам
Помогите, пожайлуйста, с задачей. 15. Ввести двумерные массивы X1(NxN) ,X2(NxN) . Получить...

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

Построить новые массивы по правилу: xi=min{ai, bi} и yj=max{cj, dj}
Заданы четыре массива {ai}, {bi}, {cj}, {dj}; i=1,2,…,n; j=1,2,…,m. Построить новые массивы по...

Сформируйте последовательности, элементы которых вычисляются по следующему правилу: ai=max(ai,bi), bi=min(ai,bi), i=1,2,...,n.
Даны две последовательности чисел а1,а2,...,аn и b1,b2,...bn. Сформируйте новые...

Построить новые массивы по правилу мин и мах. В каждом новом массиве вычислить сумму элементов
Всем доброго времени суток. Помогите решить, кому не сложно. Так же, если можно блок схему...

Даны целые массивы А[5], В[5] и значения R и F. Каждый массив преобразовать по правилу:
Даны целые массивы А, В и значения R и F. Каждый массив преобразовать по правилу: если...

Наверх