С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Составить программу Составить программу, которая печатает на экран N строк по М случайных чисел в диапазоне от А к В. Значения N, M, A и B получить из командной строки. https://www.cyberforum.ru/ turbo-pascal/ thread290108.html Turbo Pascal Описать функцию Perim
Описать функцию Perim (Ax, Ay, Bx, By, Cx, Cy) действительного типа, который находит периметр треугольника ABC за координатами его вершин (Ax, Ay, Bx, By, Cx, Cy - действительные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.
Turbo Pascal найти сумму элементов в каждой строке матрицы Помогите пожалуйста решить задачи: 1 найти сумму элементов в каждой строке матрицы 2 дана таблица А, напечатать порядковые номера целых элементов 3 упорядочить элементы массива А в порядке убывания https://www.cyberforum.ru/ turbo-pascal/ thread290104.html Turbo Pascal комбинированные типы данных https://www.cyberforum.ru/ turbo-pascal/ thread290103.html
помогите составить программу- сводка выполнения плана содержит сведения: наименование изделия,шифр,единица измерения,план выпуска,фактически выпущено,отклонение от плана(перевыполнение,недовыполнение).Описать и заполнить запись для 5 позиций сводки.Предусмотреть возможность выдачи данных по введенному наименованию изделия.-буду очень боагодарен
Turbo Pascal Встречается ли в тексте слово,начинающееся на заданную букву?
Встречается ли в тексте слово,начинающееся на заданную букву?
Turbo Pascal Файлы Уважаемие програмисты не могли бы вы мне помочь. К уже готовой програме нужно организовать зчитивание даных с файла и запись на диск через процедуру. Вот програма uses crt; Type oblik=record priz:string; gurt:boolean; npov:integer; nkim:integer; nkvar:integer; nvul:integer; https://www.cyberforum.ru/ turbo-pascal/ thread290094.html
Turbo Pascal Простейший графический редактор https://www.cyberforum.ru/ turbo-pascal/ thread290063.html
Задача реализовать простейший графический редактор. Существует точка на экране (ну, не совсем точка, скорее квадрат), которая передвигается при помощи стрелочек. Нажат пробел – перо опущено, и точка-квадрат оставляет за собой след, пробел нажат ещё раз – перо поднято и следа не остаётся. Так же должны быть функции выбора цвета пера и цвета фона. Идеи есть, но написать ничего не могу. Допустим,...
Turbo Pascal Перевод в экранную систему координат
begin gd:=detect; initgraph(gd,gm,''); a:=0;a:=0;a:=1;a:=0;a:=1;a:=1;a:=0; a:=2;a:=1;a:=1;a:=0;a:=1;a:=1;a:=1; a:=1;a:=1;a:=2;a:=1; mat:=cos(t);mat:=sin(t);mat:=0;mat:=-sin(t); mat:=cos(t);mat:=0;mat:=0;mat:=0;mat:=1; for kord:=1 to 6 do for st:=1 to 3 do
Turbo Pascal Описать и заполнить запись для 5 позиций сводки.Предусмотреть возможность выдачи данных по введенному наименованию изделия. помогите плиз написать программу!!!! сводка выполнения плана содержит сведения: наименование изделия,шифр,единица измерения,план выпуска,фактически выпущено,отклонение от плана(перевыполнение,недовыполнение).Описать и заполнить запись для 5 позиций сводки.Предусмотреть возможность выдачи данных по введенному наименованию изделия. буду очень благодарен) https://www.cyberforum.ru/ turbo-pascal/ thread290040.html Turbo Pascal В ЭВМ по очереди вводятся фамилии спортсменов и их результаты в соревнованиях по по прыжкам в длину. Число участников произвольно. Выдавать на печать Задача: В ЭВМ по очереди вводятся фамилии спортсменов и их результаты в соревнованиях по по прыжкам в длину. Число участников произвольно. Выдавать на печать лучший результат после выступления очередного спорсмена. После окончания соревнования напечатать итоговое сообщение о победителе. https://www.cyberforum.ru/ turbo-pascal/ thread290036.html
Сформировать файл "BOOK" из фамилий любимых писателей учеников класса (ученики по очереди вводят по три фамилиии писателей). Используя сформированный Turbo Pascal
Задание.Для выполнения задания следует составить две программы: первая программа - для создания файла последовательного доступа, вторая - для обработки данных, записанных в файле последовательного доступа. Если не указано в задании, имя файла задать самостоятельно. Подготовить тесты. Проверить работу программ на ЭВМ. Задача: Сформировать файл "BOOK" из фамилий любимых писателей учеников класса...
Turbo Pascal Работа со строками https://www.cyberforum.ru/ turbo-pascal/ thread290025.html
Доброго времени суток. Мучаюсь над одной задачей: надо посчитать значение строчки такого вида '(5 + 5) mod 2' и тому подобное. Допустимые действия в строке mod, div, /, *, +, -, (,). Заранее спасибо. Добавлено через 2 часа 18 минут ап =)
6 / 6 / 9
Регистрация: 12.04.2011
Сообщений: 34
06.05.2011, 19:16 0

Заменить числа их квадратами - Turbo Pascal - Ответ 1622217

06.05.2011, 19:16. Показов 1135. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program yyy;
uses
    crt;
var
   a,b,c:integer;
begin
     clrscr;
     writeln('Vvesdite a,b,c');
     readln(a,b,c);
 
     if (a<=b) and ( b<=c) then
        begin
             a:=a*a;
             b:=b*b;
             c:=c*c;
        end;
 
     if (a>b) and (b>c) then
        begin
             b:=a;
             c:=a;
        end;
 
     writeln(a,' ',b,' ',c);
     readln;
end.
это элементарно

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

Все числа заменить их квадратами
даны целые числа a,b,c. Если a&lt;=b&lt;=c, то все числа заменить их квадратами, если a&gt;b&gt;c, то каждое...

Заменить в массиве числа, кратные 3, их квадратами и определить их количество
Заменить в массиве числа, кратные 3, их квадратами и определить их количество. Вывести на экран...

Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1
Дана действительная матрица размерности (nхn). Заменить все отрицательные элементы массива их...

Заменить элементы массива их квадратами
заменить элементы массива их квадратами

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

Заменить компоненты вектора их квадратами
Подскажите как написать программу: Даны векторы A, B, C. Получить y=min A. Все компоненты вектора...

Заменить все элементы массива их квадратами
Дан целочисленный массив А(1..4, 1..3) Заменить все его элементы их квадратами. p.s. скобки...

Процедуры: в массиве заменить все элементы их квадратами
решить с помощью процедур. в произвольном массиве заменить все элементы их квадратами. спасибо...

Все отрицательные элементы массива заменить их квадратами
Дан целый массив a1, a2…an. Если в этом массиве есть хотя бы один элемент, меньший, чем P, то все...

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