Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составить блок схему к готовому коду пожалйста https://www.cyberforum.ru/ turbo-pascal/ thread329112.html Turbo Pascal Pascal. Строки
Все согласные символы латиницы ,заданной строки, перевести в верхний регистр.
Turbo Pascal Ошибка при вычислении выражения https://www.cyberforum.ru/ turbo-pascal/ thread329097.html
Помогите, пожалуйста, найти ошибку в программе var m, n, n1, m1,a,i, P:longint; begin write(' P= a^(n-1)/(n+1)'); write('Введите a='); readln(a); write('Введите n='); readln(n); m:=1; n1:=n; for i:=1 to n do begin
Turbo Pascal Даны натуральные числа k, l, m https://www.cyberforum.ru/ turbo-pascal/ thread329087.html
Даны натуральные числа k, l, m, действительные числа x(1)...x(k), y(1)...y(l), z(1)...z(m) . Получить (max(y(1)...,y(l))+max(z(1)...z(m)))/2 при max(x(1)...x(k))>=0 t= 1+(max(x(1)...x(k))^2, в противном случае.
Построить блок схему по программе Turbo Pascal
Uses crt; Var f: text; prov,fam: string ; v,n: integer; ot,d: integer; k,max,min,mn,mx: integer; o: char; Begin clrscr; assign (f,'text.txt');
Turbo Pascal Построить блок схему Помогите построить блок схему, заранее очень благодарен program Project1; //Меняет местами первое из самых коротких слов с последним словом. function ProcStr(const aStr : String) : String; const //Множество разделителей слов. D = ; var https://www.cyberforum.ru/ turbo-pascal/ thread329076.html
Turbo Pascal Найти корень пятой степени из произведения всех компонентов файла https://www.cyberforum.ru/ turbo-pascal/ thread329055.html
Прочитать с диска файл tol.dat и найти: корень 5ой степени из произведения всех компонентов файла; заменить этим значением три последние компоненты файла
грузовые перевозки Turbo Pascal
Есть последовательность 18 вещественных чисел - объем груза, перевезеного за день каждой из грузовых машин одного парка. Определить суммарный объем перевозок грузов за день. помогите отыскать решение, си++ или паскаль)
Turbo Pascal в числе Х поменять двоичные разряды в зеркальном порядке. https://www.cyberforum.ru/ turbo-pascal/ thread329029.html
Помогите пожалуйста доделать летнюю практику НА ВСТРОЕННОМ В ПАСКАЛЬ АССЕМБЛЕРЕ в числе Х поменять двоичные разряды в зеркальном порядке. напечать и начальное и конечное число и оба в двоичном и десятичном виде оба числа описать как byte результат 10100010 162 01010001 81
Turbo Pascal Тест для программеров https://www.cyberforum.ru/ turbo-pascal/ thread329021.html
Вот тест Написать только ответы
Turbo Pascal Вычислить значение выражения
Завтра сдавать уже надо.
Turbo Pascal Сформировать новый массив С, переписав в него массив с большим количеством положительных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread328861.html
Ввести 2 одномерных массива А и В целого типа. Сформировать новый массив С, переписав в него массив с большим количеством положительных элементов. Полученный массив распечатать. Создать с использованием процедур и функций. Помогите пожалуйста с задачей. Заранее спасибо.
1 / 1 / 0
Регистрация: 29.06.2011
Сообщений: 104
0

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

03.07.2011, 16:33. Показов 907. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Не могу найти ошибку в программе!!!
Условие: вводится последовательность ненулевых чисел, 0- ее конец. Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n, n1, n2:real;
pr:boolean;
begin
pr:=false;
write('n='); readln(n1);
write('n=');readln(n2);
repeat
if n1*n2>0 then
pr:=true;
write('n='); readln(n2);
until n2=0;
if pr then
writeln(' Последовательность содержит рядом стоящие элементы с одинаковыми знаками')
else writeln('Последовательность не содержит рядом стоящие элементы с одинаковыми знаками');
readln;
end.


Вернуться к обсуждению:
Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 16:33
Готовые ответы и решения:

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками
Только начал изучать С, и не могу разобраться как делать если не тяжело помогите с 2мя задачами. ...

Определить, содержит ли последовательность хотя бы два соседних числа c одинаковыми знаками
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить, содержит ли...

Содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками?
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить содержит ли...

Определить , содержит ли последовательность хотя бы два равных соседних числа

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

Определить, содержит ли последовательность хотя бы два равных соседних числа
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли...

Как определить, содержит последовательность хотя бы два равных соседних числа
Нужно написать в VBA. Заранее благодарю=) Вводится последовательность чисел, 0 - конец...

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

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

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