Delphi для начинающих

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

Войти

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

Другие темы раздела
Delphi Вывести строку названия соответствующих цифр на русском языке https://www.cyberforum.ru/ delphi-beginners/ thread82755.html 3) Дано целое число в деапозоне 0 – 9 Вывести строку названия соотвецтвующих цифры на русском языке (0-“ноль”,1-“один”,2-“два”,….) с поролем на прогу плз	Delphi Проверить истинность 1) Проверить истеность высказывания : “Среди трёх данных целых чисел есть хотя бы одна пара совподаюших ”. с поролем на прогу плз
Delphi Вычислить сумму положительных элементов массива Помогите пожалуйста В одномерном массиве, состоящем из n целочисленных элементов, вычислить сумму положительных элементов массива https://www.cyberforum.ru/ delphi-beginners/ thread82736.html	Delphi Найти площадь кольца Помогите пожалуйста сделать програмку Найти площадь кольца, внутренний радиус которого равен - r, а внешний - R (R>r) https://www.cyberforum.ru/ delphi-beginners/ thread82730.html
Delphi Вычислить сумму ряда Добрый день, ув. Форумчани, помогите, пожалуйста, мне очень нужна ваша помощь, нужно сдать лабу одну, если не сдам, то не допустят до сессии. Лабу саму выложил, там нужно сделать 3 задачи, и блок схемы к ним, отчет сам смогу сделать… Очень надеюсь на Вашу помощь. Спасибо.	Delphi Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять) Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять) https://www.cyberforum.ru/ delphi-beginners/ thread82642.html
Delphi Заполнение двумерного массива элементами одномерного https://www.cyberforum.ru/ delphi-beginners/ thread82639.html Здравствуйте, подскажите, есть эдиты, есть кнопочка, при нажати на которую из эдитов данные должны построчно запонять двумерный массив и выводить в StringGrid. подскажите как сделать. Я данными из эдитов сформировала одномерный масссив, далее пытаюсь заполнить из зтого одономерного массива двумерный, у меня заполняет либо всегда только первую строчку, либо все стороки сразу... Очень на вас...	Delphi Поиск по БД Всем доброго времени суток всем форумчанам!!! Мне нужна помощь по работе с БД в Делфи. Задача у меня такая, есть база данных словаря, в формате *.mdb (Access) там есть файлы для каждой буквы алфавита (Например для буквы А, файл называется просто "А"), есть у меня 2 Edit'a нужно сделать так чтобы когда ввел в Edit1 - слово, а в Edit2 - его перевод и нажал на кнопку "добавить" сначала, искало это...
Delphi Алгоритм кодирования RSA https://www.cyberforum.ru/ delphi-beginners/ thread82591.html Сам процесс поиска ключей в кодировании сделал, но смущает другое - какой тип данных использовать, как кодировать само сообщение? какой надо тип использовать? pbyte? - тогда как? заранее спасибо!	Delphi Progress bar как сделать так, чтобы при нажатии кнопки(загружающая в memo текст) она начинала работать, а когда текст закончит грузится - перестанет https://www.cyberforum.ru/ delphi-beginners/ thread82566.html
Delphi Движение по форме Всем спасибо. Нужно чтобы было движение по форме. У меня получается что телега движется первая и когда она останавливается начинает прыгать человек. Нужно чтобы они начинали двигаться одновременно после нажатии кнопки. Код: procedure TForm1.Button1Click(Sender: TObject); var t,x,y:word; begin with Image1.Canvas do begin t:=10;	Delphi Рисование Label Ответьте, пожалуйста, кто знает ответ. Вопрос такой: я делаю небольшую игру, и мне понадобилось рисовать на форме фон (Form1.Canvas.Draw(0, 0, Fon); ). А на форме, также, присутствует и несколько компонентов Label, и при рисовании фона, их не видно. Можно как-нибудь этого избежать? Я заметил, что объекты типа кнопок, рисуются нормально, а Label не видно. https://www.cyberforum.ru/ delphi-beginners/ thread82522.html

Littlelol

1 / 1 / 0

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

Сообщений: 9

05.01.2010, 18:33

Возвести в квадрат отрицательные числа и в третью степень – положительные - Delphi - Ответ 459811

05.01.2010, 18:33. Показов 6454. Ответов 10

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

Ответ

Pascal

Program omg;
var
mas: array[1..3] of real;
i: integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do readln(mas[i]);
for i:=1 to 3 do begin
                 if mas[i]>0 then mas[i]:=sqr(mas[i])*mas[i];
                 if mas[i]<0 then mas[i]:=sqr(mas[i]);
                 end;
for i:=1 to 3 do writeln(i,'-ое число: ',mas[i]);
end.

Вернуться к обсуждению:
Возвести в квадрат отрицательные числа и в третью степень – положительные Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

05.01.2010, 18:33

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

Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять)
Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число...

Возвести в квадрат неотрицательные числа, и возвести в куб отрицательные числа
Ввести три действительных числа от -10 до 10. Возвести в квадрат неотрицательные числа, и возвести...

Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательный,
Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в...

Дан массив из 15 целых чисел из интервала от -15 до 15, возвести в квадрат отрицательные элементы массива
Создания Delphi 7 Forms Дан массив из 15 целых чисел из интервала от -15 до 15, возвести в квадрат...

	05.01.2010, 18:33

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

05.01.2010, 18:33

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

Даны Два Числа, Возвести в квадрат их сумму, если оба числа четные
1) Дано трехзначное число, найти произведение первой и последней цифр. Верно Ли что оно кратно 5?...

Все числа в текстовом файле возвести в квадрат
данн текстовый файл , надо все его числа возвести в квадрат(числа типа real); функция которую я...

Даны 3 числа, возвести в квадрат те из них, которые положительны
Мы все реализовываем в программе Embarcadero. Язык Делфи. Я понятия не имею как и что делать....

Числа, превышающие 5, возвести в квадрат, а для чисел из диапазона [-5...+5] - извлечь кубический корень
Числа, превышающие 5, возвести в квадрат, а для чисел из диапазона -5…+5 - извлечь кубический...

Наверх