Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вывести их, поменяв местами первый минимальный и последний максимальный элемент. https://www.cyberforum.ru/ pascal/ thread175210.html
Дано N(1<=N<=1000) и N целых чисел. Вывести их, поменяв местами первый минимальный и последний максимальный элемент. Пример: 2 1 3 3 1 2 ->2 3 3 1 1 2 Добавлено через 12 минут ОЧЕНЬ НАДО PROGRAM Swap; USES Crt; VAR A: ARRAY OF INTEGER; i, min, max, imin, imax, n: INTEGER; BEGIN WRITE('n='); READLN(n); Randomize; FOR i := 1 TO n
Pascal Написать функцию напишите полностью прогу зарание спасибо!!!! Написать функцию нахождения наибольший общий делителя двух натуральных чисел. https://www.cyberforum.ru/ pascal/ thread175131.html
Pascal Найти количество различных цифр в десятичной записи числа. Дано N(1<=N<=10^9). Найти количество различных цифр в десятичной записи числа. Количество сравнений во время исполнения программы не должно превышать 10. Добавлено через 46 минут ПАМАГИТЕ ... SKeLeToN, подсказка: делай с помощью множеств. https://www.cyberforum.ru/ pascal/ thread175164.html Оператор Case Pascal
Подскажите как прогу сделать вот задание: Разработать программу, которая выводит на экран название ансамбля из некоторого числа исполнителей. Введите номер ансамбля 2 чел дуэт 3 чел трио 4... Uses CRT; var i:integer; begin write('Ââåäèòå êîë-âî ÷åëîâåê: '); readln(i); case i of 2:writeln(i,' ÷åëîâåêà: äóýò'); 3:writeln(i,' ÷åëîâåêà: òðèî');
Pascal Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N. https://www.cyberforum.ru/ pascal/ thread175163.html
Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство {3}^{k} < N. как возвести в степень, и как решить задачу при помощи цикла while? //Объявление типа переменной var k, n:integer; begin Writeln('Введите натуральное число N'); k:=0; // Ввод переменной Read(n);
Pascal Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между последними двумя нулями (если последние нули идут подряд,... https://www.cyberforum.ru/ pascal/ thread175158.html
удвоение гласных Pascal
Помогите пожалуйста!!! Дан текст сформировать новый текст ,удвоив все гласные буквы латинского языка. Например:Pascal -Paascaal PROGRAM Double; USES Crt; CONST Alphabet: ARRAY of CHAR = ('A', 'E', 'I', 'O', 'U', 'Y', 'a', 'e', 'i', 'o', 'u', 'y'); VAR S: STRING; i, j: INTEGER; BEGIN READLN(S); FOR i := 1...
Pascal Уменьшить её, удалив первый из отрицательных и минимальный из положительных(такой элемент одын) и сдвигнут все остальные к началу https://www.cyberforum.ru/ pascal/ thread175175.html
Дана последовательность из n элементов. Уменьшить её, удалив первый из отрицательных и минимальный из положительных(такой элемент одын) и сдвигнут все остальные к началу. Люди Добрые помогите...
Дан массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и их количество Pascal
Дан массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и количество таких элементов. Найденные номера выводить в порядке их убывания. что не так? program... Можете перевести это в C#?
Pascal сумма ряда, табуляция https://www.cyberforum.ru/ pascal/ thread175176.html
Здраствуйте,прошу помочь решить задачу... Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Хнач до Хкон с шагом dx с точностью... uses crt; var xn,xk,e,dx,s,si,t:real; i:integer; begin clrscr; write('Введите начало интервала xn='); readln(xn); repeat write('Конец интервала интервала xk>',xn:0:2,' xk='); readln(xk);
Pascal рассчитать значения функции... рассчитать значения функции y = ( ( 3 х ^ 2 ) - 6 ) ) / (2х), запросив у пользователя интервал и шаг изменения аргумента функции.Результаты рассчета вывести на экран в виде таблицы.Построить график... Вот сделать отдельно эти дела, нет проблем, но вместе не очень. Функция капризная, прерывистая, поэтому рисовать ее на любом интервале не очень хорошо, ее нужно рисовать например на интервале если ... https://www.cyberforum.ru/ pascal/ thread175190.html Pascal Массив
Всем привет!!! Помогите разработать программу для вычисления суммы квадратов положительных элементов одномерного массива размерностю 10, введенного с клавиатуры пользователем???? Зарание... program prog; const N = 10; var arr: array of integer; i: integer; sum: integer; begin sum:= 0;
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
11.10.2010, 22:04 0

разработать программу для вычисления суммы положительных чисел - Pascal - Ответ 1020638

11.10.2010, 22:04. Показов 2321. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
s:=0;
for i:=1 to 5 do
 begin
  readln(a);
  if a>0 then s:=s+a;
 end;


Вернуться к обсуждению:
разработать программу для вычисления суммы положительных чисел Pascal
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.10.2010, 22:04
Готовые ответы и решения:

Разработать программу для вычисления в двумерном массиве суммы отрицательных чисел
Задание: Разработать программу для вычисления в двумерном массиве : -Суммы отрицательных чисел. -Количества положительных четных чисел....

Составить Алгоритм для вычисления суммы первых n целых положительных четных чисел
Составить Алгоритм (тестовое описание ,и написать метод решения) для вычисления суммы первых n целых положительных четных чисел (т.е....

Составить программу для вычисления суммы квадратов натуральных чисел от 1 до n
Пример 1: Составить программу для вычисления суммы квадратов натуральных чисел от 1 до n и оформить ее в виде процедуры. Procedure Lux...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.10.2010, 22:04
Помогаю со студенческими работами здесь

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

Составить программу вычисления суммы простых чисел , лежащих в интервале (Т;2Т-1) , Т>2.
помогите,пожалуйста задачу решить на паскале. нужно с помощью процедур\функций. Составить программу вычисления суммы простых чисел ,...

Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N)
Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N) Помогите составить программу при помощи...

Процедуры. Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.
написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9. выручайте плиз)

Разработать программу для вычисления в двумерном массиве
Задание: Разработать программу для вычисления в двумерном массиве : -Суммы отрицательных чисел. -Количества положительных четных чисел....

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru