Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/12: Рейтинг темы: голосов - 12, средняя оценка - 4.83
anitamorgoch
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 3
#1

Заменить все отрицательные числа их модулями, результат вывести на экран

26.04.2013, 22:31. Просмотров 2124. Ответов 5
Метки нет (Все метки)

1) написать программу для решения задачи дано n чисел как заменить все отрицательные числа их модулями
результат вывести на экран


2)написать программу какая бы присваивала переменной а значения наибольшего из пяти введенных чисел и выводила их на экран помогите пожалуйста

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2013, 22:31
Ответы с готовыми решениями:

Заменить все отрицательные значения равными по модулю положительными и вывести результат на экран
Здравствуйте! Помогите пожалуйста решить задачу! Заранее благодарен! ...

Заменить все отрицательные числа их модулями
Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все...

Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел
1)Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все...

В матрице все отрицательные эл. главной диагонали, заменить их модулями
В матрице все отрицательные эл. главной диагонали, заменить их модулями....

Просмотреть файл, найти в нем все отрицательные числа и вывести их на экран
Создать текстовый файл. Записать в него элементы массива случайных чисел....

5
ildwine
Супер-модератор
2980 / 1855 / 1224
Регистрация: 04.03.2013
Сообщений: 4,564
Записей в блоге: 1
26.04.2013, 22:51 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses CRT;
const n = 3; 
var z,i : Integer;
arr : array [1..n] of Integer;
begin 
   clrscr;
   {Ввод данных}
   for i:=1 to n do
   begin
      writeln('Введите  ', i, '-число');
      readln(arr[i])
    end;
   {Вычисление того что требуется}
   for i:=1 to n do
      if arr[i]<0 then arr[i] :=-arr[i];
 
   {Вывод}
   for i := 1 to n do
     writeln(arr[i]:6);
   repeat until keypressed
end.
Добавлено через 1 минуту
2) некогда так бы написал, может быть завтра... (но не обещаю)
1
anitamorgoch
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 3
26.04.2013, 22:57  [ТС] #3
спасибо большое у меня завтра экзамен и очень нужно)
0
ildwine
Супер-модератор
2980 / 1855 / 1224
Регистрация: 04.03.2013
Сообщений: 4,564
Записей в блоге: 1
26.04.2013, 23:01 #4
Сожалею, что не помог во втором вопросе, просто нет времени... Прошу извинить=)
0
anitamorgoch
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 3
26.04.2013, 23:03  [ТС] #5
спасибо)))
0
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
26.04.2013, 23:30 #6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  a,i,x: Integer;
BEGIN
a:=-Maxint;
Writeln('Введите 5 чисел: ');
For i:=1 to 5 do
begin
  Readln(x);
  If x>a Then
  a:=x;
end;
Writeln('a=',a);
Readln
END.
0
26.04.2013, 23:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 23:30

Заменить отрицательные элементы одномерного массива их модулями
Составить программу, заменяющую отрицательные элементы одномерного массива их...

Заменить отрицательные элементы линейного массива их модулями
Заменить отрицательные элементы линейного массива их модулями, не пользуясь...

Заменить отрицательные элементы двумерного массива их модулями
Прошу помочь с задачей! Дана матрица A: \begin{Vmatrix}2.0&amp; -2.1&amp; 6.3&amp;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru