|
|
| Другие темы раздела | ||||||||||||||||||
|
Free Pascal Оператор case - добавить в код недостающие фрагменты
https://www.cyberforum.ru/ free-pascal/ thread680135.html Program EXAMPL1; Var I : integer; X : real; Begin … CASE I OF 1 : X := Sin( X ); 2 : X := Сos( X ); 3 : X := Exp( X ); |
Free Pascal Дана строка символов. Посчитать общее число вхождений английских букв в строку Дана строка символов. Посчитать общее число вхождений английских букв в строку. Добавлено через 1 минуту type str=string; var s1:str; k1:integer; function count(var s:str): integer; var i,k:integer; begin k:=0; | |||||||||||||||||
|
Free Pascal Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу)
https://www.cyberforum.ru/ free-pascal/ thread680049.html Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу). |
Free Pascal Получить матрицу B, каждый элемент bij который равен true при выполнении заданного условия Пусть дана матрица А размером m x n, состоящая из вещественных чисел. Необходимо получить матрицу B размером m x n, каждый элемент bij который равен true, если сумма соседних с аij элементов меньше указанной величины S, и false в противном случае. воспользуйтесь функцией для нахождения соседних элементов. https://www.cyberforum.ru/ free-pascal/ thread680034.html | |||||||||||||||||
|
Free Pascal Написать программу, которая вычисляет периметр выбранной фигуры. Буду очень рад помощи в виде кода программы. Написать программу, которая вычисляет периметр выбранной фигуры. 1 - квадрат, 2 –прямоугольник, 3 - трапеция, 4 – ромб, 5- равносторонний шестиугольник. Использовать оператор выбора. заранее спасибо =) |
Free Pascal Как запустить другую программу. FreePascal WinCE
https://www.cyberforum.ru/ free-pascal/ thread679577.html Столкнулся с проблемой. Никак не могу запустить другую программу. При компиляции под Win32 все отлично. При компиляции под WinCE как я понимаю программа считывает необходимые данные а запустить другую программу не может. Вот код. program Launch; {$mode objfpc}{$H+} uses | |||||||||||||||||
| Free Pascal Найти наибольшее число, получаемое сдвигами 2) К цифрам натурального числа a>9 применяется операция циклический сдвиг влево. Из числа 1730382 получается число 7303821 и т.д. Программа должна: -читать натуральное число a длиной до 100 цифр, -находить и выводить на экран наибольшее число, получаемое сдвигами. (Например у 1730382 - 8217303 наибольшее) Примечание: время прохождения одного теста во всех программах - 1 секунда. https://www.cyberforum.ru/ free-pascal/ thread679558.html |
Найти и вывести на экран минимальное количество прыжков для попадания в точку на расстоянии Free Pascal 3) Кенгуру умеет прыгать по прямой вправо и влево. Длина его первого прыжка - 1 метр, второго - 2, третьего - 4 и т.д. (длина каждого последующего прыжка в два раза больше предыдущего). Через какое минимальное количество прыжков кенгуру окажется на расстоянии dметров от начальной точки O. Программа должна: -запросить расстояние d (натуральное число, 0<d<2147483647=231-1) -найти и вывести на... | |||||||||||||||||
| Free Pascal Программа должна запросить 3 натуральных числа - знаменатели трех дробей, вычислять и выводить на экран наименьший общий знаменатель. 1) Для сложения трех обыкновенных дробей со знаменателями a, b и c (1<a,b,c<1200) нужно найти наименьший общий знаменатель, который не может быть больше 231 - 2147483647. Программа должна: -запросить 3 натуральных числа - знаменатели трех дробей (1<a,b,c<1200), -вычислять и выводить на экран наименьший общий знаменатель Примечание: время прохождения одного теста во всех программах - 1... https://www.cyberforum.ru/ free-pascal/ thread679382.html | Free Pascal парковка помогите решить задачку В городе Новый Нью-Йорк испокон веков повелось делать парковки на N транспортных средств, причем каждое парковочное место на конкретной стоянке имело одинаковый размер. Этот размер определял тип парковки (см. таблицу). Ширина места Какие ТС можно размещать 1 Скейтборд 2 Велосипед 3 Мотоцикл 4 ... https://www.cyberforum.ru/ free-pascal/ thread679264.html | |||||||||||||||||
|
Вася и Петя ограбили банк: вычислить, сколько монет украл Петя Free Pascal Вася и Петя ограбили банк. Каждый из них смог вынести по одному мешку с золотом. Вскоре грабителей поймали. Для того, чтобы смягчить наказание, Вася и Петя стали помогать следователям. Они охотно рассказали, как проходило ограбление. Вася сообщил украденную им сумму, но сколько взял Петя, никто из них вспомнить не смог. Как выяснили следователи, в банке каждый мешок с золотом был... |
Free Pascal Помогите королю наладить почтовую систему, написав программу, которая найдет нужный город
Интересная задачка, но не знаю с чего начать... Помогите с решением!!!
Имя входного файла input.txt
Имя выходного файла output.txt
Максимальное время работы на одном тесте 2 секунды
Ограничение по памяти 64 МБ
В некотором царстве, в некотором государстве издревле повелось строить дороги, идущие с севера на юг или с запада
Наверх
| |||||||||||||||||