Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.12.2018, 22:37   #1
12sasha
 
Регистрация: 19.12.2018
Сообщений: 3
По умолчанию

Здравствуйте!
Помогите пожалуйста написать программу для задачки:
Даны три вещественных числа. Вывести на экран те из них, которые принадлежат интервалу (-6,7;11,2). Если таких чисел нет, то вывести сообщение «ТАКИХ ЧИСЕЛ НЕТ»

Не могу разобраться с условиями if then...
Что не ввожу, выдает ошибку кода

Помогите с написанием программы для решения задачи:

В одномерном массиве из 50 элементов найти наименьший четный элемент массива. Если такого нет, то выведите первый элемент. Результат вывести на экран и записать в файл.

Последний раз редактировалось Вадим Мошев; 20.12.2018 в 14:57.
12sasha вне форума   Ответить с цитированием
Старый 20.12.2018, 14:56   #2
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,578
По умолчанию

Цитата:
Сообщение от 12sasha Посмотреть сообщение
Не могу разобраться с условиями if then...
Что не ввожу, выдает ошибку кода
1. Покажите код.
2. Покажите, как вводите

Цитата:
Сообщение от 12sasha Посмотреть сообщение
В одномерном массиве из 50 элементов найти наименьший четный элемент массива. Если такого нет, то выведите первый элемент. Результат вывести на экран и записать в файл.
Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.
Вадим Мошев на форуме   Ответить с цитированием
Старый 21.01.2019, 15:04   #3
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,752
По умолчанию

1. задаем массив из 3х элементов типа real (var a:array[0..2] of integer)
2. в цикле заполняем массив с клавиатуры (readln)
3. вводим переменную типа boolaen присваиваем ей значение false
4. в цикле проверяем условие: if (a[i]>-6.7 and a[i]<11.2), то выводим элемент и присваиваем значение переменной типа boolaen true
5. после цикла смотрим: если переменная типа булеан false, то выводим сообщение, что элементов в заданном интервале не было
from dark to light)
Алексей_2012 на форуме   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите написать программу 'Трёхцветная раскраска графа Петерсена' нужно написать на языке С# под консольном приложения вижуал студио lysi Фриланс 4 04.07.2017 23:58
написать программу массивы (C++) - Написать функцию выводящую на экран указанную часть таблицы умножения Саша1990 Помощь студентам 1 02.02.2015 09:01
Написать программу для Паскаль 9 класс: составить программу которая печатает таблицу умножения и сложения натуральных чисел goodula Помощь студентам 0 23.01.2014 17:39
Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры ANTON1994 Паскаль, Turbo Pascal, PascalABC.NET 3 09.02.2013 13:53
Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедурую(написать Delphi) BLADIMIR Помощь студентам 3 07.09.2011 16:35