Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
toxa08116
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 57
1

С помощью функции умножить на 2 каждый элемент массива и вывести на экран

14.05.2012, 14:11. Просмотров 1092. Ответов 4
Метки нет (Все метки)

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

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

Умножить каждый элемент матрицы на 3 и вывести результат на экран
Вот такая воот задачка. Нужно ввести с клавиатуры целочисленные элементы...

Все элементы массива умножить на последний элемент и вывести новый массив на экран
Помогите решить задачу. Составить программу на языке Turbo Pascal и блок схему...

Сосчитать и вывести на экран, сколько каждый элемент массива содержит целые числа.
1.Сделать текстовой массив с 14 элементов ( длина с 3 до 15 символов), которые...

Умножить каждый элемент матрицы на максимальный элемент
Доброе время суток. помогите. Дана матрица 4х5. Умножить каждый элемент матрицы...

Сожмите заданный массив, выбросив каждый второй элемент массива. Вывести на экран заданный и новый массив
Сожмите заданный массив, выбросив каждый второй элемент массива. Вывести на...

4
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,759
Записей в блоге: 1
14.05.2012, 15:48 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Const m=10;
Type mas=array[1..m] of integer;
Var A:mas;
    i:integer;
Procedure Init_mas(Var A:mas);
Var i:integer;
Begin
    For i:=1 to m do 
    A[i]:=random(11);
End;
Procedure Print_mas(A:mas);
Var i:integer;
Begin
    For i:=1 to m do 
    write(A[i]:3);
End;
Begin
    Randomize;
    Init_mas(A);Print_mas(A);
    For i:=1 to m do 
     A[i]:=A[i]*2;
    writeln;writeln('Полученный массив: ');
    Print_mas(A);
    readln;
End.
1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
14.05.2012, 16:07 3
Цитата Сообщение от toxa08116 Посмотреть сообщение
Добавлено через 2 часа 12 минут
Вам так сложно написать код?
а на вас здесь все работают, что не дай бог больше двух часов испытывать ваше терпение?!!
0
toxa08116
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 57
15.05.2012, 17:55  [ТС] 4
Спасибо канечно,но как проделать это через функцию а не через процедуру?
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
15.05.2012, 18:06 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

так, что ли?
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=20;
var a: array [1..n] of integer; i: byte;
 
function On2 (z: integer): integer;
begin
On2:=z*2;
end;
begin
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:4);
    a[i]:=On2(a[i]);
    end;
writeln;
writeln('Итоговый массив');
for i:=1 to n do
    write(a[i]:4);
end.
1
15.05.2012, 18:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 18:06

Умножить на 2 каждый четный элемент матрицы А
Помогите решить задачу на Паскале. Нужно каждый четный элемент матрицы удвоить

Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки
Дан одномерный массив E, состоящий из 10 вещественных чисел. Ввести все...

Умножить каждый элемент первой строки матрицы на a[1; 1]
Дана таблица a умножить каждый элемент первой строки на a, а каждый элемент...


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

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

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