Составить на языке паскаль программу которая запрашивает с клавиатуры n целых чисел
В книге был приведен пример, но решения там нет, а как вообще должна начинатьсся запись решения такой задачи? (Если рассматривать на примере, то это должно быть так?: ввели числа: 3 6 8 5 54 и получить должны в итоге 54.Да?) "Предположим, нам необходимо ввести с клавиатуры N чисел, найти из них наибольшее и вывести его. Для решения этой задачи предлагается следующий алгоритм":
1. Ввести первое число в переменную Max.
2. Ввести следующее число в переменную Next.
3. Если Next>Max, то Max:=Next.
Пункты 2 и 3 повторять, пока не будут введены все числа.
4. Вывести значение переменной Max.
Ввести одномерный массив из 7 целых чисел с клавиатуры и вывести его на экран. Найти его наименьший элемент
вывести одномерный массив из 7 целых чисел с клавиатуры и вывести его на экран. найти его.
Ввести с клавиатуры 10 целых чисел и найти среди них количество нулей и сумму положительных
Нужно ввести с клавиатуры 10 целых чисел и найти среди них а) количество нулей б) сумму.
С клавиатуры вводятся n чисел. вывести на экран наибольшее число и его порядковый номер
Пож. Паскаль
Найти наибольшее из чисел и вывести его на экран
23 Ввести числа А,B,C,D. Найти наибольшее их этих чисел и вывести его на экран.
Решение
Ввести три числа и найти наибольшее из них
Задача: ввести три числа и найти наибольшее из них Не могу понять - где ошибся. Если b или с.
Ввести n вещественных чисел и вывести то из них из них, которое наиболее близко к какому-нибудь целому числу.
Используя цикл, написать программу, обеспечивающую ввод n вещественных чисел и выводящую на экран.
Ввести и вывести массив чисел вручную найти среднее арифметическое его элементов
2. ввести и вывести массив чисел вручную. найти среднее арифметическое его элементов
Ввести с клавиатуры N чисел. Напечатать те из них, которые принадлежат интервалу (1,11) и являются четными
Ввести с клавиатуры N чисел. Напечатать те из них, которые принадлежат интервалу (1,11) и являются.
Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей.
Разработать для программы не менее двух тестов и доказать правильность её работы.
var n, i, j, p, o, n : integer ;
writeln('Введите кол - во целых чисел для проверки') ; readln(n) ;
for i : = 1 to n do
writeln('Введите число : ') ; readln(j) ;
if j = 0 then n : = n + 1 ;
if j> ; 0 then p : = p + 1 ;
if j< ; 0 then o : = o + 1 ;
writeln('Равны ноль : ', n) ;
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму?
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.
Число N вводится с клавиатуры.
Программа в Паскале нужна, пожалуйста?
Программа в Паскале нужна, пожалуйста!
С клавиатуры вводится последовательность из N чисел, положительных и отрицательных.
Какая сумма чисел по модулю больше, положительных или отрицательных?
Написать программу которая запрашивает N целых чисел и сообщает сколько было введено нечетных чисел?
Написать программу которая запрашивает N целых чисел и сообщает сколько было введено нечетных чисел.
Написать программу, которая выводит сумму квадратов пяти целых положительных чисел Числа (как положительные, так и отрицательные) вводятся с клавиатуры?
Написать программу, которая выводит сумму квадратов пяти целых положительных чисел Числа (как положительные, так и отрицательные) вводятся с клавиатуры.
Составить программу, которая считает в формуле, заданной с клавиатуры, колличество плюсов и минусов (программа в паскале)?
Составить программу, которая считает в формуле, заданной с клавиатуры, колличество плюсов и минусов (программа в паскале).
Даны три целых числа?
Даны три целых числа.
Определить, сколько среди них положительных чисел.
Составить программу на языке Паскаль.
Составьте программу в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и определяет произведение нечётных из них?
Составьте программу в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и определяет произведение нечётных из них.
Признаком конца ввода считать ввод числа - 4.
Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран : а) количество нулей в последовательности ; б) количество положительных чисел ; в) количество отрицательных чисел?
Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран : а) количество нулей в последовательности ; б) количество положительных чисел ; в) количество отрицательных чисел.
( На языке Паскаль С + + ).
Помогите пожалуйста, нужно написать программу в паскале которая будет вводить целые числа до 5, подсчитать количество положительных и отрицательных чисел, где 0 будет считаться положительным числом?
Помогите пожалуйста, нужно написать программу в паскале которая будет вводить целые числа до 5, подсчитать количество положительных и отрицательных чисел, где 0 будет считаться положительным числом.
Как создать программу которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения в паскале?
Как создать программу которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения в паскале?
На странице вопроса Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму.
Число N вводится с клавиатуры.
Разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма.
Var n, i, s, c : integer ;
for i : = 1 to n do / / сколько произвольных чисел будет.
readln(c) ; / / вводим произвольные числа
s : = s + c ; / / суммируем
writeln(s) ; / / Вывод суммы
Программа Паскаль абс Определить, является ли число С средним арифметическим чисел А и Б (А, Б, С - вводятся с клавиатуры)?
Программа Паскаль абс Определить, является ли число С средним арифметическим чисел А и Б (А, Б, С - вводятся с клавиатуры).
Составьте программу , в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы?
Составьте программу , в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы.
Программа запрашивает у пользователя количество чисел, которое он будет вводить с клавиатуры?
Программа запрашивает у пользователя количество чисел, которое он будет вводить с клавиатуры.
После этого пользователь вводит числа, а компьютер находит среднее арифметическое только для положительных чисел.
Напишите алгоритм программы, которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение?
Напишите алгоритм программы, которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение.
Помогите?
С клавиатуры последовательно вводятся десять чисел.
Написать программу на паскале, которая вычислит и выведет на экран сумму чисел, кратных 3.
С клавиатуры вводится число N.
Написать программу, которая вычислит и выведет на экран все его делители.
Разработать алгоритм, программу и тест?
Разработать алгоритм, программу и тест.
Дана последовательность из 50 - ти чисел.
Определить есть ли в последовательности числа кратные заданному с клавиатуры числу С.
Написать программу в Паскале?
Написать программу в Паскале.
Пользователь вводит с клавиатуры целое число N.
Определите, делится ли оно на 11.
На паскале написать программу сокращения дроби , где N – целое, M – натуральное число?
На паскале написать программу сокращения дроби , где N – целое, M – натуральное число.
Использовать алгоритм Евклида.
Разработать тесты для проверки правильности работы программы.
На паскале написать программу сокращения дроби , где N – целое, M – натуральное число?
На паскале написать программу сокращения дроби , где N – целое, M – натуральное число.
Использовать алгоритм Евклида.
Разработать тесты для проверки правильности работы программы.
Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали?
Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали.
Нужна программа написанная на паскале!
Написать программу, запрашивающую с клавиатуры целые числа и определяю - щую максимальное и минимальное из них.
Окончание ввода – число 0.
Протестиро - вать программу для последовательности : - 3 5 6 - 11 24 - 1 0.
var x, min, max : integer ;
clrscr ; min : = 0 ; max : = 0 ;
if ((min > ; x) and (x< ; > ; 0)) then min : = x ;
if ((max < ; x) and (x< ; > ; 0)) then max : = x ;
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму?
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.
Число N вводится с клавиатуры.
Написать программу, которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0?
Написать программу, которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0.
Программа в Паскале?
Программа в Паскале!
"Напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел .
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000.
Введенные числа по модулю не превышают 30000.
" Отдал все пункты что есть!
C + + Напишите программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел?
C + + Напишите программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел.
Программа получает на входе целее числа, количество введённых чисел неизвестно, последовательность чисел заканчивается число 0 (0 - признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000.
Введённые числа по модулю не превышают 30000.
Программа должна вывести одно число : разность максимального и минимального чисел.
Составить программу, которая вводит с клавиатуры четыре целых числа a, b, c (каждое число – с новой строки) и выводит на экран минимальное среди них?
Составить программу, которая вводит с клавиатуры четыре целых числа a, b, c (каждое число – с новой строки) и выводит на экран минимальное среди них.
Ничего, кроме этого числа, программа выводить не должна.
Программу на паскаль.
Составьте программу в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и определяет произведение нечётных из них?
Составьте программу в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и определяет произведение нечётных из них.
Признаком конца ввода считать ввод числа - 4.
2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна)?
2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
Написать программу на Паскале : "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел?
Написать программу на Паскале : "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел.
Условие окончания ввода – ввод числа 0.
С клавиатуры вводится целое число, содержащие не более 7 цифр?
С клавиатуры вводится целое число, содержащие не более 7 цифр.
Определить максимальную цифру в этом числе.
Цикл с пред условием.
Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена)?
Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена).
Программа Delphi Заранее благодарю!
текст программы:
var x:integer;
y:real;
begin
writeln('введите целое число');
readln(x);
y:=(5*x+sqr(x))/8;
writeln ('при x=',x,' y =',y);
end.
Одномерный массив.
Упорядоченное множество однотипных элементов, расположенное в строке (или столбце).
В общем виде:
а1, а2, а3, . аn
Описание одномерного массива
var mas: array[1..5] of integer;
Задается массив с именем mas, количество элементов 5, элементы целые числа
имена элементов - mas[1], mas[2] .
Формирование массива. Ввод элементов массива с клавиатуры.
Задача ( урок 9к2-29.11.2021, 9к1-30.11.2021 )
Составьте программу, задающую одномерный массив целых чисел из 6 элементов, вводимых с клавиатуры, и оформите вывод элементов на экран в строчку.
текст программы
var m: array [1..6] of integer;
i: integer;
begin
writeln('ввод элементов');
for i:=1 to 6 do readln(m[i]);
for i:=1 to 6 do write(m[i],' ');
end.
Формирование массива с помощью функции случайных чисел random.
Задача ( урок 9к2-06.12.2021 )
Составьте программу, задающую одномерный массив размерность 10, состоящий из случайных чисел из промежутка от 5 до 22. Оформите вывод элементов на экран в строчку.
Пояснение.
Обратите внимание, что случайные числа задаются функцией random(x). Для того чтобы задать случайные числа из промежутка от a до b есть формула x:=random(b-a+1)+a, в нашем случае
x:=random(18)+5
Составьте программу, которая в одномерном массиве размерностью 12 (элементы случайные числа из промежутка от 1 до 9) подсчитывает количество чётных элементов. Оформите вывод элементов на экран в строчку, вывод количества чётных на следующей строке.
Пояснение Обратите внимание, что условием чётности элемента будем выводить через функцию mod (целочисленный остаток от деления). Четные числа делятся на 2 с нулевым остатком: if w[i] mod 2=0 then k:=k+1
Составьте программу, которая в одномерном массиве размерностью 8 (элементы массива случайные числа из промежутка от 15 до 100) находит максимальный элемент. Оформите вывод элементов на экран в строчку, максимальный на следующей строке .
Пояснение
Обратите внимание, что это задание аналогично задачам на поиск максимального из вводимых с клавиатуры чисел (материал 8 класса), но в данном случае при составление программы используется массив.
Составьте программу, которая в одномерном массиве размерностью 12 (элементы массива случайные числа из промежутка от 0 до 6) находит количество элементов равных 3. Оформите вывод элементов на экран в строчку, количество искомых элементов на следующей строке .
Пояснение
Обратите внимание, что переменная k - счетчик, поэтому начальное значение переменной обнуляем. Условие для подсчета 3 if w[i]=3 then k:=k+1, т.е. если элемент равен 3, то k увеличивается на 1.
Составьте программу, которая в одномерном массиве размерностью 7 (элементы массива случайные числа из промежутка от 1 до 8) подсчитывает сумму элементов меньше или равных 3. Оформите вывод элементов на экран в строчку, количество искомых элементов на следующей строке .
Пояснение
Обратите внимание, что переменная s - накопитель суммы, поэтому начальное значение переменной обнуляем. Условие для подсчета 3 if w[i]
Составьте программу, которая в одномерном массива размерность 20, состоящим из случайных чисел из промежутка от 1 до 100, находится наибольший элемент оканчивающийся на цифру 2. Оформите вывод элементов на экран в строчку.
Пояснение
Обратите внимание, что в данной задаче используем сложное условие. Проверка, что число оканчивается на цифру 2: m[i] mod 10 =2 и сравнение с максимальным max.
max может не поменяется, т.е. в данной последовательности не будет чисел, оканчивающихся на 2, и после цикла нужно поставить проверку на значение max.
Оператор цикла while (цикл ПОКА)
Выполняет действие или действия пока истинно условие. После каждого прохождения тела цикла, условие проверяется и если условие ложно, осуществляется выход из цикла.
Если условие истинно всегда, то происходит зацикливание. Чтобы прервать зациклившуюся программу, следует использовать комбинацию клавиш Ctrl-F2.
Условие - логическое выражение, записанное с помощью логических операторов сравнения.
Составьте программу, которая пока не будет введен 0 запрашивает целые положительные числа с клавиатуры и находит среди них наибольшее. Результат выводится на экран.
var x,max:integer;
begin
writeln('Введите целое число');
readln(x);
max:=0;
while x<>0 do
begin
if max readln(x);
end;
writeln('max=',max);
end.
Задача ( урок )
Составьте программу, которая для любого вводимого с клавиатуры целого числа вычисляет и выводит на экран количество единиц, десятков, сотен и т.д. (например, для числа 7865 - вывод 5 - 6 - 8 - 7)
Пояснение
Обратите внимание, что в данной программе удобно использовать оператор цикла while (пока), с помощью функции mod 10 находим последнюю цифру числа a:= x mod 10 и выводим ее на экран, затем убираем ее с помощью функции div 10 x:=x div 10 и работаем с новым числом и т.д. пока x не станет 0.
var x,a:integer;
begin
readln(x);
writeln('Результат');
while x<>0 do
begin
a:= x mod 10 ;
write(a,' - ');
x:=x div 10 ;
end;
end.
Задача ( урок )
В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников ( a [ i ] – длинна первого катета, b [ i ] – длинна второго катета i -того треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.
текст программы
var a:array[1..10] of integer;
b:array[1..10] of integer;
s:array[1//10] jf real;
i,n,k:integer;sm:real;
begin
sm:=0;
n:=0;
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
b[i]:=random(10)+1;
write(i,':',a[i],',',b[i],' ');
s[i]:=1/2*a[i]*b[i];
if smend;
for i:=1 to 10
if s[i]=sm then k:=k+1;
writeln;
writeln('наибольшая площадь=',sm,' катеты ',a[n],',',b[n]);
writeln(' количество таких треугольников ',k);
end.
Сортировка одномерного массива
Задача ( урок )
Составить программу, которая сортирует элементы одномерного массива размерностью 7 по возрастанию (элементы массивы случайные числа от 10 до 60).
текст программы
var mas:array[1..7] of integer;
i,j,a:integer;
begin
for i:=1 to 7 do
begin
mas[i]:=random(51)+10;
write(mas[i],' ');
end;
for j:=1 to 6 do
for i:=1 to 6 do
if mas[i]>mas[i+1] then
begin
a:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=a;
end;
writeln;
write ('Отсортированный массив ');
for i:=1 to 7 do write(mas[i],' ');
end.
Задача ( урок )
Составить программу, которая в данном массиве: m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1; m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
находит максимальный элемент (элементы) и заменяет его (их) на 0.
текст программы
var m:array[1..10] of integer;
i,max,k:integer;
begin
m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1;
m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
max:=m[1];
for i:=1 to 10 do
begin
write(m[i],' ');
if m[i]>max then max:=m[i];
end;
writeln;
writeln('max=',max);
for i:=1 to 10 do
if m[i]=max then m[i]:=0;
writeln('результат');
for i:=1 to 10 do
write(m[i],' ');
end.
Повторение. Работа со строковыми функциями copy и length.
Составьте программу, которая печатает на экране вводимое с клавиатуры словосочетание из двух слов в обратном порядке (пример ввод: доброе утро; вывод: утро доброе).
Пояснение
Для решения данной задачи воспользуемся оператором цикла while. Вырезая из введенной строки s последовательно по одной букве с помощью функции copy, сравниваем эти символы с пробелом и пока не пробел собираем их в строку s1. Это будет второе слово в новой фразе. Первое вырезаем с символа n+1, количество символов - длина фразы - n.
текст программы
uses crt;
var s,s1:string;
n,d:integer;
begin
writeln('Введите фразу из 2-х слов, между словами 1 пробел');
readln(s);
d:=length(s);
n:=1;
while copy(s,n,1)<>' ' do
begin
s1:=s1+copy(s,n,1);
n:=n+1;
end;
writeln(copy(s,n+1,d-n)+' '+s1);
end.
Читайте также: