Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Даны натуральное число n, действительные числа α1, l1, α2, l2, ., αn, ln (l1, l2, ., ln ≥ 0). Найти координаты конца ломаной линии, изображенной н рисунок: в общем прога сделанная, но с ошибками - не могу их найти. program ab; type UgolDlina = record A, L : Real; end; var M : array of UgolDlina; Pos, N,k : Integer; https://www.cyberforum.ru/ turbo-pascal/ thread229512.html Проверка списка на существование одинаковых элементов Turbo Pascal
Написать программу, которая: Проверяет, есть ли в списке L хотя бы 2 одинаковых элемента. Переворачивает список L Программа исправно переворачивает список, а вот с проверкой че-то не то. Подскажите, пожалуйста, где накосячил? type sp = ^el; el = record inf: integer;
Turbo Pascal только начала учить. Strings algorithm значение переменной St 'Turbo Pascal' St1:string St2:string найти значение St1 и St2 ,если St1:= St-1 и St2:= St-1 что же значит это string?? https://www.cyberforum.ru/ turbo-pascal/ thread229484.html Turbo Pascal сам не могу много ошибок допускаю, решите) https://www.cyberforum.ru/ turbo-pascal/ thread229483.html
1. Найти среднее арифметическое элементов массива А(10). 2. Найти среднее арифметическое отрицательных членов массива А(10). 3. Даны 3 числа, вывести на экран наибольшее из них. 4. Даны 3 числа, вывести их на экран в порядке убывания. 5. Подсчитать произведение первых 10 членов последовательности 1,2,3.. 6. По введенному номеру месяца, вывести на экран название периода года, к которому он...
Turbo Pascal Массив
Ребята!!! Помогите мне решить задачу, очень срочно надо))))))) Массив заполнен случайными целыми числами из диапазона . Составить процедуру (или функцию), которая меняет местами i-й и j-й элементы массива. Составить процедуру (или функцию), которая вставляет число a в начало массива (со сдвигом). Сам массив, текущее количество элементов в нем, а также введенные пользователем числа i, j и a...
Turbo Pascal Найти число тех элементов массива, значения которых положительны и не превосходят заданного числа А . Дан массив целых чисел, состоящий из 30 элементов, заполненный случайным образом числами из промежутка от –50 до 50. Найти число тех элементов, значения которых положительны и не превосходят заданного числа А https://www.cyberforum.ru/ turbo-pascal/ thread229468.html
Turbo Pascal Сделайте «датчик чувствительности уха к высоким частотам». https://www.cyberforum.ru/ turbo-pascal/ thread229465.html
Сделайте «датчик чувствительности уха к высоким частотам». Известно, что человеческое ухо не может слышать звуки, частота которых превышает 10000-20000 гц. . Напишите программу, которая выдает звуки все более высокой частоты и печатает на экране значение этой частоты, так что человек успевает увидеть при какой частоте он перестает слышать звук.
Turbo Pascal Расписать
Ребят ,Помогите !Нужно объяснить каждую строчку ,никак не могу (( uses crt; var ch:char; f:text; name:string; i,j,x,y,x1,y1,k,c:integer; A,B,rez:array of real; sum:real;
Turbo Pascal Выбрать наименьшие результаты Товар общим весом Р тонн может быть доставлен по 1-му из путей. Стоимость транспартировки 1-й тонны товара на расстояние 1 км по каждому из путей равна S1,S2,S3 руб. Соответственно. Длинна каждого из путей равна A1,A2,A3 км. Выбрать наиболее экономичный вариант транспартировки. Вывести номер маршрута и стоимость перевозки. Просто через ифы , что то подобное получается, ну а как номер маршрута... https://www.cyberforum.ru/ turbo-pascal/ thread229440.html Turbo Pascal Контрольная сумма(сумма цифр) https://www.cyberforum.ru/ turbo-pascal/ thread229427.html
Помогите пожалуйста с такой задачей Акела постарел, стал слабее, и теперь хромой тигр Шерхан подружился с младшими волками стаи и те часто бегали за ним; Акела не допустил бы до этого, если бы прежняя сила дала ему возможность как следует проявлять свою власть. С годами стал Акела подзабывать и Закон Джунглей. Нет, он не мог его нарушить, ибо Закон Джунглей уже давно стал частью его...
Turbo Pascal Как работать с BMP-файлами
Помогите разобраться, как с помощью Turbo Pascal 7.0 без использования модулей специальных, кроме Crt, работать с bmp файлами. Хотя бы простейшие случаи, если количество цветов равно 256 и изображение определенного размера. К примеру, как считывать изображение?
Turbo Pascal ошибка https://www.cyberforum.ru/ turbo-pascal/ thread229401.html
Исправте ,пожалуйста,ошибку. Дан двумерный массив.Определить: а)сумму квадратов элементов четвертого столбца массива; б)сумму квадратов элементов k-й строчки массива. uses crt; const n=9;m=7; var a:array of integer;
Фрилансер
Эксперт С++
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
16.01.2011, 12:32 0

Возвести четные отрицательные элементы в третью степень, а нечетные во вторую - Turbo Pascal - Ответ 1291533

16.01.2011, 12:32. Показов 1372. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
for i:=1 to n do
if odd(arr[i]) then
arr[i]:=sqr(arr[i])
else
arr[i]:=exp(ln(arr[i])*3);


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

Возвести все отрицательные элементы матрицы в третью степень
Дана матрица (или 2хмерный массив, точно уже не помню) 3 на 3 . Все отрицательные числа возвести в...

Возвести во вторую степень все нечетные элементы матрицы
16. Возвести во вторую степень все нечетные элементы матрицы А(m,n) (m<=5, n<=4) и сформировать из...

Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные...

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные...

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

Все отрицательные числа матрицы возвести в третью степень
Все отрицательные числа возвести в третью степень. Из полученных значений сформировать одномерный...

Возвести в квадрат отрицательные числа и в третью степень – положительные
4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные (...

Как возвести в квадрат отрицательные числа и в третью степень положительные
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не...

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

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