сервис вопросов и ответовНаписать программу на Pascale
10-11 класс|
|
Даны первые элементы и разности двух арифметических
прогрессий. Определить, в какой из них m-й
элемент больше (m - заданное целое
число).
Ganeevayulduz14
04 марта 2017 г., 20:11:25 (7 лет назад)
ЖенькаАкчурин
04 марта 2017 г., 21:27:01 (7 лет назад)
var a,b,d1,d2,m,am,bm:integer;
begin
write('Введите первый член и разность первой прогрессии: ');
readln(a,d1);
write('Введите первый член и разность второй прогрессии: ');
readln(b,d2);
write('Введите номер члена m: ');
readln(m);
am:=a+(m-1)*d1;
bm:=b+(m-1)*d2;
write(m,'-й член ');
if am>bm then write('первой') else write('второй');
writeln(' прогрессии больше')
end.
С использованием функции
var a,b,d1,d2,m:integer;
function an(a1,d,n:integer):integer;
begin
result:=a1+(n-1)*d;
end;
begin
write('Введите первый член и разность первой прогрессии: ');
readln(a,d1);
write('Введите первый член и разность второй прогрессии: ');
readln(b,d2);
write('Введите номер члена m: ');
readln(m);
write(m,'-й член ');
if an(a,d1,m)>an(b,d2,m) then write('первой') else write('второй');
writeln(' прогрессии больше')
end.
Ustola
04 марта 2017 г., 21:58:51 (7 лет назад)
С использованием процедур и функций.
анечка31
04 марта 2017 г., 22:30:42 (7 лет назад)
Поздно, я уже написал((
Ответить
Другие вопросы из категории
С клавиатуры вводится число N, а за ним N элементов массива состоящего из целых чисел.Проверить, все ли элементы массива положительны. Если да, то
ввести фразу "ДА", в противном случае-"Нет".
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
программа на C++ в визуальном режиме (есть несколько вариантов кода программы)
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Написать программу, которая вводит с клавиатуры одномерный массив из n целых чисел, после чего выводит нулевые элементы с их индексами (их можно и не
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
Помогите написать программу на C#
Дано натуральное число n. Написать программу вычисляющую сумму
Вы находитесь на странице вопроса "Написать программу на Pascale", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.