Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить сумму и произведение нечетных отрицательных элементов матрицы Дана целочисленная матрица A(N, M). Вычислить сумму и произведение нечетных отрицательных элементов матрицы, удовлетворяющих условию \| aij \| < i. https://www.cyberforum.ru/ turbo-pascal/ thread537134.html	Turbo Pascal Найти произведение отрицательных элементов ниже главной диагонали Главной диагональю матрица разделена на 2-а треугольника. Найти произведение отрицательных элнментов I треугольника матрицы.
Turbo Pascal Реализация графа https://www.cyberforum.ru/ turbo-pascal/ thread537097.html Начертите неориентированный связанный граф, содержащий семь вершин и десять ребер.	Turbo Pascal Задача с динамическим массивом Pascal В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) Сумму элементов массива с нечетными номерами. 2) Сумму элементов массива, расположенных между первым и последним отрицательным элементом. 3) Сжать массив, удалив из него все элементы, модуль которых не превышает 1. 4) Освободившиеся в конце массива элементы заполнить нулями. Вот что наделал, с типами никак не... https://www.cyberforum.ru/ turbo-pascal/ thread537080.html
Конвертер различных единиц измерений! Turbo Pascal Добрый вечер, уважаемые форумчане! Решил выложить свою недавнюю работу, а именно конвертер различных единиц измерений, надеюсь кому-нибудь пригодиться для каких-либо целей) Вот текст модуля: unit mainunit; interface uses crt; const pr1=' ЗДРАВСТВУЙТЕ! ВАС ПРИВЕТСТВУЕТ'; pr2=' КОНВЕРТЕР РАЗЛИЧНЫХ ЕДИНИЦ ИЗМЕРЕНИЙ!'; var dd: integer;...	Turbo Pascal Определить количество букв о https://www.cyberforum.ru/ turbo-pascal/ thread537049.html Дано предложение, в котором нет символа "-". Определить количество букв о в первом слове. Учесть, что в начале предложения могут быть пробелы
Turbo Pascal Найти число пар одинаковых соседних элементов https://www.cyberforum.ru/ turbo-pascal/ thread537047.html Дан двумерный массив. Найти число пар одинаковых соседних элементов. В качестве соседних рассматривать только элементы, расположенные в одной строке. Помогите кто чем может	Определить фамилии самого высокого и самого низкого Turbo Pascal Известен рост каждого из 25-и учеников класса. Нет ни одной пары учеников, имеющих одинаковый рост. определить фамилии самого высокого и самого низкого учеников класса. Кто - нибудь, помогите решить задачу
Turbo Pascal Известны данные о количестве осадков Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца. Вот возникли проблемы с решением https://www.cyberforum.ru/ turbo-pascal/ thread537042.html	Turbo Pascal Дан двумерный массивю Найти строку с минимальной суммой элементов https://www.cyberforum.ru/ turbo-pascal/ thread537039.html Дан двумерный массив. Найти строку с минимальной суммой элементов. Если таких строк несколько, должен быть найден номер самой верхней из них; Как всегда массив
Определить, на каком этаже проживает меньше всего людей Turbo Pascal Информация о количестве жильцов в каждой из четырех квартир каждого этажа 12-этажного дома хранится в двумерном массиве (в первой строке - информация о квартирах первого этажа, во второй - второго и т.д.)определить: а) на каком этаже проживает меньше всего людей; на выбор б) на каком этаже проживает больше всего людей.	Turbo Pascal найти все корни уравнения на интервале методом простой итерации https://www.cyberforum.ru/ turbo-pascal/ thread536923.html найти все корни уравнения на интервале методом простой итерации 3x-sin(xx)=0

Севак

любитель покушать

687 / 641 / 248

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

Сообщений: 1,313

02.04.2012, 21:58

Использование операторов While и Repeat. Вычислить сумму нечетных чисел - Turbo Pascal - Ответ 2866261

02.04.2012, 21:58. Показов 8805. Ответов 5

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

Ответ

Apel'sin32rus,

Pascal

uses crt;
var s,n,a,i: real;
begin
a:=1;
write('Введите n: ');
read(n);
while i<n do begin
s:=s+a;
a:=a+2;
i:=i+1;
end;
writeln('Ответ: ',s);
end.

Добавлено через 2 минуты
PCixoPAD, неправильно программы работают

Добавлено через 1 минуту
2ой способ:

Pascal

uses crt;
var s,n,a,i: real;
begin
a:=1;
write('Введите n: ');
read(n);
repeat
s:=s+a;
a:=a+2;
i:=i+1;
until i>=n;
writeln('Ответ: ',s);
end.

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

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

02.04.2012, 21:58

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

Цикл: вычислить сумму ряда с помощью следующих операторов: While-do, repeat-until и for
Доброго времени суток,уважаемые форумчане. Помогите пожалуйста выполнить задачу(хотя бы одним из...

Определить сумму модулей всех нечетных отрицательных чисел от -99 до 99 (while или repeat)
Определите сумму модулей всех нечетных,отрицательных чисел от -99 до 99.

Вычислить сумму натуральных чисел до n кратных y с помщью оператра repeat
1)вычислить сумму натуральных чисел до n кратных y с помщью оператра repeat 2)программа которая...

Вычислить сумму чётных чисел на отрезке от 10 до 30 через цикл repeat
Вычислить сумму чётных чисел на отрезке от 10 до 30 через цикл rpeat

	02.04.2012, 21:58

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

02.04.2012, 21:58

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

Вычислить с использованием операторов while, repeat
Вычислить с использованием операторов while, repeat

Вычислить сумму и среднее арифметическое первых n целых чисел (цикл Repeat).
Очередная задачка: Вычислить сумму и среднее арифметическое первых n целых чисел (цикл Repeat).

Как из последовательности 20 чисел вычислить сумму нечетных чисел и определить количество четных чисел.
Помогите пожалуйста !!!! Из последовательности 20 чисел вычислить сумму нечетных чисел и...

Вычислить сумму четных и сумму нечетных чисел натурального ряда от 1 до n
18 задача 1 лаба После удара о поверхность Земли мяч движется вертикально вверх со скорость 15...

Вычислить сумму четных и сумму нечетных чисел натурального ряда от 1 до N
Вычислить сумму четных и сумму нечетных чисел натурального ряда от 1 до N. Не могу найти где...

Новые блоги и статьи
Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .	Как добавить пустую директорию в репозиторий Git bytestream 22.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .	Как валидировать адрес email в JavaScript bytestream 22.01.2025 JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .	Как заменить все вхождения подстроки в JavaScript bytestream 22.01.2025 Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .	Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json bytestream 22.01.2025 В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .
Аутентификация на сайте с помощью формы 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 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .

Наверх