Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.68/25: Рейтинг темы: голосов - 25, средняя оценка - 4.68
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 6

Заданы два числа X, Y. Если их сумма положительна, то переменной F присвоить значение, равное сумме квадратов x и y

31.05.2013, 19:34. Показов 4754. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят помогите решить 3 задачки. Вроде простые , но я не умею на паскале задачи решать(((

2. Заданы два числа X , Y. Если их сумма положительна , то переменной F присвоить значение , равное сумме квадратов x и y , а в противном случае-равное квадрату их суммы.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.05.2013, 19:34
Ответы с готовыми решениями:

Присвоить переменной u значение равное сумме 2 наибольших из 3 чисел
Присвоить переменной u значение равное сумме 2 наибольших из 3 чисел:x,y,z.Напечатать значение u

Переменной Х присвоить значение, равное сумме положительных элементов матрицы
Дан массив А. Если среди элементов массива есть элемент, равный В то переменной Х присвоить значение, равное сумме положительных элементов,...

Присвоить переменной значение, равное сумме продолжительностей двух видеофайлов
Короче интересует как узнать длительность пары видео и записать сумму в переменную ввиде "SET SUM_TIME=2400" (например сумма...

1
0 / 0 / 3
Регистрация: 31.05.2013
Сообщений: 3
31.05.2013, 22:05
Лучший ответ Сообщение было отмечено Stalker_011 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var x,y,f:integer;
begin
 readln(x);
 readln(y);
 if x+y>0 then f:=x*x+y*y
          else f:=(x+y)*(x+y);
 writeln(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.05.2013, 22:05
Помогаю со студенческими работами здесь

Присвоить значение переменной, равное сумме элементов строки матрицы
Уважаемые программисты! у меня такая беда,не могу въехать в смысл этой задачи! будьте добры помогите с решением. Задача. Дано...

Переменной Х присвоить значение, равное сумме всех положительных четных элементов, предшествующих первому
Если у массива А(10) есть элемент, равный В, то переменной Х присвоить значение, равное сумме всех положительных четных элементов,...

Переменной присвоить значение равное 1, если максимальный элемент массива А больше максимального элемента В
2.Даны массивы A из N элементов, и B из M элементов.Переменной С присвоить значение равное 1,если максимальный элемент массива А больше...

Массив: Присвоить S значение 1, если сумма квадратов элемента массива X больше суммы квадратов элементов массива Y...
Заданы два массива X (5) Y (5) переменной s присвоить значение 1, если сумма квадратов элемента массива X больше суммы квадратов элементов...

Логической переменной b присвоить значение true, если числа x и y равны и значение false иначе
логической переменной b присвоить значение true если числа x и y равны и значение false иначе


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru