Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Pascal Диалоговая программа

59K
10 декабря 2010 года
ANTON2527
3 / / 27.05.2010
Задача на Pascal'е:
Составьте диалоговую программу угадывания случайно выбранных координат цели в квадрате: по оси х от –10 о 30, по оси у от 2 до 28 c восьми попыток с двойным сообщением корректировщика, например: уменьшить Х, либо: немного уменьшить Х (если отклонение от цели меньше 3).

Помогите решить. Заранее спасибо
29K
10 декабря 2010 года
Енот_в_Засаде
224 / / 09.11.2010
Цитата: ANTON2527

Помогите решить. Заранее спасибо


что конкретно у вас не получается? (ответ программа не принимается:))

59K
10 декабря 2010 года
ANTON2527
3 / / 27.05.2010
что конкретно у вас не получается? (ответ программа не принимается:))


Скажем так не могу решить эту задачу, не знаю как, не умею :)

29K
10 декабря 2010 года
Енот_в_Засаде
224 / / 09.11.2010
Вот вам программа на С#
Код:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
       

        public static bool flag = false; //выставляется в true когда попали в заданную точку

        static void Main(string[] args)
        {    // точка в которую необходимо попасть
            int X = 10;
            int Y = 15;

            for (int i = 0; i < 8; i++)
            {
                if (!flag) //пока не попали
                {
                    fun(X, Y); //выполняем функцию
                }
                else
                {
                    //как только попали выходим из цикла
                    break;
                }
            }
        }

       
        /// <summary>
        /// функция расчёта попадания в точку
        /// </summary>
        /// <param name="X"> Координата Х точки</param>
        /// <param name="Y"> Координата У точки</param>
        static void fun(int X, int Y)
        {
            int x, y;// координаты введенные пользователем
            Console.WriteLine("Введите X:");
            x = Convert.ToInt32(Console.ReadLine()); //ввод координты х
            Console.WriteLine("Введите Y:");
            y = Convert.ToInt32(Console.ReadLine()); //ввод координаты у
           
            if (x != X) // если введенная координата не равна заданной
            {
                if (x <= X - 4) //если отклонение от цели больше 4
                {
                    Console.WriteLine("Возьмите правее");
                }
                if (x > X + 4)//если отклонение от цели больше 4
                {
                    Console.WriteLine("Возьмите левее");
                }

                if (x > X - 4 && x < X) //если отклонение от цели меньше 3
                {
                    Console.WriteLine("Возьмите немного правее");
                }
                if (x < x + 4 && x > X) //если отклонение от цели меньше 3
                {
                    Console.WriteLine("Возьмите немного  левее");
                }
               
            }
            // если введенная координата не равна заданной
            if (y != Y)
            {
                if (y <= Y - 4)//если отклонение от цели больше 4
                {
                    Console.WriteLine("Возьмите выше");
                }
                if (y >= Y + 4)//если отклонение от цели больше 4
                {
                    Console.WriteLine("Возьмите ниже");
                }
                if (y > Y - 4 && y < Y)//если отклонение от цели меньше 3
                {
                    Console.WriteLine("Возьмите немного выше");
                }
                if (y < Y + 4 && y > Y)//если отклонение от цели меньше 3
                {
                    Console.WriteLine("Возьмите немного ниже");
                }
            }
            if (x == X && y == Y)//если попали
            {
                Console.WriteLine("Попали!!!");
                flag = true; //выставляем флаг
            }

        }
    }
}

комменты написал, разобраться несложно, на паскаль, я думаю, сможете переписать
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог