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

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

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

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

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

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

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

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

Последний раз редактировалось Вадим Мошев; 20.12.2018 в 14:57.
12sasha вне форума   Ответить с цитированием
Старый 20.12.2018, 14:56   #2
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 8,004
Репутация: 3920
По умолчанию

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

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

icq: 649899888
По умолчанию

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


03:03.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru