С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Найти произведение чисел натурального ряда от а до b используя цикл с постусловием https://www.cyberforum.ru/ turbo-pascal/ thread214395.html
Найти произведение чисел натурального ряда от а до b используя цикл с постусловием.
Turbo Pascal Найти сумму чисел натурального сюда от а до b используя цикл с предусловием
Найти сумму чисел натурального сюда от а до b используя цикл с предусловием.
Turbo Pascal Удаление из строки скобок вместе со всем их содержимым надо удалить то что в скобках вместе со скобками . составил прогу но она не пашет . помогите исправить ошибки. program laba72; uses crt; const skobka1=; skobka2=; var a:string; https://www.cyberforum.ru/ turbo-pascal/ thread214336.html Turbo Pascal Множества. Вывод букв в алфавитном порядке. Всем доброй ночи. У меня программа по множествам, я ее вроде сделал но почемуто не работает, понять немогу. Подскажите ошибку. Само условие: Дана не пустая последовательность слов из строчных русских букв, между соседними словами-запятая, за последним точка. Вывести в алфавитном порядке все гласные буквы, которые входят в каждое слово по 2 раза. вот текст программы: Program i_am; Var... https://www.cyberforum.ru/ turbo-pascal/ thread214308.html
Turbo Pascal паскаль 3Д графа
имеються буквы(3Д) задняя перезняя грань соеденённые нужно удалить невидимые линии подскажите как осуществить
Turbo Pascal Дано файл целых чисел. Создать новый файл, содержащий длину всех серий (наборов последовательно расположенных одинаковых элементов) этого файла Помогите пожалуйста ,даже не знаю как это реализовать .Буду очень вам признателен ) Спасибо вам огромное ) https://www.cyberforum.ru/ turbo-pascal/ thread214276.html
Turbo Pascal Линейные вычислительные процессы + развилки https://www.cyberforum.ru/ turbo-pascal/ thread214227.html
Дано c,d вычислить: y:=exp(d)+sin(t)/cos(t);, t:=c/(1+sqrt(d*d+1)); Если у>0 то вычислить и отпечатать z:=c*y+d*y+c*d, Если y=0, напечатать "у=0". Иначе вычислить x:=arctan(y/sqrt(1-y*y)+sin((d/2)/cos(d/2))). Я написал код программы, но как сделать чтобы при у>0 паскаль не выдавал х=0 ??? program Pr1; uses crt; var x,z,t,y,c,d : real;
Turbo Pascal Вычисление произведения.
Помогите пожалуйста написать программу у меня почему то высляет всегда 0. Составить программу для вычисления произведения: \prod_{i:=1}^{10}\ln (\left|{x}^{3} \right|)
Turbo Pascal Написать функцию, которая вычисляет среднее арифметическое элементов непустого списка Всем здраствуйте. Помогите пожалуйста кто чем может. Эти задачи будут выведены на экзамен. Очень нужно. 1Сформировать список строк и а) сохранить его в текстовом файле; б) сохранить его в обратном порядке в текстовом файле. . 2. Сформировать список строк из текстового файла. 3. Написать функцию, которая вычисляет среднее арифметическое элементов непустого списка. https://www.cyberforum.ru/ turbo-pascal/ thread214090.html Turbo Pascal описать финкции и процедуры https://www.cyberforum.ru/ turbo-pascal/ thread214081.html
здравсмтвуйте помогите пожалуйста сделать словесное описание того что делает каждая функция и процедура в программе program sss; {demidkin,pm12,e4 3 balla} type pn= ^node; node= record d: word; p: pn; end;
Дан массив В(К, L).Напечатать элементы строки, в которой находится минимальный элемент массива. Turbo Pascal
Помогите решить задачку срочно нужно до завтра Дан массив В(К, L).Напечатать элементы строки, в которой находится минимальный элемент массива. Желательно с использование процедур или функций
Turbo Pascal Вычислить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread214077.html
Дана формула (2*x+a)/(x*x*x-2*x*x-x+2), х принадлежит , с шагом х=1 Вот написал прогу, ориентируясь на примеры. При тесте начинаю выполнять прогу, пишет "При х= 2 Функцию нельзя вычислить" но даль ше всё равно пишет "x=2 y= 0.00" Можно ли как-то сделать чтобы писалось только "При х= 2 Функцию нельзя вычислить"??? program Pr3; uses crt; var a,x,y: real; Begin Writeln('ввести а');...
2 / 2 / 1
Регистрация: 19.10.2010
Сообщений: 26
19.12.2010, 12:40 0

Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром - Turbo Pascal - Ответ 1217151

19.12.2010, 12:40. Показов 1664. Ответов 9
Метки (Все метки)

Ответ

Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром.
Pascal
1
2
3
4
5
6
7
8
Program q1;
Var a,b,i,sum:integer;
Begin
 i:=0; sum:=0;
 Read(a,b); 
   For i:=a to b do sum:=sum+sqr(i); // Параметру цикла присваивается значение а и прибавляется к сумме его квадрат, цикл выполняется до тех пор пока i <= b
 Write(sum:3);
End.


Вернуться к обсуждению:
Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2010, 12:40
Готовые ответы и решения:

Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром
Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром

Найти произведение чисел натурального ряда от а до b используя цикл с постусловием
Найти произведение чисел натурального ряда от а до b используя цикл с постусловием.

Найти произведение чисел натурального ряда от a до b используя цикл с постусловием
Найти произведение чисел натурального ряда от a до b используя цикл с постусловием.

Найти сумму чисел натурального сюда от а до b используя цикл с предусловием
Найти сумму чисел натурального сюда от а до b используя цикл с предусловием.

9
19.12.2010, 12:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2010, 12:40
Помогаю со студенческими работами здесь

Найти сумму чисел натурального сюда от a до b используя цикл с предусловием
Найти сумму чисел натурального сюда от a до b используя цикл с предусловием.

Вывести таблицу квадратов заданных чисел(используя цикл с параметром)
Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных...

Вычислить сумму ряда, используя цикл с параметром, с предусловием, с постусловием
помогите пожалуйста написать программы срочно нада очень очень помогите пожалуйста написать...

Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 используя цикл с параметром
1)Дано целое число N (&gt; 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 (целое...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru