|
|
Другие темы раздела | |
PascalABC.NET Решение нелинейного уравнения методом хорд
https://www.cyberforum.ru/ pascalabc-net/ thread2168945.html Нужно составить программу нахождения корней нелинейного уравнения на заданном отрезке методом хорд: а) x + cos(x^0.52 + 2) = 0 б) 3(ln x)^2 + ln x - 5 = 0 в) sin (x^2) + cos (x^2) - 10x = 0 |
Фоновый режим PascalABC.NET Как сделать что бы программа работала в фоновом режиме??? |
PascalABC.NET Floodfill. Не заливается
https://www.cyberforum.ru/ pascalabc-net/ thread2168743.html uses graphABC; var i,c,z,x1,y1,x2,y2,x,y:integer; A:array of point; begin SetPenWidth(1); //солнце SetPenColor(ClYellow); SetBrushColor(ClYellow); x1 := -50; y1 := -45; x2 := 80; y2 := 60; ellipse(x1, y1, x2, y2); |
PascalABC.NET Перевод кода из C в Pascal ABC.NET Здравствуйте, помогите плз с переводом кода из С в Pascal ABC.net. необходимо перевести данный код в Паскаль,возможно ли это сделать, буду премного благодарен #ifdef little_endian /* Eg: Intel */ #include <dos.h> #include <graphics.h> #include <io.h> #endif #include <math.h> #include <stdio.h> #include <stdlib.h> #include <time.h> https://www.cyberforum.ru/ pascalabc-net/ thread2168668.html |
PascalABC.NET Алгоритм шифрования Blowfish Доброго времени суток, требуется написать алгоритм шифрования типа Blowfish, есть уже небольшие наработки с данным алгоритмом, но проблема возникла с функцией Фейстеля, не совсем понимаю как ее реализовать в рамках моего алгоритма... В константах объявлены P и S массивы var key: String; superkey: cardinal; procedure crypton;//алгоритм расширения ключа var K: cardinal; n, i:... |
PascalABC.NET Сумма ряда
https://www.cyberforum.ru/ pascalabc-net/ thread2168657.html Добрый день, помогите выполнить задание по информатике |
PascalABC.NET Найти площадь треугольника через заданную сторону квадрата
https://www.cyberforum.ru/ pascalabc-net/ thread2168521.html найти площадь треугольника через заданную сторону квадрата |
PascalABC.NET Музыкальный плеер Как сделать чтобы нельзя было одновременно включать несколько песен или одну и ту же самую?? В данный момент при нажатии на другие кнопки песен, прошлая продолжает играть {$apptype windows} {$reference 'System.Windows.Forms.dll'} {$reference 'System.Drawing.dll'} {$reference 'PresentationCore.dll'} {$reference 'System.Windows.Forms.dll'} uses System.Windows.Forms, |
PascalABC.NET Как исправить ошибку? Хелп, почему перед "else if Otvet = 'Нет' then" ошибка - ожидалось '.' ? Program Chatbot; https://www.cyberforum.ru/ pascalabc-net/ thread2168390.html |
PascalABC.NET Мелькание окружностей
https://www.cyberforum.ru/ pascalabc-net/ thread2168261.html uses GraphABC; const Size = 60; // размер квадрата Shift = 10; // отступ от квадрата MinSize = 10; // минимальный размер квадрата MaxSize = 48; // максимальный размер квадрата MinR = 10;// минимальный радиус окружности MaxR = 70; // максимальный радиус окружности PercentR = 30; // количество процентов от радиуса MaxH = 200; // высота треугольника |
Сформировать новую матрицу B, изъяв из матрицы A строку, в которой расположен максимальный элемент PascalABC.NET Здравствуйте. С Новым годом всех ! Помогите, пожалуйста, дорешать задачу : Сформировать новую матрицу B, изъяв из матрицы A строку, в которой расположен максимальный элемент среди элементов главной диагонали. program 1; const n=4; m=4; var A:array of real; max,imax:real; i,j:integer; var B:array of real; begin |
PascalABC.NET Однобайтовое беззнаковое число Как можно проверить, равны ли между собой левая и правая половина двоичной записи однобайтового беззнакового числа А (A:byte)? if (A shl 4) = (A shr 4) then write(ДА); if A*16 = (A and $F0) then write(ДА); if (A shr 4) = (A and $F) then write(ДА); https://www.cyberforum.ru/ pascalabc-net/ thread2167846.html |
3 / 3 / 0
Регистрация: 26.11.2017
Сообщений: 30
|
|
0 | |
Интересная математическая задача - PascalABC.NET - Ответ 1200148904.01.2018, 14:25. Показов 1573. Ответов 2
Метки (Все метки)
На очень большом листе клетчатой бумаги нарисовали систему координат. В точке (0; 0) маленький робот. Он может выполнять команды RIGHT, LEFT, UP, DOWN, смещаясь на единичный отрезок в соответствующем направлении. Вася пишет программу для робота, состоящую ровно из 12 команд и приводящую его в точку с координатами (6; 4). Ему стало интересно: а сколько всего существует таких программ? Помогите ему ответить на этот вопрос. В качестве ответа укажите одно натуральное число — количество таких команд.
Комментарий. Если робот находится в начале координат и выполнил команду RIGHT, он окажется в точке (1; 0). Если после этого он выполнит команду LEFT, то вернется обратно в точку (0; 0). Если теперь он выполнит команду UP, то окажется в точке (0; 1), а если затем выполнит команду DOWN, то опять вернется в точку (0; 0). Программа робота – это набор команд. Программы, отличающиеся перестановкой команд, считаются различными. Например, есть 9 различных программ, состоящие ровно из 3 команд, приводящие робота из точки (0; 0) в точку (1; 0): RIGHT LEFT RIGHT; UP DOWN RIGHT; DOWN UP RIGHT; UP RIGHT DOWN; DOWN RIGHT UP; RIGHT UP DOWN; RIGHT DOWN UP; RIGHT RIGHT LEFT. Может кто подкинет идейку? Вернуться к обсуждению: Интересная математическая задача PascalABC.NET
0
|
04.01.2018, 14:25 | |
Готовые ответы и решения:
2
Линейная интерполяция (интересная задача) Математическая задача Математическая задача Математическая задача |
04.01.2018, 14:25 | |
04.01.2018, 14:25 | |
Помогаю со студенческими работами здесь
0
Математическая задача Математическая задача на C++ Математическая задача в С++ Математическая задача |