Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Как проверить принадлежит ли число массиву? //array; Program test2; Uses crt; var b:integer; a: array of integer; begin Writeln('Vvedite 4iclo: '); Readln(b); readln; end. https://www.cyberforum.ru/ turbo-pascal/ thread960660.html	По углам определить вид треугольника Turbo Pascal Дано 3 угла треугольника a,b,c. Нужно по углам определить вид этого треугольника И дайте ссылку на Какуйто литературу чтобы начинать програмировать с 0 и что бы всё было ясно и понятно
Turbo Pascal TP на win 8 64bit Срочно нужна ссылка TP под восьмёрку, на 64, я так понимаю, полная несовместимость. ДосБокс вообще медным тазом всё накрывает, нужна помощь) https://www.cyberforum.ru/ turbo-pascal/ thread960630.html	Turbo Pascal Умножение двухзначного числа на 11 https://www.cyberforum.ru/ turbo-pascal/ thread960593.html умножение любого двухзначного числа на 11.
Turbo Pascal Вычислить значение выражения Задание B3 Очень надо	Turbo Pascal Программа про столетия https://www.cyberforum.ru/ turbo-pascal/ thread960591.html Напишите процедуру(функцию) для определения годов столетия (1900-2000),которые начинаются и заканчиваются в воскресение. Напишите,пожалуйста,программу полностью.
Turbo Pascal разработать программу наглядной демонстрации поиска экстремума функции методом сканирования. Программа должна решать след задачи: 1) выбор функции (3- https://www.cyberforum.ru/ turbo-pascal/ thread960521.html разработать программу наглядной демонстрации поиска экстремума функции методом сканирования. Программа должна решать след задачи: 1) выбор функции (3-4 функции) 2) просмотр графика функции 3) определение начального приближения 4) демонстрация метода	Turbo Pascal Книжного магазина - Расчет за книгу Здравствуйте. помогите, пожалуйста составить программу для книжного магазина: 1.Просит ввести цену книги 2.Просит ввести сумму, которую заплатил покупатель 3.Высчитывает выдаваемую сумму, если такая есть. 4. Если сумма правильная, то выдает "Спасибо". 5.Если сумму меньше, тогда выдаёт сообщение о запросе недостающих денег.
Turbo Pascal Выведите через пробел n чисел — числа ai в неубывающем порядке https://www.cyberforum.ru/ turbo-pascal/ thread960435.html Помогите пожалуйста... Формат входных данных В первой строке входного файла задано целое число n (1 ≤ n ≤ 5 000). Во второй строке заданы через пробел n целых чисел a1, a2, : : :, an (1 ≤ ai ≤109). Формат выходных данных В первой строке выходного файла выведите через про- бел n чисел—числа ai в неубывающем порядке. Примеры	Turbo Pascal Изменить скорость движения Изменить скорость движения. Если окружность движется не быстро, увеличить скорость (x:=x+2), если слишком быстро – уменьшите процедурой Delay. https://www.cyberforum.ru/ turbo-pascal/ thread960266.html
Нарисовать снеговик Turbo Pascal нарисовать снеговика, он должен быть точно по описанию: сам снеговик из 3 шаров, треугольный нос (треугольник смотрящий влево), руки в виде прямоугольника длинного, круглые глаза, рот вот так должен выглядеть "________" в виде линии. Шапка в виде прямоугольника больше похожего на квадрат. И посох на правой руке (просто линия вниз). сверху надпись что это снеговик. Губы должны быть красными,...	Turbo Pascal отсортировать двумя способами https://www.cyberforum.ru/ turbo-pascal/ thread960253.html Помогите отсортировать одномерный массив. методом простой перестановкой и простым выбором. вот код который нужно отсортировать: uses crt; var mas:array of integer; i,b:integer; begin clrscr; randomize; for i:=1 to 20 do begin

Zenit1818

0 / 0 / 1

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

Сообщений: 62

Измените знаки всех элементов массива на противоположные - Turbo Pascal - Ответ 5090414

23.09.2013, 19:27. Показов 1016. Ответов 2

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

Author24 — интернет-сервис помощи студентам

Собственно вот сама задача: Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.
Помогите доделать,у меня с - на +меняет а наоборот почему то нет..в чём дело не подскажите..
Вот что у меня получилось,исправьте пожалуйста..
Код Паскаль:

Pascal

program Zamena;
const
n=20;
type
Tarray=array[1..n] of integer;
var i:integer;
a:Tarray;
begin
writeln(' массив противоположных чисел');
writeln(' заполнение массива ');
randomize;
for i:=1 to n do begin
a [i] :=random(10+20)-20;
write(a[i]:3, ' ' );
end;
for i:=1 to n do
if a[i]<0 then
a[i]:=-1*a[i];
writeln('новый массив*');
for i:=1 to n do
write(a[i]:3, ' ' );
readln;
end.

Поправьте меня пожалуйста..

Вернуться к обсуждению:
Измените знаки всех элементов массива на противоположные Turbo Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.09.2013, 19:27

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

Одномерный массив. Измените знаки всех нечётных элементов массива
Измените знаки всех нечётных элементов массива, состоящего из L чисел. Решите пожалуйста.

Заменить знаки всех элементов массива на противоположные, если нету ни одной пары одинаковых элементов
Помогите пожалуйста с программой. Можно как в паскале так и в делфи. Дано массив X розмерностью n...

Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные
5) Дан одномерный массив чисел.Измените знаки всех его элементов на противоположные.

Измените все элементы этого массива на противоположные по знаку
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью...

	23.09.2013, 19:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.09.2013, 19:27

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

Измените знаки всех элементов массива на противоположные
Задан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

Измените знаки всех элементов массива на противоположные
Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

Поменять знаки элементов массива на противоположные
Одномерные массивы, заполнение и обработка элементов массива (Составить программу в Pasclal...

Поменять на противоположные знаки тех элементов массива, которые встречаются ровно 1 раз
поменять на противоположные знаки тех эл-в массива,которые встречаются ровно 1раз

Наверх