Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Для уравнения, x2 - cosx = 0, и найденного интервала (0,2) уточнить корень x с погрешностью =10-4 методом п https://www.cyberforum.ru/ free-pascal/ thread1728941.html
Для уравнения, x2 - cosx = 0, и найденного интервала (0,2) уточнить корень x с погрешностью =10-4 методом половинного деления. Обозначим: xл - левая граница; xп - правая граница поля, т.е. xл...
Машина должна угадать загаданное число Free Pascal
Добрый день, такой вопрос, нужно написать программу, которая будет выдавать 4-х значные числа, и задавать 2вопроса: 1.Сколько цифр угадано правильно(не называя их)(Ответ=1 или 2 и т.д.). 2.Сколько...
Free Pascal Почему не работает? program Pr2; const n1 = 15; type massiv = array of integer; var a: massiv; https://www.cyberforum.ru/ free-pascal/ thread1728668.html Free Pascal Ошибка "Нет перегруженной подпрограммы с такими типами параметров" https://www.cyberforum.ru/ free-pascal/ thread1728221.html
компилятор ругается на 8 строчку program основная_тригонометрическая_формула; uses crt; var x, y, z : real; begin writeln ('Введите значение x'); readln (x); begin...
Free Pascal Ввод времени суток в формате hh:mm с ограничением ввода
Ввод времени суток в формате hh:mm с ограничением ввода. ввод кроме цифр блокируется(при нажатии буквы она не отображается на экране); по нажатии enter читать время
Free Pascal Получить файл h, в котором каждая нечётная стока - из файла f, каждая чётная строка - из файла g Даны текстовые файлы f и g. Получить файл h, в котором каждая нечетная стока - из файла f каждый четный строка - из файла g. https://www.cyberforum.ru/ free-pascal/ thread1727748.html
Free Pascal Написать модуль обработки комплексных чисел Написать модуль обработки комплексных чисел. Модуль должен включать в себя следующие подпрограммы: – функцию создания комплексного числа в динамической памяти; – функцию сложения двух комплексных... https://www.cyberforum.ru/ free-pascal/ thread1726984.html Free Pascal Разве бывает 2 Begin?
Пробую сделать САМ СВОЕ меню. Для этого отовсюду собираю разные образцы и варианты. И вот попался какой-то любопытный вариант с двумя begin'ами. { from bpascal.ru} Uses CRT; Const MaxMenuItem =...
Free Pascal Перевод систем счисления Исходный текстовый файл содержит числа в шестнадцатеричной системе счисления, отделенные друг от друга хотя бы одним пробелом. Составить программу, которая под каждым шестнадцатеричным числом в... https://www.cyberforum.ru/ free-pascal/ thread1726680.html Free Pascal паскаль Дано текстовий файл f. Додати букву S у початок кожного рядка текстового файлу. (паскаль) Помогите, пожалуйста. https://www.cyberforum.ru/ free-pascal/ thread1726510.html
Free Pascal Найти год выше, ниже или равный заданному (синтаксический анализатор)
Помогите найти ошибку - нужно осуществить поиск года , пишет что входная строка имеет неверный формат. uses crt; Type library1 = record author,book:string; year,code,place:integer; end; Var...
Free Pascal Типизированный файл, корректировка полей https://www.cyberforum.ru/ free-pascal/ thread1726151.html
ребята!!! помогите с процедурой redactor (корректировка полей) не знаю как ее написать, если можно то с комментариями :) type pred=record inf:integer; dm:integer; ...
0 / 0 / 1
Регистрация: 22.01.2016
Сообщений: 3
09.05.2016, 15:41 0

Добавить к каждому числу единицу и вывести конечное - Free Pascal - Ответ 9116580

09.05.2016, 15:41. Показов 1191. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n = 10
var i: byte;
     a: array[1..n] of integer;
Begin
 for i:=1 to n do
 begin
  write('a[',i,']: =  ');
  readln(a[i]);
  for i:=1 to n do 
   begin
    a[i]:=a[i]+1;
    write(a[i],'  ');
   end;
 end;
End.
Добавлено через 33 секунды
примерно так, набросал на лету, так что могут быть небольшие помарки, но приблизительно так, пробуйте

Вернуться к обсуждению:
Добавить к каждому числу единицу и вывести конечное Free Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2016, 15:41
Готовые ответы и решения:

Добавить к каждому введённому числу типа double единицу измерения
Здравствуйте. Уже долго бьюсь над эти заданием и никак не могу понять как его делать. вот условие...

Добавьте к каждому введенному числу типа doube единицу измерения
Добавьте к каждому введенному числу типа douЫe единицу измерения Допустимыми являются четыре...

Добавить к введенному числу единицу измерения
Задание: Добавьте к каждому введенному числу типа double единицу измерения; иначе говоря, введите...

Добавить к каждому числу, кроме последнего, значение следующего
Пожалуйста, помогите с задачкой. Проблема в составлении цикла do while (добавив к каждому числу,...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2016, 15:41

Добавить к каждому числу корень квадратный из абсолютного значения произведения
Есть задание на шаблоны функции я слаб в си++, прощу помощи, по заданию, оставляйте комментарии по...

Добавить к каждому числу файла среднее арифметическое максимума и минимума
Записать выходной файл, добавить к каждому числу среднее арифметическое наименьшего по абсолютной...

Добавить к каждому числу полусумму всех отрицательных чисел последовательности
совсем не понимаю с++, а задача такая: для последовательности из 50 случайных чисел (deque)...

Прибавить единицу к введенному числу и вывести результат
Начал изучать Ruby по этому сайту http://www.shokhirev.com/mikhail/ruby/ltp/Chapter04.html Так...

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