Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15

@Pianist92 · Регистрация: 20.10.2012

Author24 — интернет-сервис помощи студентам

3.Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа.

@SW · 21.10.2012, 18:22

вам нужно консольное приложение или нет?

@rafffkaaa · 21.10.2012, 19:58

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
a: array [1..10] of byte;
i: Integer;
begin
for i:=1 ro 10 do
Readln(a[i]);
for i:=1 to 10 do
begin
  if a[i] > 15 then
    a[i] := 15;
  Writeln(a[i]);
end;
end.

@Pianist92 · 24.10.2012, 12:52 **[ТС]**

нужно не консольное приложение

Добавлено через 11 минут
нужно сделать программу с 3 разными циклами 1.Оператор цикла с предусловием while do
2 Оператор цикла с постусловием repeat until
и 3е. Оператор цикла for do

Добавлено через 3 минуты

Сообщение от kta87

вам нужно консольное приложение или нет?

нужно сделать программу с 3 разными циклами
1.Оператор цикла с предусловием while do
2.Оператор цикла с постусловием repeat until
3.Оператор цикла for do

@SW · 24.10.2012, 20:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);// сравнение чисел
var
  lb1, lb2: real; // переменные, которым присваивается значения из ListBox 
  i: Integer; // Переменная цикла
begin
  for i:= 0 to 9 do
   begin
     lb1:= StrToFloat(ListBox1.Items[i]);
     if lb1 > 15 then lb2:= 15 else lb2:= lb1;
     ListBox2.Items[i]:= FloatToStr(lb2);
   end;
end;
 
procedure TForm1.Button2Click(Sender: TObject); // процедура заполнения ListBox1 из Edit1
begin
  if edit1.Text <> '' then ListBox1.AddItem(Edit1.Text, nil); // если Edit не пустой, то добавить! 
end;

Остальные циклы попробуй сам по аналогии... Учебниками нужно пользоваться!

Добавлено через 16 минут

Pascal
1
while lb1 <= 15 do lb2:= lb1 else lb2:= 15;

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@Pianist92 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 7

	Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15 20.10.2012, 13:44. Показов 3248. Ответов 4 Метки нет (Все метки) 3.Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа. 0

@SW 39 / 11 / 3 Регистрация: 08.09.2012 Сообщений: 215
	21.10.2012, 18:22
	вам нужно консольное приложение или нет? 0

Опции темы