Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Найти среднее арифметическое значений элементов, стоящих на главной диагонали двумерного массива, размера 4х4, заполненного случайными числами. https://www.cyberforum.ru/ turbo-pascal/ thread82519.html
Напишите пожалуйста решение!СПАСИБО! Найти среднее арифметическое значений элементов, стоящих на главной диагонали двумерного массива, размера 4х4, заполненного случайными числами.
По заданой десятичной цифре вывести заданый соответственный числитель Turbo Pascal
По заданой десятичной цифре вывести заданый соответственный числитель.
Turbo Pascal На побочной диагонали разместить суммы элементов, которые лежат на той же строке и столбце. https://www.cyberforum.ru/ turbo-pascal/ thread82481.html
Помогите пожалуйста решить!СПАСИБО! На побочной диагонали разместить суммы элементов, которые лежат на той же строке и столбце. Розбить матрицу на квадраты размером 3х3. В центре каждого квадрата поместить сумму остальных элементов квадрата.
Turbo Pascal Заменить каждый отрицательный элемент в одномерном массиве, предшествующим ему положительным элементом Напишите пожалуйста решение!СПАСИБО! Заменить каждый отрицательный элемент в одномерном массиве, предшествующим ему положительным элементом. Если предшествующего положительного элемента нет, то заменить отрицательный элемент нулем. https://www.cyberforum.ru/ turbo-pascal/ thread82478.html
Напишите пожалуйста программу, считающую число слов, заканчивающихся и начинающихся одной и той же буквой, в строке, введенной пользователем. Turbo Pascal
Напишите пожалуйста программу, считающую число слов, заканчивающихся и начинающихся одной и той же буквой, в строке, введенной пользователем. СПАСИБО!
Turbo Pascal Заменить каждую букву «а» предшествующем символом. Если буква «а» первая, то заменить ее на последнюю. Напишите пожалуйста решение!СПАСИБО! Заменить каждую букву «а» предшествующем символом. Если буква «а» первая, то заменить ее на последнюю. https://www.cyberforum.ru/ turbo-pascal/ thread82476.html
Turbo Pascal Из введенной пользователем строки сформировать новую строку, состоящую из гласных букв введенной строки. https://www.cyberforum.ru/ turbo-pascal/ thread82475.html
Напишите пожалуйста решение!СПАСИБО! Из введенной пользователем строки сформировать новую строку, состоящую из гласных букв введенной строки.
Построить график функции Turbo Pascal
Построить график функции y=a(x+c) . На экране отобразить и подписать оси координат x, y.
Turbo Pascal Написать тест Разработайте программу тестирования по одному из разделов курса «Программирование на языке высокого уровня». в которой выбор правильного ответа осуществляется при помощи переключателя. За каждый правильный ответ начисляется один балл. В конце теста выводятся его результаты. Необходимо предусмотреть тренировочный режим работы, когда возможен вывод ответов на представленные вопросы. Доступ к... https://www.cyberforum.ru/ turbo-pascal/ thread82422.html Turbo Pascal Составьте программу, которая описывает таблицу химических элементов... https://www.cyberforum.ru/ turbo-pascal/ thread82421.html
Составьте программу, которая описывает таблицу химических элементов, отображая следующую информацию: название, символическое обозначение, массу атома, заряд атомного ядра, перечень основных химических свойств. Программа должна выполнять вывод данных о химическом элементе по указанному символическому обозначению, находить элемент с самой большой массой и с самым маленьким зарядом ядра.
Записи, как должен выглядеть файл? Turbo Pascal
Имеется программа Подскажите, как примерно должен выглядить файл f1.dat, то есть тот, из которого мы берем информацию о морях. program pr1; uses crt; type t=record nazvanie:string; continent:string; raspolojenie:string; svet:string;
Turbo Pascal Создайте программу ведения базы данных личной видеотеки https://www.cyberforum.ru/ turbo-pascal/ thread82395.html
Создайте программу ведения базы данных личной видеотеки. Программа должна обеспечивать ввод и корректировку информации о новых дисках (своих и взятых на время у друзей), а также выдавать информацию по запросам: • имеется ли в наличии такой-то диск и если нет, то кому он отдан; • имеются ли диски, взятые у друзей; • выдать список дисков с видеофильмами заданного жанра.
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
04.01.2010, 20:14 0

Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза. - Turbo Pascal - Ответ 457853

04.01.2010, 20:14. Показов 1222. Ответов 3
Метки (Все метки)

Ответ

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
26
27
28
uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,temp:integer;
begin
  clrscr;
  {задаем выводим считаем}
  writeln('Исходный массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  {умножаем}
  for i:=1 to n do
    a[i]:=a[i]*2;
  {выводим массив}
  writeln('Полученный массив:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.


Вернуться к обсуждению:
Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза. Turbo Pascal
1
Заказать работу у эксперта
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.01.2010, 20:14
Готовые ответы и решения:

Преобразовать массив, увеличив каждый его элемент на исходное значение элемента AK.
Array65. Дан массив A размера N и целое число K (1 <= K <= N). Преобразовать массив, увеличив...

Преобразовать массив, увеличив каждый его элемент на исходное значение элемента Ak
2. Дан массив A размера N и целое число K (1<=K<=N). Преобразовать массив, увеличив каждый его...

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

Преобразовать массив, увеличив каждый его элемент на исходное значение элемента AK
Дан массив A размера N и целое число K (1 ≤ K ≤ N). Преобразовать массив, увеличив каждый его...

3
04.01.2010, 20:14
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.01.2010, 20:14
Помогаю со студенческими работами здесь

Преобразовать одномерный массив, увеличив каждую его серию на 1 элемент
Подскажите,пожалуйста, как написать эту программу. Дан целочисленный массив размера N. Назовем...

Вывести на печать все элементы целочисленного массива, увеличив каждый в 2 раза
3.Дан массив A, содержащий 10 целых чисел. Элементы массива вводить с клавиатуры. Вывести на печать...

Даны четыре двумерных массива A, B, C, D, преобразовать каждый из них в одномерный массив
Даны четыре двумерных массива A, B, C, D, преобразовать каждый из них в одномерный массив. Массивы...

Массив: Увеличить каждый элемент массива в 3 раза и поменять знак на противоположный
Сформируйте массив L(I,J) с помощью датчика случайных чисел. Увеличить каждый элемент массива в 3...

Дан целочисленный массив размера N. Преобразовать массив, увеличив каждую его серию на один элемент
Помогите преобразовать код из языка С# в С++. Занимался разбором задачи на языке С++. Вот...

Дан целочисленный массив размером N. Преобразовать массив, увеличив длину каждой серии на один элемент
#include "stdafx.h" #include <iostream> using namespace std; int main() { int n; int k=0;...

0
Новые блоги и статьи
Аутентификация на сайте с помощью формы
bytestream 21.01.2025
В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .
Как получить индекс в цикле for в Python
bytestream 21.01.2025
При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .
Как определить адрес, из которого локальный репозиторий Git был клонирован
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .
Какая разница между операторами == и === в сравнениях в JavaScript
bytestream 21.01.2025
В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .
Из чего и как собрать свой домашний кинотеатр
bt_guru 21.01.2025
Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .
Ошибки стиральных машин
bt_guru 21.01.2025
Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .
Копирование (маппинг) объектов в JavaScript
bytestream 21.01.2025
В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .
Как работать с Apache Kafka в C# .NET
bytestream 21.01.2025
Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .
Как использовать RabbitMQ в C# .NET
bytestream 21.01.2025
RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .
Как объединить последние коммиты в Git
bytestream 21.01.2025
В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .
Как создать директорию и все родительские директории, указанные в пути, с помощью Python
bytestream 21.01.2025
Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru