Форум программистов и сисадминов КиберфорумКиберФорум - форум программистов и системных администраторов. Бесплатная помощь в решении задач по программированию, математике, физике и другим наукам, решение проблем с компьютером, операционными системами. |
|
Темы раздела PascalABC.NET
Getpixel не понять как работает
getpixel не могу понять как работает не возражает цвет
Добавлено через 32 секунды
var PixelColor:=getpixel(0,0);
if PixelColor =clwhite then write(1) else write(2);
if PixelColor...
Перевести число в заданную систему счисления и найти разность между произведением и суммой его цифр
Задано натуральное число n. Необходимо перевести его в k-ичную систему счисления и найти разность между произведением и суммой его цифр в этой системе счисления.
Например, пусть n = 239, k = 8....
Мода LINQ и безопасность
То ли мода, то ли AI, то ли шаблон, то ли уже нормальная практика при ограниченной памяти применять подходы вродеvar words := new SortedSet<string>(readlines('total.txt')
.Where(x->not...
Макс цифра
найти самую большую нечетную цифру в числе оно не превышает 10 в 9 степени
Почему объекты ведут себя по разному в описанных процедурах и основном блоке?
Вот есть программа, в ней объявлен класс, у него есть анимация изменения состояния, у объекта этого класса эта анимация работает, но только в главном блоке, в регистраторе нажатий, например, оно уже...
Последовательность 0 и 1
### var a:=RS; var b,c,i:int;
for i:=1 to length(a) do begin
if a='0' then begin
b:=b+1;
if b>c then c:=b
end
else
begin
if b > c then
c:=b; b:=0;
Число Е
Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче будем считать, что число Е в точности равно 2.7182818284590452353602875.
Входной файл INPUT.TXT...
Единичный НОД
Заданы два натуральных числа в десятичной системе счисления, состоящие из единиц. В первом числе ровно N единиц, а во втором их ровно M. Требуется найти НОД этих чисел.
Напомним, что НОД...
Задать поворот картинки в PropertyItem
Попытка приладить пример для C# не удалась, а для PascalABC.NET никакой информации не нашлось
procedure Form1.button15_Click(sender: Object; e: EventArgs);
var
pr:...
Упаковка чисел
При передаче данных по сети важно их эффективно кодировать, чтобы лучше использовать пропускную способность канала. Мы опишем процедуру декодирования чисел при одном эффективном способе их...
Сократить код если это возможно
### var(a,b):=RI2;BI.modpow(a,b,10).Pr
Требуется найти сумму от 1 до N
вроде бы простая задача, однако n<10100 я бы и сам решил, но слишком уж маленькие познания в коротком коде
### var n:=ri; var i:int; var b:bi;
for i:=1 to n do
b:=b+i;
b.pr
заранее...
Произведение цифр
Решал задачу с ACMP на Паскале. С таким условием
Требуется найти наименьшее натуральное число Q такое, что произведение его цифр равно заданному числу N.
Входные данные
В единственной строке...
Написать программу для вычисления производной
Здравствуйте, помогите, пожалуйста, с написанием программы. Честно, я не связана с программированием, и уже мало, что помню с первого курса информатики, прошло много лет.
\nu = {e}^{0,5x}\times...
Сократить код
Есть код, можно его сократить? Просто не совсем разобрался еще в сокращении кода
### var (a,b,k):=RI3;
for var i:= 1 to k do
a := 10*(a mod b);
(a div b).pr
Не работает title
Пользовался нейросетью Бегемот все должно работать.
Очень плохо тратить время на такую ерунду...
Хочу позагружать изометрические картинки по типу градсима на форму без кнопок.
uses GraphABC,...
Вычислить корень уравнения методом хорд
Уравнение: sin x + cos x = 0 Метод: хорд
Краткое содержание работы:
1) Составить программу вычисления корня нелинейного уравнения f(x) на заданном
отрезке, используя метод в соответствии с...
Праздничный ужин
Рядом с офисом компании, в которой работает программист Джон, открылось новое кафе. Директор компании решил провести там новогодний ужин.
Меню праздничного новогоднего ужина в кафе состоит из k...
Длинный корень
Длинный корень
(Время: 1 сек. Память: 16 Мб Сложность: 67%)
По заданному натуральному числу А требуется найти наибольшее число В такое, что B2 ≤ A.
Входные данные
Во входном файле INPUT.TXT...
Список из списков
Пожалуйста подскажите как сделать список из ровно 100000 списков? При этом чтобы каждый список был независимым. Вот часть кода который я хотел использовать для решения задачи из ЕГЭ. Здесь возникает...
Как можно сделать игру Wordly на GraphABC
Как можно сделать игру Wordly на GraphABC?
Если не трудно скиньте код пожалуйста
Как сделать массив данных с определением через строку
Сделал так, но не работает.
uses crt;
begin
name: array of string = ('admin','user1','user2');
end.
Иногда балуюсь этим языком тк все остальное для меня труднее.
Нужно увеличение через inc больше чем на 1
Знаю можно обвернуть, но точно помню где-то видел увеличить можно одной функцией.
Добавлено через 48 минут
Ой ребята нагуглил.
inc(x,123);
Изменить размер шрифта в списках палитры и инспектора Windows.Forms
Как увеличить размер шрифта в списках палитры и инспектора дизайнера Windows.Forms?
Что означает конструкция?
Здравствуйте. Подскажите, пожалуйста: вот есть код, найденный на Вашем форуме. Что означает указанная конструкция?
В частности интересует двоеточие после SimplePaprotnikData. Это метка или что...
"Параметр цикла for должен описываться в заголовке цикла", как исправить?
Люди! Пожалуйста помогите исправить ошибку: "Параметр цикла for в pascalABC.net должен описываться в заголовке цикла".
program i1;
uses crt;
var
v,a,b,c,d,i,j:integer;
...
Online компилятор
Здравствуйте!
Подскажите, существует ли онлайн компилятор PascalABC или PascalABC.NET?
Такой, чтобы на модуль graphABC не ругался
Для настоящих гулей (1000-7)
Для вас есть простой код , который может считывать 1000-7 до 0.
Настоящие ценители "Токийского гуля" оценят
program deadinside;
uses crt;
var kaneki:integer;
begin
kaneki:=1000;
while...
Получить случайное трехзначное число и вывести его отдельные цифры
Получить случайное трехзначное число и вывести его отдельные цифры :
получено число 123
сотни 1
десятки 2
единицы 3
Добавлено через 21 минуту
var a,b,c,x:integer;
begin
x:=random...
Нарисовать квадрат
Здравствуйте!
Написал программу, которая выводит на экран квадрат:
program kvadrat;
uses graphABC;
begin
line (100,195,190,195);//основание
line (100,195,100,98);//левая сторона квадрата...
Как записать уравнение в Паскаль?
R=x^2(x+1)/b-sin^2(x+a)
S=sqrt(xb/a)+cos^2(x+b)^3
как правильно их записать в Паскаль?
то, что по коду накидал прилагаю...
Program lab_2(input,output);
var
a,b,x,R,S: real;
begin...
Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/»)
Здравствуйте. Прошу помощи.
Уровень C. Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/»). Выражение вводится как...
Определить, лежат ли точки в одной координатной четверти
Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет (все координаты отличны от нуля).
Входные данные
Вводятся 4 числа: координаты...
Задать цвет фона
Как в pascal abc.net задать цвет фона
GetBkColor не работает
Как загрузить картинку
Подскажите как исправить код PascalABC на PascalABC.net?
Сам код:
write ('Введите Ф.И.О.: ');
read (n);
clrscr;
y:=loadpicture(n);
drawpicture(y,0,0);
пишет что loadpicture и drawpicture...
Код Змейки на Паскаль ABC.NET
Срочно нужен код змейки. Т.е. что нужно,что бы было в ней:(примерно:файлы,списки,графика в коде было):нужно что бы было меню с кнопками(Новая игра,настройки(а в ней уровень сложности),рекорды,выход)....
Написать функцию, которая «переворачивает» число, то есть возвращает число, в котором цифры стоят в обратном порядке
Здравствуйте. Накопились некоторые долги, которые откладывал из-за того, что что-то не получалось с решением. Прошу помощи.
Напишите функцию, которая «переворачивает» число, то есть возвращает...
Определить, за какое наименьшее время удастся поджарить с обеих сторон n котлет
Котлеты. На сковородку одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время удастся поджарить с обеих сторон n котлет....
Цикл: в последовательности чисел определить сумму всех чисел, кратных 6 и оканчивающихся на 4
Напишите программу, которая в последовательности чисел определяет сумму всех числе,кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа , количество введённых чисел...
В текстовом файле найдите длину самой длинной подцепочки из символов "C"
В текстовом файле k7-0.txt находится цепочка из символов латинского алфавита A, B, C. Найдите длину самой длинной подцепочки, состоящей из символов C.
Змейка на паскале. Хвост
Ребята, помогите пожалуйста!
Делаю змейку на PascalABC и никак не могу сделать нормальный рабочих хвост, как в классической змейке
Накиньте ,пожалуйста, идей, а лучше код)
Вот мой код:
Uses...
Определить количество чисел, кратных 3 и оканчивающихся на 2
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности , а...
Program1.pas(7): Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла. Как исправить?
Program1.pas(7) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла. Как исправить ?
var i, n, chislo: integer;
f, g, h: text;
begin
n:=5;
assign(f, 'tovar0.txt');...
Игра "змейка"
заканчиваю писать игру "змейку". Помогите сделать так, чтобы после отпускания клавиши змейка двигалась в том же направлении или менял это направление. вот код:
program n_13;
uses GraphABC,...
Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R
Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа).
Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка "Встречено '.', а ожидалось ';'". Помогите, пожалуйста, решить ее.
Program Maximum_potok;
Uses Crt,GraphABC;
Label Home;
Const
M=19;
R=200;
Type
...
Есть ли PascalABC.NET для Mac OS X?
Есть ли PascalABC.NET для Mac OS X?
Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта
Нужно нарисовать 100 пикселей в случайном порядке
Выдаёт ошибку не выводит пиксели на экранuses GraphABC;
type
tLocation=class
private
x,y:integer;
col:Color;
public
...
Как сложить два числа в паскале
Как сложить два числа в паскале?
Я работаю в паскале в первый день, даже не могу складывать ((((
Символьное программирование
Здравствуйте, не могу правильно составить условие к этой задаче.
program qq;
var n,L, i: integer;
s: string;
f: text;
begin
assign(f, '24-s1.txt');
reset(f);...
Заполнить массив из 10 элементов случайными числами в интервале [0.100] и отсортировать первую половину по
Может кому нибудь да пригодится) Стараюсь все делать по шагам и чтобы было понятно каждому.
Иногда вижу простые программы, но составленные очень запутанным способом. Поэтому желаю чтобы все...
Библиотека NETSquirrel для .NET и .NET Core
NETSquirrel - идейное продолжение и обобщение PABCSystem на платформы NET и NETCore. Её цель: сделать переход на другие .NET языки с PascalABC.NET и обратно наиболее безболезненным. Для PascalABC.NET...
Дано целое число. Если оно является положительным, то прибавить к нему 1
Постановка задачи такова:
Дано целое число. Если оно является положительным, то прибавить к нему 1, если отрицательным, то вычесть из него 2, если нулевым, то заменить его на 10. Вывести полученное...
Простая игра "гонки"
задали такое задание, сделать игру "гонки"
вроде все сделал и все бы ничего, но когда гонка проходит и начинается следующая гонка то там текст ложится сверху на старый текст((( как это исправить?...
Заливка замкнутой области
Здравствуйте!
Начал изучать графику языка PascalABC.NET написал следующую рабочую программу:
uses graphABC;
begin
SetPenColor(clBlue);
line (0,200,400,400);
line (10,205,10,400);
line...
Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
Помогите Пожалуйста
Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3
Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3. Программа получает на вход целые числа, количество введённых чисел неизвестно,...
Олимпиадная задача по программированию. PascalABC.NET
Здравствуйте, я готовлюсь к школьной олимпиаде по информатике, не могу решить задачу (85 баллов из 100). Помогите, пожалуйста.
Условие
В этом году третий раз одна известная компания проводит...
Написать программу, которая переводит переданное её целое число в двоичный код
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру.
Входные данные
Входная строка содержит целое число N .
Выходные...
Преобразование строки в число
Программа преобразует введенную строку в число. Но на 9 строке есть ошибка: Нет перегруженной подпрограммы с такими типами параметров. Что не так? Ведь данная процедура стандартна
var
st:string;...
Сколько символов "Звёздочка " будет напечатано на экране при выполнении вызова F(7)?
Добрый день. Решаю сейчас варианты ЕГЭ и наткнулся на "рекурсивный алгоритм". Прошу не советовать "загуглить".
Дан код (переписан символ в символ, как в варианте) :
Procedure F(n: integer);...
Написать программу, которая вычисляет сумму первых n натуральных чисел
цикл с параметром for
1. Написать программу, которая вычисляет сумму первых n натуральных чисел.
помогите написать. пожалуйста!!
Ошибка Неизвестное имя 'LoadPicture'
Составил программу,запускай и пишет: Неизвестное имя 'LoadPicture'
Вот сама программа
program upr1a;
uses crt,GraphABC;
var pic:integer;
begin
SetWindowSize(500,500);
...
Напечатать минимальное число, большее 200, которое нацело делится на 17
Напечатать минимальное число, больше 200, которое нацело делится на 17. Желательно с помощью While
Все задачи для Robot
Методом подбора выяснил, что существуют задания a1,...,a8, c1,...,c16, p1...p15.
А где можно посмотреть весь список заданий для исполнителя Robot?
Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза
Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза.
Результат вывести на экран.
Дано двухзначное число. Определить является ли сумма его...
Нет перегруженной подпрограммы с такими типами параметров
В 47 строке ошибка: Нет перегруженной подпрограммы с такими типами параметров. Нужно вывести фамилии по месяцам: январь:...., февраль:... и т.д. Как правильно выполнить поиск?
type
Month =...
Каков начальный размер окна GraphABC?
Каков Начальный размер окна GraphABC?
Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n
Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n.
Нарисовать треугольник
Написать программу, изображающую треугольник.
Как создать кнопки с событиями
Как сделать кнопки в паскале , на форуме уже есть такая тема , но там переходит на другой сайт , где объяснение уходит совсем в другую сторону.
Прошу расскажите(напишите) как выглядит программа: на...
Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А
const N = 10;
var
a: array of integer;
b: array of integer;
i: byte;
begin
randomize;
for i:=1 to N do begin
a := random(100) - 50;
writeln('a=',a);
Чем отличаются между собой стек очередь или список?
Ребят,чем отличаются между собой стек очередь или список?
Ошибка времени выполнения: Индекс находится вне границ массива
Здравствуйте!
Столкнулся с ошибкой:
var f: textfile; n: longint;
text: string; s: char;
begin
assignfile(f,'file.txt');
reset(f);
while (not eof(f)) do
begin
Какое количество деталей может быть получено из имеющегося N кг сплава?
Добрый день! Помогите, пожалуйста, решить задачу:
""Детали"
Имеется N кг металлического сплава. Из него изготавливают заготовки массой K кг каждая. После этого из каждой заготовки вытачиваются...
Перевод из десятичной в двоичную по блок схеме
Реализовать на Паскале алгоритм перевода чисел из десятичной системы в двоичную данной блок-схемы
Блок схема
Ошибка "ожидалось имя переменной", как исправить?
var
x:=real;//делимое
y:=real;//делитель
a:=real;//частное
b:=real;//остаток
begin;
write ('введите делимое' );
readln (x);
write ('введите делитель' );
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной област
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае:
программа PascalABC.NET
В текстовом файле найдите длину самой длинной подцепочки, состоящей из одинаковых символов
В текстовом файле k8-0.txt находится цепочка из символов, в которую могут входить заглавные буквы латинского алфавита A…Z и десятичные цифры. Найдите длину самой длинной подцепочки, состоящей из...
В кассе есть монеты по 2, 5 и 10 рублей. Сколькими способами можно выдать сдачу на некоторую сумму Sum, значен
Какая то дичь, нужно сделать с for
Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей
Дано натуральное число N (N<100). Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей. (Использовать цикл в цикле, желательно, как можно проще).
Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [10,50]
Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне , выводит его на экран, а затем находит индексы всех элементов, равных введённому числу X. Программа...
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Желательно используя While
Ошибка: Нет перегруженной подпрограммы с такими типами параметров...
Нет перегруженной подпрограммы с такими типами параметров...
Program T7_10;
uses crt;
type
zakaz = record {Запись для описания параметров заказа}
namedetali: string;...
Напишите функцию, которая заменяет во всей строке все римские числа на соответствующие десятичные числа
Пример:
Введите строку:
В MMXIII году в школе CXXIII состоялся очередной выпуск XI классов.
Результат:
В 2013 году в школе 123 состоялся очередной выпуск 10-х классов.
Ввод текста в graphABC
Что нужно прописать что-бы можно было вводить текст в окнах логина и пароля ?
uses graphABC;
Begin
setwindowsize(1280,680);
FloodFill(30,30,clGoldenrod);
rectangle(540,130,1140,180);
...
Генерация случайного цвета
Здравствуйте! Помогите в среде pascal реализовать генерацию случайного цвета. Возможно ли это сделать?
Задание.
Сгенерировать новые пиксели взамен улетевших. (сделано)
Ввести условие...
Калькулятор
Решил написать калькулятор с графическим интерфейсом, который будет реагировать на мышь. Основу интерфейса сделал, а вот как соединить его с функционалом не очень понимаю. Кто-то может подсказать?...
Вывести на экран четные трехзначные числа
Пожалуйста помогите
Где взять модуль GraphABC?
Здравствуйте! Вопрос глупый, но где достать этот модуль? Нигде не могу найти.
Определите, какое количество элементов последовательности равны ее наибольшему элементу
Последовательность состоит из натуральных чисел и завершается числом 0. Определите, какое количество элементов этой последовательности, равны ее наибольшему элементу.
ввод :1 7 9 0
вывод 1
ввод: 1...
Дано натуральное число n. Найти факториал этого числа (n!)
Дано натуральное число n. Найти факториал этого числа (n!). Сделать три решения задачи: 1) с использованием цикла For; 2) While; 3) Repeat.
Pascal ABC выдает ошибку "Неизвестное имя 'n'"
Pascal ABC выдает ошибку где её быть по сути не должно
Проблему выдает в 3 строчке кода:
1.pas(7) : Неизвестное имя 'n'
Program A1;
uses Crt;
var A: Array of integer;
C: Array of...
Встречено 'procedure', а ожидался оператор
program lab5;
type arr=array of integer;
const n=3;
var a:arr;
i1,j1,k1,sum:integer;
m:boolean;
procedure LocMin(const a:arr; i,j,k:integer; var Min:boolean);
//var i,j,k:integer;...
Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае
Помогите пожалуйста решить задачу!
Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Центрирование текста и размер шрифта
Как сделать что бы в паскале в graphabc текст выводился по центру окна, и как изменить размер шрифта
Добавлено через 8 минут
и как сделать отступ между строками при выводе?
Вычислить сумму цифр числа N
привет всем! я тут новенький, и надеюсь, что пишу туда куда нужно.
есть одна проблема.
решаю задачу:
Дано натуральное число N. Напишите функцию int SumOfDigits (int n) (C/C++), function...
Перевод заданного количества секунд в часы, минуты, секунды
Нужно написать программу которая по заданному количеству секунд вычисляет сколько прошло часов, минут, секунд. Не с начала суток, а из введенного количества секунд.
Подсчитайте количество натуральных делителей числа x
Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x2109).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите единственное число - количество...
Ошибка : Нельзя преобразовать тип array [1..8] of integer к integer
Дана целочисленная матрица В размером 5х8. Получить массив С из 0 и 1, в котором Ci=1, если в i –ой строке матрицы есть хотя бы один отрицательный элемент, и Ci=0 в противном случае.
const
n=5;...
Как подключить модуль graph
program UseGraphical;
Uses
Graph;
Var
GraphDriver, GraphMode: Integer;
Begin
GraphDriver := 0;
InitGraph(GraphDriver, GraphMode, '');
End.
Вывести четные элементы
Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами.
Входные данные
Сначала задано число N — количество элементов в...
Нет перегруженной подпрограммы с таким количеством параметров Val
программа на нахождения суммы двух больших чисел, код скопировал кое с какого сайта, при компиляции выдает ошибку
"Нет перегруженной подпрограммы с таким количеством параметров Val"
я понимаю что...
Составьте программу подсчета площади равнобедренного треугольника.
Составьте программу подсчета площади равнобедренного треугольника. Если площадь треугольника четная, разделить ее на 2, в противном случае вывести сообщение "Не могу делить на 2!"
Ошибка "ожидался тип"
4 строка ошибка "ожидался тип" что не так?
function poisk(slovo,adres:string):string;
var sravnislovo:string;
simvol:char;
fail:text;
begin
assign(fail,adres);
reset(fail);
...
Получить текущее системное время
Здравствуйте! Пожалуйста, подскажите, какой командой в Pascal ABC.net можно получить системное или BIOS-овское время (задача - вывести текущее время на экран).
Запишите на языке паскаль программу решения задачи
Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30. Пожалуйста по подробней и по проще, мы мало еще паскаля изучили. (сейчас проходим массивы)
В файле записано не более 100 чисел. Отсортировать их по возрастанию последней цифры и записать в другой файл
Прошу помочь с заданием. https://www.cyberforum.ru/pascalabc/thread924809.html Это не подходит,т.к. программа не рабочая.
Как задать диапазон ввода значения Х от 0,1до 0,6
Уважаемые программисты!
В ходе написания программы для расчёта значения по формуле столкнулся со следующей проблемой...
В задание указано, что вводимое в программе значение Х должно лежать на...
Игра
Начал писать простенькую текстовую игру, но начал сталкиваться с проблемами написания, которые сам не могу решить. Кто может подключиться к разработке - пишите. Жду)
Даны три натуральных числа — длины стороны треугольника. Определите, существует ли треугольник с такими сторонами
Даны три натуральных числа — длины стороны треугольника. Определите, существует ли треугольник с такими сторонами, и если “да”, то определите его тип (остроугольный, тупоугольный, прямоугольный)....
Программа орел и решка
Помогите пожалуйста, нужно изменить программу так чтобы она показывала если выпадает 1(Решка) вы выиграли, иначе проиграл и тоже самое с 0(орлом), вот сама программа
program igra;
var
i,a,b,c:...
Что означает желтая полоса, подсвечивающая строку кода при выполнении программы
Кто может ответить, за что отвечает эта желтая полоса?
Встречено var, а ожидался идентификатор
8 строка
program ex;
uses crt;
type
node=^zapis;
zapis=record
ocenka:integer;
left,right:node;
var
uk:node; //ссылочная переменная
Ошибка "Неизвестное имя"
При сортировки базы данных, возникает ошибка "Неизвестное имя count", хотя в var и перед циклом она обозначена. Всю программу не пишу, потому что она очень большая. Вот часть с ошибкой:
procedure...
Ввести с клавиатуры два числа. Определить, что больше: сумма квадратов или квадрат суммы этих чисел
Ввести с клавиатуры два числа. Определить, что больше: сумма квадратов или квадрат суммы этих чисел. Ответ вывести в виде сообщения.
В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в PascalABC у меня не работали в .net
Задача на максимум и минимум трех чисел
Найти: Z=(min(a,b,c))/(max(a,b,c))
Программа:
var a, b, c, min, max, Z: real;
begin
writeln('Введите три числа');
readln(a,b,c);
begin
if (a>=b) then max:=a
else max:=b;
if (max<=c) then...
Программное решение 16-го задания ЕГЭ по информатике
Здравствуйте, форумчане. В ЕГЭ по информатике существует 16-е задание и оно связанно с двумя рекурсивными функциями с возвращаемыми значениями. Это задание можно решить на бумаге, и это не составит...
Как создать exe в pascal abc.net?
Как создать exe в pascal abc.net? Хоть без иконки! Подскажите пожалуйста.Я тут какую-ту игру змейку в pascal abc net. создал.Хочу сделать из нее exe.
Как установить картинку на фон формы
Народ подскажите как в PascalABC.NET установить картинку, именно КАРТИНКУ на фон, точнее в правую часть окна? Желательно код с комментариями.
На сколько квадратов можно разрезать данный прямоугольник
Помогите, пожалуйста, решить! Очень надо, но не знаю как их решать!
4. Стороны прямоугольника заданы числами N и M. Составить программу, которая будет находить, на сколько квадратов, стороны...
Ввести с клавиатуры 3 числа и вывести на экран наибольшее из них
13. Напишите программу, которая позволяет вводить с клавиатуры 3 числа и выводить на экран наибольшее из них.
Указание: опишите алгоритм сначала на языке блок-схем и лишь затем — на языке Паскаль.
Как преобразовать тип "integer" в тип "string"?
Всем привет,как преобразовать тип "integer" в тип "string"?
дан код:
(1)
var f:text;
s:string;
i:integer;
begin
assifn(f,t.txt);
rewrite(f);
RGB - сколько там вариантов цветов и оттенков?
Незнаю, правильно ли я определился с разделом
Оператором floodfill к примеру, можно закрасить любым цветом используя RGB(red green blue) - свойство.
Известно что все цвета составляются из...
Char в integer
Доброго времени суток! Как преобразовать тип Char в Integer? Заранее спасибо
Как сделать бесконечный цикл операции
program procenti;
var a,b,c,d,e: real;
begin
writeln(' Сумма ');
readln(a);
b:=(5*a)/100;
c:=(8*a)/100;
d:=(15*a)/100;
e:=(20*a)/100;
writeln(' 5% - ', b);
Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
writeln ('Найти корни уравнения!');
Writeln('Введите данные переменных a,b,c');
readln(a,b,c);
...
Напишите программу, которая переводит неотрицательное целое число в четырёхзначный шестнадцатеричную систему
Напишите программу, которая переводит переданное ей неотрицательное целое число в четырёхзначный шестнадцатеричный код, сохранив лидирующие нули. Используйте процедуру.
Входные данные
Входная...
Функция split
Мне необходимо разделить строку на отдельные слова с помощью функции split, но ему что-то не нравится, подскажите, что я делаю не так?
Вы положили деньги в Сбербанк на депозит на три месяца из расчета 60% годовых
Вы положили деньги в Сбербанк на срочный депозит на три месяца из расчета 60% годовых.Напишите программу, которая вычислит причитающуюся вам через три месяца сумм.
Найти минимальное и максимальное из чётных положительных чисел, записанных в файле
1)Найти минимальное и максимальное из чётных положительных чисел, записанных в файле input.txt . Количество чисел неизвестно.Результат записать в файл output.txt .Учтите,что положительных чисел может...
Вставить картинку
как картику вставить?
Встречено end, а ожидалось ';'
в 52 строке выдаёт ошибку "встречено end, а ожидалось ";" помогите пожалуйста :wall:
var
N,i,j,k,kol,x:integer;
c:char;
s:string;
b:boolean;
game:array of string;
Kolmas:array of longint;...
Расстановка мин в игре "Сапёр"
Я делаю игру "Сапер" (точнее уже сделал, теперь исправляю найденные ошибки и баги)
Вот один из них, сам справиться не могу...
Как известно мины в игре расставляются после первого хода, поэтому...
Подсчитать количество программ, состоящих из 7 команд, для которых при исходном числе 3 результатом является число 27
107) Исполнитель Калькулятор преобразует число на экране. У исполнителя есть три команды, которым присвоены номера:
1. Прибавить 1
2. Прибавить 4
3. Умножить на 2
Сколько существует программ,...
Как использовать Таймеры?
Доброго времени суток. Как использовать таймеры в Паскале? Можно ли как-то "сохранить" его в файл? Если да,то,пожалуйста, приведите пример =)
С клавиатуры вводится строка состоящая из двух слов, разделенных пробелом. Составьте программу которая которая:
С клавиатуры вводится строка состоящая из двух слов, разделенных пробелом. Составьте программу которая которая:
а)преобразует первые буквы слов к верхнему регистру и вставляет восклицательный знак...
Управление движением мячика
Решил написать игру, но двигаюсь к этому постепенно, сделал загрузку и отображение мячика, сделал возможность передвигать его по окну приложения с помошью стрелок.
так вот вопросы:
1. Как сделать...
Не запускается среда PascalABC.NET
PascalABC.NET проблема запуском
Как можно изменить код программы, если имеем только exe файл?
Вот, допустим, имеем exe файл с таким кодом
begin
var a,b,c:integer;
a:=200;
b:=300;
c:=a+b;
writeln(c);
end.
Как можно без сторонних программ изменить, допустим, значение переменной a?Еще...
Столкнулся с проблемой: паскаль выводит нечитаемые иероглифы вместо кириллицы
Заданием является: создать текстовый файл(в программе это lab2.txt), ввести туда любой текст и , с помощью программы, найти слово максимальной длины и вывести его в другой тестовый файл(в программе...
Функция Random и процедура Randomize в PascalABC .Net
Изучаю Pascal по учебнику О.Деревенец "Песни о Паскале". Сам учебник обучает языку на примерах решения задач в FreePascal, я пишу в PascalABC Net. В учебнике есть такой момент:
Говорят, что...
Задача на Паскале. Выполнить с циклом Repeat - Until
Напечатать ряд из повторяющихся чисел 20 в виде:
20 20 20 20 20 20 20 20 20 20.
Цикл: Необходимо определить максимальную зарегистрированную скорость автомобиля...
Помогите, пожалуйста, ниже как я пробовал, поправьте меня.
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё...
Дана масса в килограммах, найти количество полных тонн
Написать программу из задачника среды PascalABC.NET для задания integer2
Потрудитесь выложить задание должным образом оформленное, и с адекватным заголовком!
Как вывести положительные числа?
Program prim1;
Var
i,n,x,p: Integer;
Begin
Writeln('Введите кол-во чисел: '); Readln(n);
Writeln('Введите числа: ');
For i:=1 to n do
begin
Readln(x);
If x>0 Then Inc(p);
Нельзя преобразовать тип real к integer
Снова я, вылезает ошибка:
Program3.pas(18) : Нельзя преобразовать тип real к integer
Проверял построчно, ошибку найти не получается, заранее спасибо за ответ.
Задача программы: Задан массив А,...
С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с начала суток?
С начала суток часовая стрелка повернулась на "y" градусов. Сколько часов и сколько минут прошло с начала суток? Прошу выразить часы и минуты с помощью div и mod! И 1 час=30 градусов (360/12=30)....
Решение линейного уравнения (неравенства)
Написать программу, которая позволяет для любых a и b (числа могут быть положительными, отрицательными, нулевыми), введенных с клавиатуры, решить уравнение ax + b = 0.
* Написать программу,...
Робот
Напишите для исполнителя «Робот» оптимальный алгоритм (критерий
оптимальности – минимальное число шагов исполнителя), предназначенный для закрашивания
помеченных клеток.
Я не до конца сделала...
Случайная перестановка элементов в массиве
Здравствуйте. Помогите, пожалуйста, с задачей.
Заполните массив из N элементов случайными числами в интервале так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную...
Встречено := а ожидался оператор
Встречено := а ожидался оператор:
Условие:
Дан массив заполненный по формуле cos(x/3), определить количество его положительных
элементов кратных 3
Программа
Program Fa;
var a: array of...
Нет перегруженной подпрограммы с такими типами параметров
компилятор ругается на присвоение в 28 строке a:=ord(z);
program n2;
const
N = 30;
var
arr: array of shortint;
Max, t, i, a: shortint;
z: string;
Встречено '=', а ожидалось выражение
Встречено '=', а ожидалось выражение. Ни как не могу понять,где ошибка?
var x,y:extended;
begin
writeln('Vvedite "x"');
read(x);
writeln('vvedite "y"');
read(y);
if...
Ожидалось имя процедуры или функции
PROGRAM PRIM2 (INPUT,OUTPUT);
{ЛАБОРАТОРНАЯ РАБОТА 1}
VAR
Y, R, A, B, X: REAL;
BEGIN
WRITELN ('ВВЕДИТЕ A,B,X');
READ (A, B, X);
Y:=A(2*X)+B(-X)*COS(A+B)*X/X+1;
...
Найти минимальное число большее 300, которое нацело делится на 19
Помогите, пожалуйста, решить! Очень надо, но не знаю как их решать!
3. Составить программу, которая находит минимальное число большее 300, которое нацело делится на 19. Использовать цикл с...
Обработка нажатия клавиш
Доброго кодинга, форумчане. Требуется процедурка, реагирующая только на удержание клавиши. Задача в целом проста: надо чтоб круг на экране двигался вверх/вниз по удержанию соответствующих кнопок....
Установка PascalABC.NET на MacOs
Добрый день! Появилась необходимость использования Pascalabc на своем мак. Почитал на сайте, что надо это делать через какое то дополнительное по Mono. Ну я скачал его и дальше вообще без понятия,...
Модуль Math не найден
Выполняю эту программу пишет что модуль math не найден
program test;
uses
Math;
const
g=9.80665;
var
Вывести сумму квадратов натуральных чисел в диапазоне от a до b
Напишите программу, которая вводит натуральные числа a и b , и выводит сумму квадратов натуральных чисел в диапазоне от a до b .
Задача про автомобильные номера
В Российской Федерации на разных видах транспортных средств устанавливаются
разные по формату регистрационные знаки («автомобильные номера»). Вот пример
нескольких возможных форматов...
Темная тема PascalABC.NET BlackHole
PascalABCNET.BlackHole
Устанавливать поверх стандартного паскаля, вдруг не хватить библиотек.
Сам установщик:https://yadi.sk/d/do2zs9FpueZdIg
VirusTotal:https://vk.cc/bWk1xV
Найти сумму всех нечетных трехзначных чисел
Дано М целых чиселю. Найти сумму всех нечетных трехзначных чисел.
Встречен конец файла, а ожидалось begin
Установила среду pascalabc.net
Почитала http://www.pascal.helpov.net/index/object-oriented_programming_pascal_programming и
http://www.pascal.helpov.net/index/pascal_modules_programming
...
Напишите программу, которая выводит первое слово переданной ей символьной строки
Напишите программу, которая выводит первое слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные...
Конфликт модулей crt и GraphABC
Всем привет.
Пишу небольшую программку с использованием графического модуля. Понадобилось использовать функцию delay(), поэтому также подключил модуль crt. В итоге, программа не запускается. Удаляю...
BigInteger в For
Столкнулся с проблемой того, что в цикле for нельзя использовать BigInteger, не смотря на то, что это целочисленный тип. Кто-нибудь знает решение?
Пример:
begin
for i: BigInteger := 1 to 2 do...
Дан прямоугольник с размерами 543X130 мм.Сколько квадратов со стороной 130мм можно отрезать от него?
Дан прямоугольник с размерами 543X130 мм.Сколько квадратов со стороной 130мм можно отрезать от него??
В последовательности целых чисел определить сумму и количество четных чисел, кратных 5
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел,кратных 5. Программа получает на вход целые числа ,количество введённых чисел...
Очередная 2D игра-платформер
Доброго времени суток, товарищи.
В общем: Я не программист, но захотелось самому склепать 2д игру, художник есть. Полистал некоторые туториалы и мало что нашёл, так что принимал решения исходя из...
Не работает readkey и keypressed
Здравствуйте. Написал программу, используя PascalABC, столкнулся с необходимостью скомпилировать ее в *.exe, для этого скачал PascalABC.NET и обнаружил, что программа не работает. Так как после...
Нельзя преобразовать тип boolean к integer
Пишет: Program1.pas(7) : Нельзя преобразовать тип boolean к integer
program zadKL;
var
n:boolean;
x:longint;
begin
read(n);
if (n div 2) then x:=n(n-2) else x:=n(n-1);
writeln(x);
Ввести с клавиатуры значения трех сторон треугольника a, b и c; определить, является ли он прямоугольным
Ввести с клавиатуры значения трех сторон треугольника a, b и c и
определить, является ли он прямоугольным.
Написать линейную программу для нахождения гипотенузы треугольника.
Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника.
c= корень из a2+b2
Решение квадратного уравнения
Где ошибка?
Program uravnenie;
var a,b,c,x1,x2,d,y: integer;
begin
readln(a);
readln(b);
readln(c);
d:=(b*b-4*a*c);
writeln(y=Sqrt(d:integer):real);
x1:=(-b+y)/(2*a);
Алфавит племени «тумба-юмба»
В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч» и «О». Нужно вывести на экран все возможные слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, не...
Встречен конец файла, а ожидалось ';'
var m1, s1, s2: integer;
begin
s2:=1;
repeat
clrscr;
s2:=s2+1;
if (s2>9) then
{
s2=0;
Вычисление минимального из трёх введённых чисел (с использованием функции)
Напишите программу, которая вычисляет минимальное из трёх введённых чисел. Используйте функцию.
Определить, сколько в текстовом файле пар чётных чисел, среднее арифметическое которых также присутствует в файле
Дана задача В текстовом файле записан набор натуральных чисел, не превышающих 109. Гарантируется, что все числа различны.
Необходимо определить, сколько в наборе таких пар чётных чисел, что их...
Программа проверки счастливый ли билет
Проверьте пожалуйста программу на правильность. Определяет счастливый ли трамвайный билет.
program bilet;
uses CRT;
const s1=0; s2=0; x=123456;
var s1, s2, x: longint;
begin
write ('vvedite x,...
Определить, является ли треугольник прямоугольным
Написать программу, которая по заданным сторонам треугольника проверяет его на прямоугольность, если треугольник не прямоугольный, то вычислить величину углов этого треугольника.
Найти количество различных невырожденных треугольников таких, что их периметр равен I
Найти количество различных невырожденных треугольников таких, что их периметр равен I.
Ввод
В первой строке целое число I (1 ≤ I ≤ 320000).
Вывод
Количество треугольников....
Нельзя разыменовать это выражение
Program st2;
Var
x,y,f,z:real;
Begin
writeln('Задайте x(в условиях -2.7 или 10.5)');
read(x);
writeln('x=',x);
y:=1.14;
z:=7.1;
writeln('y=' ,x);
Разбиение на неубывающие слагаемые, лексикографический порядок
Помогите с кодом на Паскале
Дано натуральное число N. Рассмотрим его разбиение на различные натуральные слагаемые. Два разбиения, отличающихся только порядком слагаемых, будем считать за одно,...
Программа завершена из-за переполнения программного стека
В общем задача найти сумму 1/1!+1/2!+...+1/n! при n>10
Программу написал, все процедуры проверил, по отдельности работают, а когда запускаю основную задачу выдает ошибку: Ошибка времени выполнения:...
Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме
Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме. В выражении используются только целые числа, знаки арифметических операций и вызовы функций...
"Программа завершена из-за переполнения программного стека" при работе рекурсивной функции
Здравствуйте
Задание:Вычислить рекурсивно функцию вида у=COS(X)+COS(X^2)+COS(X^3)+...+COS( X^N)
Ошибка:Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения...
Процесс не может получить доступ к файлу, так как этот файл используется другом процессом
По заданию в курсовой необходимо написать программу шифрования двойной табличной перестановкой с использованием файлов, может конечно тут многое можно было гораздо проще сделать, но как додумался так...
Алгоритм, который выполняет сглаживание массива
Сижу на экзамене, была бы очень благодарна за любую помощь!!!
Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут...
Кастомизация IDE
Очень сильно не хватает сабжа...
Ну не серьезно в современной среде разработки нет возможности изменить стили оформления редактора(цвет фона, цвет-fonts) :(
Так просто мысли в слух...
Найти среднее арифметическое положительных чисел, введенных с клавиатуры (цикл for)
подскажите решение, с использованием цикла for : найти среднее арифметическое положительных чисел, введенных с
клавиатуры. Всего ввести N различных чисел.
Ошибка "Типизированный файл не может содержать элементы такого типа"
Program furniture;
type
Note = record {Тип - сведения о товаре}
Code, Amount, Price: Integer; {код, количество, цена}
Name: String; {наименование}
end;
var F: file of Note;
note1,...
Остаток от деления
Такая простенькая задача на acmp, но не проходит какой то тест, никак не пойму что не проходит, помогите может вы увидите ошибку в моем коде.
Сама задача: Напомним, как в математике определяется...
Создать модель солнечной системы
Доброго времени суток форумчане! Подскажите кто знает как написать программу. Нарисовать простеишую модель солнечной системы с планетами разных размеров и цвета и усложнить дорисовать к земле луну и...
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код. Используйте процедуру.
Входные данные
Входная строка содержит целое число N .
...
Как округлить число до целого
Не могу найти как округлить до целого? например:
var i:integer;
var x,r:real;
begin
r:=25.0;
x:=45.0*pi/180.0;
i:=r*sin(x); //?
Writeln (' i =',i);
end.
Как вставить картинку в форму?
Как вставить картинку в форму?
Открыть вторую форму по нажатию на кнопку
Можно ли сделать две формы?(Чтобы вторая открывалась при нажатии на какую-то кнопу и также имела различные picture box и прочее).
Добавлено через 9 минут
И при этом первая до сих пор была и не...
Random для вещественных чисел в конкретном диапазоне
Привет.
Как задать/вывести шесть случайных вещественных чисел, но чтобы они были в диапазоне от 1 до 1,4 ?
Приближенное вычисление числа Пи с заданной точностью (разложение в ряд)
Написать программу приближенного вычисления числа π с заданной точностью. Для этого использовать ряд 1-1/3+1/5-1/7+1/9-…, сумма которого при достаточно большом количестве членов стремится к значению...
Считать числа, введённые с клавиатуры через пробел
Считать числа, введённые с клавиатуры через пробел. Как это сделать? Количество введённых чисел известно.
Соединить некоторые пары гвоздиков ниточками
Гвоздики.
В дощечке в один ряд вбиты гвоздики. Любые два гвоздика можно соединить ниточкой. Требуется соединить некоторые пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя...
Исходный код игры "Сапер" на PascalABC.Net
Доброго времени суток. Скиньте кто-небудь пожалуйста исходный код игры "Сапер" (упрощенный вариант).
Что делает это операция в Pascal? for i:=1 to length(s) do
var s:string;
i:integer;
new_kod, code, d:integer;
begin
readln(code);
readln(s);
for i:=1 to length(s) do
begin
d:=ord(s);
Встречено 'function', а ожидался оператор. Что не так?
var res:integer;
begin
readln(x,y);
function af(x,y:integer): integer;
var i:integer;
begin
af:=1;
if x>y then begin
for i:=y+1 to x do
af:=af*i;
Определить день недели, на который приходится день с указанной датой
Помогите пожалуйста переделать программу!!!
Задание:
{type число = 1..31;
месяц = (янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек);
деньнедели = (вс,пн,вт,ср,чт,пт,сб);
var d: число; m:...
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.
Сформировать из фамилии, имени, отчества строку: фамилия и инициалы
В три символьные переменные F, I, O ввести свои фамилию, имя, отчество. Сформировать из этих данных строку S, содержащую ваши фамилию и инициалы.
вот вроде правильно, но в результате в конце пишет...
Выяснить, пересекаются ли отрезки
Ребят помогите плиз, дали задачку Пересечение отрезков
Два отрезка на плоскости заданы целочисленными координатами своих концов в декартовой системе координат. Требуется определить, существует ли у...
Нарисовать треугольник и залить цветом
Помогите нарисовать треугольник по заданным координатам в Pascal ABC .net, не могу понять как сделать, пробовал с помощью Polygon(points: array of Point); , но не могу правильно заполнить...
Не могу выбрать подходящий парсер для файла 'FileTest'
Добрый день.
Готовлюсь к олимпиаде,и встретил кучу проблем с файлами.
Дана обычная задача:"Из трех чисел вывести среднее".
Так то все ясно как ее делать,но как это сделать на файлах?
Вот мой код...
Пространство имен 'System.Drawing' не найдено
{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
uses
System,
System.Windows.Forms,
System.Drawing,
System.Net;
var
Встречено var, а ожидалось ;
Помогите, новичок в паскале, начал изучать только вчера, прошу помочь
program miay
var a b c:byte
begin
writeln(Write numbers);
read(a,b);
c:=a+b;
writeln(c);
end.
Ошибка пишет во второй...
Программа находит все интервалы, на которых расположены корни и уточняет решения
Доброго времени суток.
Что-то я завис с программой, помогите, пожалуйста.
Составить одну программу, которая работает полностью автоматически: достаточно ввести в программу функцию и запустить....
Программа, запрашивающая ваше имя
Напишите программу, запрашивающая Ваше имя (ввод имени производится с клавиатуры)и выводящую на экран приветствие "Здравствуйте, ...". Помогите, не соображаю в данной программе, сыну задали. Буду...
Определить, какое минимальное и какое максимальное количество цапель могло быть в вольере
Добрый день! Не могу решить школьную задачу по информатике. Текст задачи:
"Цапли
Петя и Маша пришли в зоопарк. В вольере находятся несколько цапель. Некоторые из них стоят на двух ногах,...
Обработчик событий нажатия кнопок мыши внутри цикла. Не работает
Товарищи, подскажите. Уже весь мозг сломал. Проблема в следующем:
я использую модуль graphABC, который с помощью цикла (for, repeat, while - без разницы) выводит на экран какое-то изображение....
В массиве хранятся сведения о количестве осадков, выпавших за каждый день сентября
Составить и решить задачу на PascalABC.NET: В массиве хранятся сведения о количестве осадков, выпавших за каждый день сентября. Определить, сколько осадков выпадало в среднем за один день в каждую из...
Сортировка массива
Всем доброе время суток, столкнулся с проблемой сортировки массива от отрицательного до положительного, или иными словами просто сортировкой, не могли бы вы подсказать, как это можно реализовать на...
Что означает оператор MOD?
Вот есть программа
var a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 6 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a); end;
writeln(s)
Определить какая из точек А или В наиболее удалена от начала координат
Ввести с клавиатуры координаты точек А(х0, у0) и В(х1, у1). Определить какая из точек А или В наиболее удалена от начала координат (О(0,0)). Ответ вывести в виде сообщения.
Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n
Здравствуйте! Уважаемые программисты, помогите пожалуйста решить задачку!
Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т.е. все...
Определить, какая из двух точек расположена ближе к началу координат
Задача 4.Определить какая из двух точек M1(x1,y1) или M2 (X2,y2) расположена ближе к началу координат. Вывести на печать координаты этой точки. M1(-4,6) M2(7,3)
Ошибка времени выполнения: файл не открыт
Помогите, пожалуйста, программа выдает ошибку: Ошибка времени выполнения: файл не открыт
Задание привожу ниже.
Задание: Дан текстовый файл. Создать символьный файл, содержащий все символы,...
Ввести натуральное число N и вывести все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр
Здравствуйте. Накопились некоторые долги, которые откладывал из-за того, что что-то не получалось с решением. Прошу помощи.
Ввести натуральное число N и вывести все натуральные числа, не...
Заполнить массив случайными числами и вывести номера всех элементов, равных X
4)Заполнить массив из 10 элементов случайными числами в интервале и вывести номера всех элементов, равных X.
Если кому интересно, вот рабочая, программа домашнего производства.
Задания брал из...
Не пользуясь никакими арифметическими операциями, кроме умножения, получить a^7 за четыре операции
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a7 за четыре операции.
Заполнить массив первыми N натуральными числами и вывести его
Напишите программу, которая заполняет массив первыми N натуральными числами и выводит его.
Входные данные
Входная строка содержит размер массива N . Гарантируется, что 0 < N...
Ошибка: Невозможно явно преобразовать тип integer к типу System.Random
Помогите убрать ошибку..
Вообщем Pascal выдаёт ошибку на каждую строчку где я пытаюсь присвоить integer - random и пишет вот это:
Unit1.pas(429) : Невозможно явно преобразовать тип integer к типу...
Написать программу которая требует у вас пароль (5 попыток)
С помощью Repeat написать программу ,которая требует у Вас пароль,например,111,и если пароль правильный ,то заполняет все строки экрана сообщением <<Молодец!!!>> .Если после пятой попытки пароль все...
Паскаль не может выполнить ни одну программу
Паскаль на компе не выполняет ни одной программы. Постоянно вылазит окно необрабатываемое исключение в приложении при выполнении программы. Что делать?
Найти угол между часовой и минутной стрелками
Задано время, нужно рассчитать угол между часовой и минутной стрелками.
Клик мышью
Привет!
Помогите написать программу, которая делает определенное действие если ,я нажму на определённый объект
Не могу забраться с этими процедурами
нажатие мыши OnMouseDown
отпускание мыши...
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ.
Входные данные: ввести строку с длиной не...
Через сколько лет и месяцев сумма вклада удвоится
Друзья, привет.
Нужно составить программу, (оператором повтора Repeat ... Until)!
Вы служите в банке. К вам приходит клиент, который хочет вложить некоторую сумму (в рублях). И клиент просит вас...
Определить максимальную и минимальную цифры натурального числа
Дано натуральное число N. Определить его максимальную и минимальную цифры. 24. Дано натуральное число, в котор
1 надо с помощью while
2 c for
Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры
Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.
Поместить картинку на фон кнопки
Здравствуйте. Помогите пожалуйста.
1)
Как в PascalABC можно сделать фон у кнопки в виде картинки?
Или как вставить в нужное место картинку и сделать её как кнопку?
2)
Можно ли...
Вывести код символа
Здравствуйте , помогите с рэндомной задачей . Дан символ С . Вывести его код (т.е номер в кодовой таблице).
Исходные данные С='Z' ; Пример верного решения Код символа С: 90 .
Получить список файлов в указанном каталоге
Как получить список файлов в указаном каталоге? И находить файлы с указаным расширением или именем?
Пример: В каталоге D:\test нужно найти все файлы с (Вариант 1: расширением .jpg; Вариант 2: с...
Как создать свой класс переменных с увеличенным количеством значащих цифр?
Прошу помощи у экспертов.
В некоторых случаях, например в астрономических расчетах, где на космических расстояниях
приращение координат незначительное и, чтобы не потерять точность расчета...
Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой
Даны числа n и m. Создайте массив A и заполните его змейкой (см. пример).
Входные данные
Программа получает на вход два числа n и m.
Выходные данные
Программа должна вывести полученный...
Как поставить условие при Да или Нет
program yesno;
var
label 1,2,3;
y:char;
n:char;
yesno:char;
begin
writeln('Хотите продолжить? y/n');
readln(yesno);
if yesno=n then
Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный
Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.ОЧЕНЬ НАДО!!!СРОЧНО!!!
Записать логические выражения, используя условные операторы, операции отношений и логические операции.
Нужно: Текст программы (включая подробные комментарии)
Блок-схему алгоритма
Записать логические выражения, используя условные операторы, операции отношений и логические операции...
Ввод четырёх целых чисел и вычисление их среднего арифметического
зработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического. Протестировать алгоритм на различных исходных данных (включая вещественные числа) и доказать...
Даны два числа. Если первое число больше второго, то вывести yes
Pascal ABC net
Помогите решить в паскале задачу: Даны два числа. Если первое число больше второго, то вывести yes, иначе
поменять значения этих переменных и вывести их на экран.
Подсчитать сумму двузначных чисел, сумма цифр которого не превышает 7
подсчитать сумму двузначных чисел, сумма цифр которого не превышает 7
Вывод вещественного числа с двумя знаками после запятой
a:=round(a*100)/100;
writeln(a);окрулили a до сотых. Как сделать так, чтобы если к примеру a=5,2 то он выводил 5,20 а не 5,2?
Ошибка времени выполнения: Чтение после конца потока невозможно
Ошибка в строке 9.
var
A: file of integer;
B, I, J: integer;
begin
assign(A, 'D:\KEK.txt');
reset(A);
while not eof(A) do
begin
read(A, B);
Найдите количество троек натуральных чисел a, b, c, что a + b + c = n
Не могу сосредоточиться, помогите пожалуйста.
Дано число n. Найдите количество троек натуральных чисел a, b, c таких, что a + b + c = n, a <= b <= c.
На вход программе подается натуральное n <= ...
Как закрыть программу по нажатию кнопки?
Как закрыть программу по нажатию кнопки?
Шахматы - критика кода
Думать пока не могут, только доска с возможностью делать ходы за обе стороны. Все правила игры соблюдаются, включая рокировку и взятие на проходе. Может кто найдет ошибки, дайте знать. Также...
Ввести с клавиатуры число линий и построить заданную фигуру
Ввести с клавиатуры число линий и построить фигуру
Как сделать цветной градиент?
uses GraphABC;
var
a: boolean;
begin
SetBrushColor(clBlue);
SetGradientBrushSecondColor(clRed);
SetPenMode(2);
FillRect(100,100,300,300);
end.
Функции: заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи
Заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи. Используйте логическую функцию, которая определяет , являются ли переданное ей число числом Фибоначчи.
привер...
Аналог виндового калькулятора
Не знаю, реально ли это сделать без создания своих форм и/или библиотек, но всё же. Реально ли сделать аналог виндового калькулятора(хотя бы обычного, не инженерного режима, да только с основными...
Вычислить сумму первых N натуральных чисел
Добрый день товарищи) Помогите пожалуйста с написанием программы на языке Паскаль.
Вот условие, по которому нужно написать программу
1)Ввести с клавиатуры натуральное число N. Вычислить сумму...
Написать программу вывода на экран кубов всех целых чисел от – 5 до 12
Написать программу вывода на экран кубов всех целых чисел от – 5 до 12.
Вывести на экран квадраты всех натуральных чисел от 1 до N в строчку через пробел.
1. Вывести на экран квадраты всех натуральных чисел от 1 до N в строчку через пробел.
2. Вывести на экран все трёхзначные числа, кратные числу A. Найдите их кол-во.
3. Какое из чисел больше 5^7 или...
Дано слово. Добавить к нему в начале и в конце столько звездочек, сколько букв в этом слове
Дано слово. Добавить к нему в начале и в конце столько звездочек, сколько букв в этом слове.
Вывести запись в виде 4 знаков в шестнадцатеричной системе
напишите программу, используя процедуру, которая выводит на экран запись числа меньшего, чем 16^4=65536 в виде 4 знаков в шестнадцатиричной системе
счисления
Найти сумму цифр целого трехзначного числа
написать программу для нахождения суммы цифр целого трехзначного числа
Убрать белый фон текста
кто знает, как убрать белый фон у текста? чтобы был прозрачный.
Назовём натуральное число подходящим, если у него ровно 3 различных простых делителя
Назовём натуральное число подходящим, если у него ровно 3 различных
простых делителя. Например, число 180 подходящее (его простые делители –
2, 3 и 5), а число 12 – нет (у него только два различных...
Дано четырехзначное число - подсчитать количество четных и нечетных цифр
Подсчитать количество четных и нечетных цифр.
Ошибка в составлении задачи
Здравствуйте!
Очень нужна Ваша помощь, которая касается одной задачи, вот её условие
4.К старушке на обед ходят кошки. Каждую неделю две кошки приводят свою подружку. В доме у старушки 100...
Не является меткой
Доброго времени суток, программа пишет, что n не является меткой, как можно исправить? Заранее благодарю!
program Lab11_7;
type
TFunc=function (x:real):real;
function D(n:...
Найти три минимума в массиве
уважаемые форумчане, дана задача мне, найти три минимума в массиве.
дословное условие:
"Напишите программу, которая находит в массиве три минимальных элемента, то есть три первых элемента массива...
Создаём свой "браузер"
Нашёл исходник с содержимым:
{$apptype windows}
{$reference System.Windows.Forms.dll}
uses
System.Windows.Forms,
System.Net;
Для примера «Полет мяча» вычислите длину траектории движения шарика для углов вылета 35,5° и 65,8°
Для примера «Полет мяча» вычислите длину траектории движения шарика для углов вылета 35,5° и 65,8°. Сравните полученные результаты PascalABC.net
Произошла непредвиденная ошибка. Вероятно, на диске отсутствует файл. Повторите запуск
Здравствуйте.
Скачала PascalABC.NEТ, установила.
Написала программу, нажала выполнить.
Ошибки программа все увидела, я их исправила.
И сразу пишется: Произошла непредвиденная ошибка....
Составить программу определения среднего арифметического N чисел, введенных с клавиатуры
Составить программу определения средне. ариф. N чисел, введенных с клавиатуры.
В некотором населённом пункте n домов
В некотором населённом пункте n домов. Известно, сколько людей проживает в каждом из домов. Исходные данные (количество жильцов) представить с помощью линейной таблицы а, содержащей n элементов:
a -...
Шифр Цезаря (нужна блок-схема)
Программа шифрует вводимую строку "Шифром Цезаря",как построить ее блок-схему?
Program Shifr;
const n=25; {число букв в алфавите}
var x:char;
begin
while not eof do
begin
read(x);
if...
Минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной стороной
На столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые – гербом. Определите минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной и...
Сколько очков в среднем выпало при бросках игрального кубика?
игральный кубик бросается 3 раза (выпадает три случайных значения ). Пример:
выпало очков: 5 3 1
(5+3+1)/3=3
Изменение шрифта текста в форме
Имеется программа, которая выводит в форму по нажатию кнопки текст.
Задача состоит в том, как увеличить размер текста в textbox?
Ошибка времени выполнения: Could not find file 'C:\Users\User\Downloads\input.txt'
Помогите пожалуйста. Выдает ошибку в 6-ой строке. Задача звучит так: Дан файл, содержащий текст и арифметическое выражение вида a$b, где $ - один из знаков +, -, *, /. Выписать все арифметические...
Найти n-ое число в последовательности простых чисел
С клавиатуры вводится число n ( 1 <= N <= 1000000 ).
Требуется найти n-ое число в последовательности простых чисел.
Улиточные бега
Каждые 100 лет в Стране Улиток проводятся улиточные бега на дистанции L сантиметров. Это станет для вас неожиданностью, но в этом столетии они проводятся именно сегодня!
В этом году организаторы...
Кузнечик и лягушки
Кузнечик прыгает по столбикам, расположенным на одной линии на равных расстояниях друг от друга. Столбики имеют порядковые номера от 1 до N . В начале Кузнечик сидит на столбике с номером 1. Он может...
Посчитать количество цифр в двоичном представлении числа
Помогите написать программу по PASCALABC.NET. Пожалуйста!
Срочно! Необходимо написать программу по информатике. До вечера 24.04, то есть, сегодняшнего. Вот условие:
С клавиатуры вводится...
Открыть изображение в Pascal
Здравствуйте, прошу помочь с программой...
Ранее на сайте: https://www.cyberforum.ru я прочитал код для открытия изображения.
Сделал все как надо. Но почему то при запуске программы у меня...
Задачи робота
Помогите пожалуйста решить
Как указать переход на новую строку
Здравствуйте, форумчане!
Возник вопрос: как в тексте ('бла-бла-бла') указать переход на новую строку, чтобы вышло:
'бла-бла-
бла'?
Может, для этого есть специальная комбинация символов (я...
Даны координаты двух различных полей шахматной доски
Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Данные поля имеют одинаковый цвет»
var
...
Сортировка строк
Здравствуйте. Появился вопрос.
Вводится несколько строк (не более 20), в которых сначала записаны инициалы и фамилии работников фирмы. Ввод заканчивается пустой строкой. Отсортировать строки в...
Как скрыть или удалить кнопки с формы?
Здравствуйте. У меня вопрос (PascalABC.NET) по поводу кнопок:
Я создал кнопи(4), ВСЕ РАБОТАЕТ НОРМ., а вот когда закрашиваю экран белым цветом для вывода новой информации, получается так что кнопки...
Добавление модулей в PascalABC.NET
У меня тут проблемка нашлась. Написал игру на Turbo Pascal на МАН. Игра большая (>500 строк).
Теперь хочу добавить звуковое оформление. В турбо нельзя воспроизводить сторонние файлы, а в АБС можно!...
Встречено 'Begin', а ожидалось выражение
Нужна помощь! При программирование у меня возникла проблема. Встречено 'Begin', а ожидалось выражение на 541 строчке. Помогите найти и исправить ошибку в программном коде.
Вот он:
Program...
Увеличивать введенное число в два раза до тех пор, пока оно не станет больше 1000
1 задача:Ввести число a(0<a<10).Увеличивать его в два раза до тех пор,пока оно не станет больше 1000.Вывести на экран полученное число.(Программа с помощью While или Reapet и как можно проще)
Проверить, что натуральное число N является точным квадратом
Нужно написать программу для определения истинности высказывания: "Натуральное число N является точным квадратом."
Объясните пожалуйста как определить точный квадрат, а то я уже второй день ломаю...
Цикл: Вывести N первых членов арифметической прогрессии и найти сумму ее первых членов...
дано действительное число X и целое число N. вывести N первых членов арифметической прогрессии и найти сумму ее первых членов, если первый член X ,а разность (-2,2)
Спортлото: 6 из 49
составьте программу на PascalABC.NET спортлото:6 из 49 Игра заключается в том,что компьютер задумывает 6 случайных чисел в диапазоне от 1 до 49.Пользователь,пытаясь угадать выпавшие номера,вводит 6...
Калькулятор для квадратных уравнений
Я тут недавно написал программку для решения квадратных уравнений, и мне кажется, что её можно сократить. Так вот вопрос: как её сократить?
program kvadratnoe_uravnenie;
var a, b, c, D, x, x1, x2,...
Черепашка
Написал черепашку под PascalABC.Net.
Код модуля:
unit SmallTurtle;
uses GraphABC;
const
Red = clRed;
Yellow = clYellow;
Сложная задача на перестановки
Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n.
Каждое число в перестановке встречается ровно один раз.
Сеня называет красотой перестановки ⟨a1, a2,...
Вычислить A15, используя две вспомогательные переменные и пять операций умножения
Добрый день. Начал заново учить Паскаль, поэтому все свои вопросы буду задавать в этой теме, вопросы, в основом, будут общего характера. Прошу отвечать не сильно заумно:)
2. Дано число A....
Движение шара по диагонали
Здравствуйте.
Есть программа движения шара по диагонали, но не совсем правильно движется. Не ровно по диагонали.
uses GraphABC;
begin
Window.Title := 'Анимация классическая: на каждом шаге...
Модуль Graph3D
uses Graph3D;
begin
Graph3D.BoxT.Create(0, 0, 0, 2, 2, 2, Graph3D.Colors.Red);
end.
Почему программа вылетает?
Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида
Заданы 4 числа проверить являются ли они длинами сторон ромба, параллелограмма или четырёхугольника другого вида. (Считать что стороны перечислены подряд).
Как установить свою иконку приложения
Ребята, помогите установить свою иконку приложения. Я долго юзал нет но так и ничего и не нашол
Foreach: с чем его едят
Объясните пожалуйста, где и как используется foreach
Вывод числа с двумя знаками после запятой
как это сделать в форме?
Добавлено через 7 часов 18 минут
че никто не знает?
Калькулятор с интерфейсом
Здравствуйте, надо сделать калькулятор с интерфейсом. Сам интерфейс я сделал.
uses FormsABC;
var
a := new RealField('a:');
f1 := new FlowBreak;
b := new RealField('b:');
f2 := new...
В строках файла, содержащих менее 25 букв A, определить максимальное расстояние между одинаковыми буквами
Текстовый файл содержит строки различной длины. Общий объём файла не превышает 1 Мбайт. Строки содержат только заглавные буквы латинского алфавита (ABC…Z).
В строках, содержащих менее 25 букв A,...
Дано вещественное число a. Для функции y = f(x), график которой приведен ниже, вычислить f(a)
Дано вещественное число a. Для функции y = f(x), график которой приведен ниже, вычислить f(a).
Как создать поле для ввода текста?
{$apptype windows}
{$reference System.Windows.Forms.dll}
uses
System.Text,
System,
System.Windows.Forms,
System.Net;
var
Вывод в файл/Чтение из файла формата .CSV
Есть задачи:
Задача №1.
Имеется матрица размерностью MxN. Написать программу, выполняющую следующие функции:
1. Ввод c клавиатуры элементов матрицы.
2. Обработку матрицы - Переставить столбцы...
Размер шрифта в консоли
Как задать размер шрифта в консоле???
Добавлено через 59 минут
так как же задать размер текста при виводе???
Вычислить тангенс
var x,m,p:byte;
y:real;
function tg(n:word):real;
begin
tg:=sin(n)/cos(n);
writeln(sin(n),' || ', cos(n));
end;
begin
writeln('x,m,p= '); readln(x,m,p);
Ошибка "Внутриблочные переменные не могут иметь те же имена ."
Ошибка "Переменная цикла for должна описываться в том же блоке, что и цикл for". Если писать for var ..., то все равно ошибка, но уже "Внутриблочные переменные не могут иметь те же имена, что и...
Программа не может получить доступ к файлу
При завершении программы PascalABC.Net она не выгружается (т.е. процесс написанной программы в диспетчере задач не исчезает) что делает невозможным запуски других програм на паскале, т.к. возникает...
Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья
На вход программы подаются сведения о результатах соревнований по школьному многоборью. Многоборье состоит из соревнований по четырем видам спорта, участие в каждом из которых оценивается баллами от...
Сложить два числа
Задача такая: на ввод подается 2 числа, необходимо найти их сумму и вывести на экран.
"Нет индексного свойства по умолчанию для типа integer"
При написании программы Pascal выдает такую ошибку Program2.pas(23) : Нет индексного свойства по умолчанию для типа integer. Вот код программы
type
TWorkers = Record
LastName: string;...
Распечатать таблицу значений y(x) = 6•x – 4 на промежутке [0; 9] c шагом 0,5
2. Распечатать таблицу значений y(x) = 6•x – 4 на промежутке c шагом 0,5. (30 баллов)
Программирование с массивами
Дано целое десятичное натуральное число , не превышающее 32000 , составьте программу , где : 1) Из цифр данного числа формируется одномерный целочисленный массив; 2) определяются наибольшая и...
Подключение SFML
Тема не то чтобы непопулярна, но сведения в поиске как минимум устаревшие. Итак, как подключить себе эту графическую библиотеку?
На данный момент советуют примерно такой алгоритм:
1) Идем по...
Создание нескольких окон в PascalABC.Net
Как создать программу, работающую сразу с двумя графическими окнами?
Процедуры с параметром. Робот Pascal ABC.NET
Task ('pp1')
Закрасить помеченные клетки, составив процедуры с параметром RightN(n) и LeftN(n)
Мой код работает. Возможно ли написать более оптимальный (рациональный) код?
Uses Robot;...
Площадь и периметр прямоугольника
По данным сторонам прямоугольника a, b вычислить его периметр (P), площадь (S) по формулам:
Р=2(a+b);
S=ab;
Правила форума 4.2. Создавайте темы с осмысленными и понятными названиями - это...
Неверное количество параметров процедуры
program Dashs;
uses
GraphABC, ABCObjects;
const WidthMap=30;
const HeightMap=20;
var
x,y, Dashx, Dashy, key: integer;
Dash: SquareABC;
C: Color;
f: text;
Найти максимальное произведение чисел, кратное 14
Привет всем! Надо решать задачу:
Последовательность натуральных чисел характеризуется числом Х –
наибольшим числом, кратным 14 и являющимся произведением двух
элементов последовательности с...
Как сделать бесконечное повторение вывода текста
Как сделать бесконечное повторение вывода текста в PascalABS.NET
Надо вывести текст:
writeln ('текст 'переменная 'текст ); read(переменная);
надо сделать что бы это бесконечно повторялось.
...
Удалить строку где встретится третий нечётный элемент
2) Дан двумерный массив. Удалить строку где встретится третий нечётный элемент
Полноэкранный режим
При работе с графикой столкнулся с тем, что при увеличении рабочего окна- замедляется вся анимация.
В чем причина? Как исправить?
Какие команды нужны для того что бы графическое окно вылазило на...
Как запустить программу в в Pascal ABC?
основная программа - program menu;
uses crt, matric;
var i,j,iq,n:integer;
tx: array of string;
c:char;
procedure textmenu;
begin
tx:='vvod matric';
tx:='umnogenie matric';
Как завершить программу ПОЛНОСТЬЮ?
Как можно из процедуры закрыть программу ПОЛНОСТЬЮ? С exit; не работает, т.к. exit; завершает только процедуру.
Чтение n-строки из файла
Доброго времени суток. Снова столкнулся с проблемой: не могу считать нужную строку из текстового файла.
Я знаю, как считать строку:
ReadLn(файл, переменная String);
Предполагаю, нужно сделать так:...
Как изменить цвет кнопки при нажатии на нее?
в процедуре procedure Form1.button2_Click(sender: Object; e: EventArgs);
Пишу button2.backcolor:=red; и мне выдает ошибку "Unit1.pas(186) : Неизвестное имя 'red'" а в инспекторе объектов в строке...
Вычислить рациональным способом приведенные выражения
a) y=x5, (т.е. за три операции y=(x2)2x);
b) y=x6, (т.е. за три операции y=(x2x)2);
c) y=x8, (т.е. за три операции y=((x2)2)2).
Ошибка:(300) : Нет перегруженной подпрограммы с такими типами параметров
При запуске программа выдаёт ошибку: (230 Строка) : Нет перегруженной подпрограммы с такими типами параметров. Помогите пожалуйста.
uses
crt;
type
T1 = record
Nazv: string;
Kod:...
Библиотеки
Здравствуйте! Подскажите мне, пожалуйста, возможно ли статическое и динамическое подключение библиотек?
Единственное, что у меня работает, это в главной программе используя директиву {$reference...
Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m.
В трёхзначном числе X зачеркнули первую цифру.Когда оставшееся число умножили на 10,а произведение сложили с п
В трёхзначном числе X зачеркнули первую цифру.Когда оставшееся число умножили на 10,а произведение сложили с первой цифрой числа X то получилось число 564.Найти число Х.
Найти треугольник наибольшей площади с вершинами в заданных точках, одна из сторон которого лежит на оси OX
1) На плоскости дан набор точек с целочисленными координатами. Необходимо найти треугольник наибольшей площади с вершинами в этих точках, одна из сторон которого лежит на оси OX. Напишите...
Вывести все простые числа на отрезке от А до В
Вводятся два числа A и В (A < B), вывести все простые числа на отрезке от А до В включительно.решите,пожалуйста,около 30 минут сидел,ничего не вышло
Удалить второй отрицательный элемент
4) Дан двумерный массив. Удалить второй отрицательный элемент.
Как в GraphABC сделать Circle прозрачной?
uses graphABC;
begin
SetWindowSize (800,600);
rectangle (250,250,550,351);
Circle (320,300,111);
end.
Окружность рисуется поверх прямоугольника, но почему сама окружность с заливкой белого...
Как сделать так, чтобы цикл выполнялся определенное количество раз в Pascal?
Нужно сделать так, чтобы пользователь ввел какое-то число и цикл выполнился такое число раз, которое введено.
Напишите программу, которая определяет, является ли введённое слово (без пробелов) палиндромом
Напишите программу, которая определяет, является ли введённое слово (без пробелов) палиндромом, то есть верно ли, что оно читается одинаково слева направо и справа налево.
Входная строка содержит...
Сравнить число перестановок
Здравствуйте.
Помогите, пожалуйста, с программой. А то я что-то запутался с переменными, пытаясь два типа сортировки в одной программе совместить. Заранее спасибо.
Напишите программу, которая...
Найти сумму цифр числа, кратных 3 и проверить, содержит ли число четные цифры
Помогите найти ошибку в програмке
Дано натуральное число(более четырех знаков):
–найти сумму цифр числа, кратных 3;
–верно ли, что число содержит четные цифры?
написать программу
program p;...
Программа, строящая СДНФ и СКНФ
Пожалуйста помогите справиться с задачкой и киньте код, первая часть проги у мну написана (на основе булевой формулы строится таблица истинности), а со второй траблы. Есть идея проверить строки...
Вывести на экран все возможные слова, состоящие из K букв, в которых вторая буква Ы
В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч» и «О». Нужно вывести на экран все возможные слова, состоящие из K букв, в которых вторая буква «Ы». Подсчитайте количество таких слов
KeyPress
Всем привет!! Помогите пожалуйста!!! Я не знаю про KeyPress, мне нужно сделать прогу на паскале чтобы при нажатии на enter на экране появлялась буква. (я знаю про uses graphabc)
Игра: Крестики-нолики
program tictac;
uses
GraphAbc, ABCobjects;
var
mas: array of rectangleABC;
wx, wy, ww, wh, k, hod, c1, c2: integer;
res: RectangleABC;
finish: boolean;
Определить, на какой высоте парашютисту следует открыть парашют, чтобы иметь безопасную скорость
Парашютист прыгает с некоторой высоты и летит, не открывая парашюта; на какой высоте (или через какое время) ему следует открыть парашют, чтобы иметь к моменту приземления безопасную скорость (не...
Обмен значений двух целочисленных переменных
Напишите программу, которая считывает значения двух целочисленных переменных a и b, затем меняет их значения местами (то есть в переменной a должно быть записано то, что раньше хранилось в b, а в...
Написать программу поиска двузначных чисел
Написать программу поиска двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, то получится само число (12, 42...)
Шифр простой замены
Одним из самых простых способов шифрования открытого текста является шифр
простой замены. Он состоит в том, что каждая буква в алфавите, которым написано
открытое сообщение, заменяется на какой-то...
Вывод количества плиток, нужных, чтобы покрыть площадь целиком
Задание такое: площадь в городе имеет площадь m*n(я знаю, что тавтология), ее нужно покрыть плиткой полностью, можно выходить за пределы площади, но нельзя плитку резать, а плитка имеет квадратная...
Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно
(For) Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A
до B включительно.
Split
Не понимаю в чем дело, вроде все ввожу правильно, но он ругается!
Переделать программу, чтобы можно было найти разность максимального и минимального из четырех чисел
Изменить программу так, чтобы с ее помощью можно было найти разность максимального и минимального из четырех чисел.
program n_21;
var a, b, c, d, f: integer;
function max (x, y: integer):...
Компилятор
Что за?!? Почему данная программа не работает на turbo pascal?!?!? Что за различия между работы компиляторами? Если в abc.net компиляция идет идеально, почему она на турбо не хочет компилировать?...
Напишите программу, которая строит последовательность из N случайных чисел
Напишите программу, которая строит последовательность из N случайных чисел на отрезке от 1 до 1 и определяет,сколько из них попадает в полуинтервалы [0;0,25), [0,25;0,5), [0,5;0,75) и [0,75;1)....
Написать программу перевода числа из двоичного кода в прямой, обратный и дополнительный
Нужно дописать последнюю операцию для данной программы , не могу найти функцию , которая бы переводила в дополнительный код
program laba5;...
Найти количество нечетных делителей числа. Определить, является ли число простым
Дано натуральное число N. Найти количество нечетных делителей числа. Определить, является ли число простым. Заранее спасибо.
Как удалить элементы массива?
В массиве от 1 до 10 нужно удалить каждый третий элемент.
Система счисления 2 4 8 10 16
Перевести заданные два числа из двоичной, в четверичную, восьмеричную ,десятичную и шестнадтатиричную систему счисления, потом из десятичной сс. в двоичную четверичную восьмеричную...
Определить, какому столбцу таблицы истинности соответствует каждая из переменных
program name;
var
x, y, z, w: integer;
for x:=0 to 1 do
for y:=0 to 1 do
for z:=0 to 1 do
for w:=0 to 1 do
if (формула)((x and \bar{y})V(y\leftrightarrow z)Vw)=1 then
writeln...
Заливка фигур
Помогите, как залить эту фигуру. Заливает весь фон.
uses graphABC;
var x0,y0:integer;
begin
SetWindowSize(800, 800);
Centerwindow;
x0 := windowwidth div 2;
y0 := windowheight...
Вводить числа с клавиатуры, пока не встретится 0. Подсчитать сумму всех * введенных нечетных чисел
Помогите,пожалуйста! По информатике задали...Язык паскаль
Вводить числа с клавиатуры, пока не встретится 0. Подсчитать сумму всех
введенных нечетных чисел.
Операция '*' не применима к типам real и function(x: real): real
function Arccos1(x: integer): real;
begin
arccos1 := sqr(Arccos(x)) + arccos(x-(1/2));
end;
function arccos2(x:integer): real;
begin
arccos2 := (arccos(1-x)+arccos (0.3 * x)) * arccos *...
Заполнить массив по формуле, и вычислить сумму элементов
Заполнить массив значениями, вычисляемыми по формуле: a:=sin i*i2
Вывести элементы этого массива на экран компьютера и найти сумму всех значений.
Вывести целую и дробную часть вещественного числа
Если целая и дробная часть числа равны - вывести на экран True
Нет - False
Приведенный ниже код не работает. Неверно считает дробную часть (вернее не так, как нужно). Решить нужно без строк, ифов и...
Составьте программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска большего из двух
Задача: "Составьте программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска большего из двух. Рассмотрите использование процедур и функций."
Тут, я понимаю, рекурсией...
Вывод символов с задержкой
Данный код будет очень объёмен, если будет много текста. Подскажите, как сократить код, продемонстрируйте миниатюрный вариант.
uses crt;
begin
delay(1000);
write('З'); delay(100);
write('д');...
Посчитать сумму элементов в каждом столбце двумерного массива
1) Дан двумерный массив. Посчитать сумму элементов в каждом столбце.
Описать числовой массив на 25 элементов, заполнить случайными числами, вывести на экран
Описать числовой массив на 25 элементов и заполнить его случайными целыми числами, каждое из которых лежит в пределах от 10 до 50, распечатать содержимое элементов массива в строку.
Вставить элемент после первого отрицательного элемента массива
5) Дан одномерный массив. Вставить элемент после первого отрицательного элемента массива.
Опишите функции min и max
Опишите функции min и max, позволяющие определить минимальное и максимальное из двух значений.
С их помощью вычислите значение выражения max(min(3,5), max(2,6)).
Поиск четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 - 111
2.Составить программу поиска четырехзначных чисел которые при делении на 133 дают в остатке 125.а при делении на 134 дают в остатке 111
Определите результат выполнения алгоритма по блок-схеме
По приведённой блок-схеме алгоритма при а=-1, b=3, h=1:
- Определите результат выполнения алгоритма.
- Сколько раз выполнится цикл?
- Восстановите условие задачи.
буду благодарен.
Найти элементы массива кратные 7-ми
Мне нужно рандомные елементы массива вывести, а затем вывести элементы кратные 7-ми, и написать их позицию.
Подсчитать, какие предметы можно купить на определенную сумму
Требуется определить, сколько можно приобрести ручек (по цене 10 руб.), карандашей (5 руб.) и ластиков (2 руб.) на 100 рублей. При этом всего предметов должно быть 30.
const
cruch=10;
ckar=5;...
Найти и вывести наименьшее содержащееся в массиве положительное число
Очень нужна помощь. Уезжаю. Нет интернета и пк.
Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм,
позволяющий найти и вывести наименьшее содержащееся...
Определить, попала ли точка с заданными координатами в заштрихованную область
Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область.
Входные данные
Входная строка содержит два вещественных числа – координаты точки на...
Удалить столбец матрицы с номером К
3) Дан двумерный массив. Удалить столбец с номером К
Определить вид последовательности — возрастающая, убывающая, случайная или постоянная
Доброго дня всем! Может быть у кого-нибудь найдется время подсказать, как решить эту задачу?
Программа получает на вход последовательность целых чисел по модулю не превосходящих 10^9. Признак...
Не знаю куда положить файл для открытия
Объясните пожалуйста куда надо положить файл чтобы его открыл паскаль? Так и не понял как то сделать
Даны длины 3-х отрезков. Можно ли из них составить тупоугольный, прямоугольный или остроугольный треугольник
Треугольник с углами
Даны длины 3-х отрезков. Нужно сказать, можно ли из них составить тупоугольный,
прямоугольный или остроугольный треугольник.
Input
Со стандартного устройства ввода вводятся...
Найти наибольший элемент и его номер
Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.
Заполнить массив из 10 элементов случайными числами в интервале [10.20] и найти элемент, равный X
Если кому интересно, вот рабочая, программа домашнего производства.
Задания брал из презентации по основам массивов Паскаль( на сайте Полякова можно найти)
program n3str40;
Var a: Array of...
Можно ли перед каждым из чисел от 1 до N расставить знаки «+» или «–» так, чтобы сумма получившихся чисел была равна 0?
Решить пробовал , но это не о чем , не одного правильного вывода не было , окало часа шаманил , но голяк (только в школе циклы прошли и на тебе (1 год обучения))
Легенда гласит, что Карл Фридрих...
Найти количество четных элементов массива, стоящих на четных местах
дан массив c, состоящий из n элементов.Элемента массива ввести с клавиатуры.Найти количество четных элементов массива,стоящих на четных местах(т.е. имеющих четные номера)
Исправить ошибку: "Параметр цикла for в pascalABC.net должен описываться в заголовке цикла"
Люди! Пожалуйста помогите исправить ошибку: "Параметр цикла for в pascalABC.net должен описываться в заголовке цикла".
program Den_s;
const
n=5;m=5;
var
A: array of integer;
B:...
Вычисление количества двузначных чисел, кратных 3
Подсчитать количество двузначных чисел, кратных 3.
Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки
Помогите плиз! Дана строка символов, среди которых есть одна открывающая и одна закрывающая скобки. Вывести на экран все символы, расположенные внутри скобок.
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне и определяет номера двух элементов этого массива, которые расположены ближе всех друг к другу на...
GraphABC и OnKeyDown: передача переменной из процедуры
Доброго времени суток. Задача в следующем: посчитать количество раз ввода с клавиатуры буквы "w" используя GraphABC (программа PascalABC.NET). Через crt все решается элементарно, но с GraphABC такое...
Преобразование строки в массив чисел с некоторым условием
Задача: преобразовать строку в массив чисел, но чтобы также записывались отрицательные числа.
Вообщем получился вот такой код:
program find_value_equals_to_current_value;
var i, b, k:...
Определить, простое или составное введённое число
Помогите создать программу,которая при введении любого числа показывает: простое или составное это введенное число. (Я пробовал но у меня не получалось. И похоже я вообще не правильно писал код.)
Ошибка с модулем
Нужно отправить процедуру в модуль, когда запускаю программу пишет "Невозможно запустить откомпилированный модуль". В чем может проблема?
Вот сама программа:
unit MyModule;
interface
type
...
readkey И стрелки
Добрый день, проблема заключается вот в чем: readkey для стрелок, как я понял, не одно число. С чем мне сравнивать readkey, если я хочу считать стрелки вверх и вниз. При выводе кода стрелок у меня...
Написать функцию, которая подсчитывает количество цифр в десятичной записи целого неотрицательного числа n
а можно Написать функцию, которая подсчитывает количество цифр в десятич-
ной записи целого неотрицательного числа n.
Осуществить ввод количества элементов массива с клавиатуры
Осуществить ввод количества элементов массива с клавиатуры.
Помогите,пожалуйста с этим заданием
Написать программу, которая находит произведение элементов массива натуральных чисел из 15 элементов, заданного случайны
Пожалуйста, помогите! Не могу понять в чём ошибка. Иногда выдаёт результат с минусом, хотя перемножаются числа все положительные
program massiv_proizv;
var A: array of integer;
i:byte; ...
Как перенести значение из одной процедуры в другую?
Есть две процедуры и мне надо перенести значение из одной локальной переменной в другую. Как это можно сделать?
Даны значения двух переменных a и b. Поменять местами значения этих переменных
1) Обмен значениями. Даны значения двух переменных a и b. Поменять местами значения этих переменных.
Как создать форму?
Uses System.windows.forms; #пишет не знает такого пространства имен
Var
F:system.windows.forms.form;
Begin
F:=new system.windows.forms.form();
system.windows.forms.application.run();
End.
Не...
В целых числах уравнение ( ax + b ) : ( cx + d ) = 0
Решить в целых числах уравнение ( ax + b ) : ( cx + d ) = 0.
Входные данные
Вводятся 4 числа: a, b, c и d; c и d не равны нулю одновременно.
Выходные данные
Необходимо вывести все...
Доступ к файлу открывается, только если введен правильный пароль – определенный трехзначный номер из нечетных
Доступ к файлу открывается, только если введен правильный пароль – определенный трехзначный номер из нечетных цифр. Каково максимальное число возможных попыток угадать пароль?
Нужна формула и...
Определите сколько символов выведет эта процедура при вызове f (140)
procedure F( n: integer );
begin
write('*');
if n>= 1 then begin
write('*');
F(n-1);
F(n div 2);
end;
end;
Номер купе по номеру места
program Number;
var
a: integer; // я начинающий программер
begin
writeln('Ведите номер места: ');
readln(a);
if (a > 0) and (a <= 4) or (a = 53) or (a = 54) then
Даны 3 числа (любые). Подсчитать количество чётных
Прошу сделать через Intager с условиями (then и else)!
Как будет на программированном отправить файл на мейл
Как будет на программированном отправить файл на мейл?
Помогите
Как получить текущие координаты курсора в графическом режиме?
Нужно написать процедуру или функцию, которая при щелчке мыши определяла бы координаты курсора.
Координаты нужны для рисования объектов, таких как прямоугольник, круг и т.д., так что просто...
Процедура GetMem для PascalABC.NET
Долго долго курил страницы форума, изучал динамические списки.
Когда код для программы уже практически собрался в единое целое решил проверить на всякий случай процесс частично. На что ABC.net...
Решение уравнения sqrt(ax+b) = c
надо решить уравнение sqrt(ax+b) = c написал код но как дальше делать не знаю помогите пожалуйста
Код Pascal
program tyryr;
var a,b,c,d:real;
begin
read(a);
read(b);
read(c);
Определить длительность wav файла
Такая проблема. Есть некий аудио файл формата .wav надо прочитать его длительность и записать в переменную.
Используя delete, получить из слова "информатика" слово "математика"
Program Primer6; Uses crt;
var a: string;
Begin
clrscr;
a:='Инка';
writeln(a);
insert('формати',a,3);
writeln(a)
End. Задание:
Набрать и исполнить пример , затем используя...
Площадь квадрата равна S. Вычислить сторону квадрата а, диагональ d и площадь S1 описанного около этого квадрата круга
Напишите, пожалуйста, программу, через процедуру, максимально просто в PascalABC.net.
Найти третий нечётный элемент расположенный выше побочной диагонали
7)Дан двумерный массив. Найти третий нечётный элемент расположенный выше побочной диагонали.
Подсчет количества букв а в строке
дана строка символов подсчитать кол-во букв а в строке
Клик мышкой
Здравствуйте! У меня вопрос по PascalABC.NET:
1)Как, кликая на кнопку(!!!ТОЛЬКО НА КНОПКУ!!!), выполнялся выход из программы(или любое другое)?!
2)И как еще сделать так чтобы только при нажатие...
Решение квадратного уравнения
Добрый день.
Нужно написать программу для решения квадратного уравнения через дискриминант с самыми простыми функциями (if, else, then).
Как вычислять сложность алгоритма, или найти асимптотическую сложность любой программки?
Например
Вычислить x^n по алгоритму быстрого возведения в степень
Добавлено через 43 секунды
var
x, n, r: word;
begin
Вычислить остаток от деления, не используя операцию mod
Дана задача:
Как можно вычислить остаток от деления, не используя операцию mod?
Определить номера двух соседних элементов массива, имеющих минимальную сумму
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне и определяет номера двух соседних элементов этого массива, имеющих минимальную сумму. Если таких пар...
Из трехзначного числа x вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последн
Из трехзначного числа x вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа x, то получилось число n. Найти число n. По заданному n найти...
Вывод одинарной кавычки посредством её экранирования
В C# следующий вариант работает:
using System;
namespace Экранирование
{
class Program
{
static void Main(string args)
{
Console.WriteLine('\'');
Найти сумму чисел оканчивающихся на 4
Дана последовательность чисел. Найти сумму чисел оканчивающихся на 4.
Как сохранить в Паскале АВС NET исполняемый файл
Как сохранить в Паскале АВС NET файл с расширением .exe
KeyUp и KeyDown
Суть программы проста, нужно что бы когда я нажимал клавишу окно загоралось зеленым цветом, когда отпускал становилось красным. В паскале, да и не только в нем, полный профан, так что подскажите где...
Как вывести картинки на экран В графическом режиме pascal abc
например если ваш знак овен ,вывести эту картину
uses graphABC;
const kol=1000;
cl:arrayof Color=(clBlue,clWhite,clYellow,clSkyBlue);
type mas=array of point;
procedure...
Составить программу, которая запрашивает пароль (трехзначное число + 2 символа) до тех пор, пока он не будет
Составить программу, которая запрашивает пароль (трехзначное число + 2 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы.
Вычислить сумму чисел от 1 до 100
Написать программу вычисления суммы чисел от 1 до 100, ИСПОЛЬЗУЯ оператор цикла while
Кодировка консоли Pascal ABC.NET(886)
Возникла проблема с консолью Pascal ABC.NET, у данной консоли кодировка для кириллицы 886, а для того, чтобы программа работала нужна кодировка 1251, подскажите как поменять кодировку консоли на 1251.
Как работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ' Hello world ' делаю 'Hello, world'
a.strip(' ')
a=', '.join(a.split(' '))
В Паскале как такое сделать?
Как считывать нажатия клавиш клавиатуры?
Как считывать нажатия клавиш клавиатуры с активным окном программы с graphabc?
Внутренняя ошибка компилятора в модуле [pabcnetc.exe]
Внутренняя ошибка компилятора в модуле :'System.Exception: System.IndexOutOfRangeException: Индекс находился вне границ массива.
в PascalABCCompiler.PCU.PCUReader.GetNamespaceFunction(Int32...
Паскаль и андроид
Возможно ли писать приложения для андроида? Возможно есть какие-то порты?
Записать выражение на языке программирования Pascal
я почему то туплю, ничего вспомнить не могу помогите пожалуйста
Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна 50
Помогите пожалуйста.
Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна 50.
Нарисовать божью коровку
Добрый день, подскажите как сделать так, чтобы часть черной точи не выходила за границы. Вот фото рисунка, который нужно нарисовать. Как видите тут Ellipse в нижней половине божьей коровки не выходит...
Дано натуральное число. Определить,сколько раз в нем встречается максимальная цифра
1 Дано натуральное число. Определить,сколько раз в нем встречается максимальная цифра.
Как закрыть форму?
Создан проект, первой формой идет титульник, а второй собственно сама программа. Запускается титульник, далее, жмется кнопка ОК и выскакивает форма с основной программой, но как сделать...
Как ввести 2 разных переменных в одной строке?
Как сделать чтобы переменная K:real и n1:string читались на одной строке?
Пробовал readln(K, n1) выдаёт ошибку.
Шифр Цезаря
нужно написать программу, шифрующий строку шифром цезаря, причем задается произвольный сдвиг и алфавит в виде массива
Добавлено через 14 часов 32 минуты
написала программу, примерно так нужно, но...
Напишите программу, которая вводит координаты точки А на плоскости и определяет, попала ли точка в область
Напишите программу, которая вводит координаты точки А(x,y) на плоскости и определяет, попала ли точка в заштрихованную область. Результат попал или не попал.
ПОЖАЛУЙСТА, в pascal abc.net
Кол-во единиц в двоичной записи
С клавиатуры вводится число в десятичной, переводится в двоичное и выводится кол-во единиц. var
a,b:integer;
begin
readln(a);
b:=0;
while a>0 do begin
a:=a div 2;
b:=b+1;
...
Ввод массива чисел через пробел и readln
Здрасте! Помогите с вопросом: Как в этом коде ввод массива ограничивать не цифрой а до нажатия Enter
for i:= 1 to 10 do readln(arr);
Например: вводим 1 2 3 4 5 и жмём Enter и массив заполняется...
Найти среднеарифметическое элементов последовательности, превосходящих некоторое число С
Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив заданный датчиком случайных чисел на интервале . Размер произвольный. Значение С вводится с экрана. ...
Как создать динамический массив?
Ребят, как создать примерно такой динамический массив
var
N :integer;
mas : array og integer
begin
end.
при компиляции программа выдает ошибку, то, что N должен быть константой. Как сделать...
Даны три числа. Могут ли они быть сторонами треугольника?
Написать программу: Даны произвольные числа a, b и с. Если нельзя построить треугольник с такими длинами сторон, то напечатать 0, иначе напечатать 3, 2 или 1 в зависимости от того, равносторонний это...
Редактирование окна
Помогите плиз. Можно ли в окне программы заменить надпись GraphABC на свою а так же сменить иконку в окне? И возможно ли сделать так, чтобы программа запускалась без окна MS-DOS?
Вычисление выражения: Ошибка infinity
program prim;
uses crt;
Label 1;
var
a,c,y,x,xn,xk,hx:real;
otv:0..1;
begin
1:Clrscr;
Writeln ('Введите y Верхняя гроница, нижняя и шаг изменения');
Найти и вывести количество пар элементов массива, произведение которых положительно
Условие такое:
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Найти и вывести количество пар элементов массива, произведение...
Вывести номер элемента массива который равен заданному числу.
Помогите написать програму задано число Q вывести номер елемента массива какой равен етому числу или информацию о том что такие елементы отсутствую
Спасибо большое
Дано предложение. Удалить из него все буквы "о", стоящие начетных местах
2. Дано предложение. Удалить из него все буквы "о", стоящие начетных местах. Посчитать количество удаленных букв.
Как вставить алгоритм быстрой сортировки и вычислить среднее число перестановок?
Напишите программу, которая сравнивает число перестановок элементов при использовании сортировки «пузырьком», методом выбора и алгоритма быстрой сортировки. Проверьте ее на разных массивах,...
Как создать рисунок и сохранить его в bmp (точечный рисунок)
Здравствуйте, пишу свой графический редактор и вот не знаю как из того что я рисую в графе сконструировать рисунок , а потом сохранить его в бмп файл. В справке написано constructor Create(w,h:...
Ошибка "Данный объект не может быть передан как var-параметр"
USES crt;
TYPE
vmass = array of real;
vfv = function (x:real):real;
vfc = function (i:integer):real;
CONST
x : vmass =...
Создать множество с рандомными числами из определённого диапазона
Даны три множества X1, Х2, ХЗ, содержащие целые числа из диапазона 1…100. Известно,
что мощность каждого из этих множеств равна 10. Сформировать новое множество Y = Х1+Х2 -X3, из ...
Календарь в паскале
При выполнении данного кода начинается бесконечный цикл. Что надо исправить в условии цикла, что бы он перестал быть бесконечным?
while ((date.day<=28) and (date.month=2) and (date.year mod 4 <>...
Нарисовать танк на PascalABC.NET
Помогите, пожалуйста, нужно нарисовать танк.
Подсчитать среднее арифметическое всех чисел из отрезка [a;b], которые делятся на 3
Напишите программу, которая считывает с клавиатуры два числа a и b, считает и выводит на консоль среднее арифметическое всех чисел из отрезка , которые делятся на 3.
В приведенном ниже примере...
Помогите Тане определить время в часовом поясе подруги
Часы у Тани показывают ровно Н часов, Таня живет в часовом поясе UTC+A, а ее подруга - в часовом поясе UTC+B. Помогите Тане определить время в часовом поясе подруги в этот момент. Программа должна...
Нельзя обратиться к экземплярному полю textBox1 через тип
Доброго времени суток! Написал инженерный калькулятор на Delphi 7 в редакторе форм, хотел перенести хоть часть этого калькулятора (обычный калькулятор) на PascalABC.Net с образовательной целью, и тут...
Найти на отрезке [n;m] натуральное число имеющее наибольшее количество делителей
Найти на отрезке натуральное число имеющее наибольшее количество делителей. P.S. В программе можно использовать только IF... then и цикл FOR... to.
Создание переменных новых переменных в процессе работы программы
Как создать переменные в процессе работы программы. И желательно по такому коду:
program a8;
var
n,c,c1,p,n1,n2,n3:integer;
begin
readln (n);
c:=2;
c1:=250;
while n<c do
Программа с расчетом функции с установкой интервала, шага изменения аргумента функции и с таблицей
Не знаю как написать эту программу, может какой-нибудь добрый человек мне поможет) Рассчитать значения функции y=0.5*cos(x)*sin(x)*x , запросив у пользователя интервал и шаг изменения аргумента...
Найти в массиве количество пар соседних элементов, произведение которых нечётно, а сумма – положительна
Доброго времени суток, форумчане. Уезжаю до 31 числа. Возвращаюсь поздно. Времени нет. Много задач. Помогите.
Дан массив, содержащий 2014 положительных целых чисел в диапазоне от -10000 до...
Решение уравнения ax + b = 0.
Напишите программу решения уравнения ax + b = 0, где a и b — заданные действительные числа, любое из которых может равняться нулю. Ответ выведите с точностью до тысячных.
Из чисел от 10 до 99 вывести те сумма цифр которых равна n
из чисел от 10 до 99 вывести те сумма цифр которых равна n и само число делится на m
Разделить 12 литров воды поровну с помощью 2 пустых ведер с емкостью 8 и 5 литров
Имеется 12 литров воды,нужно разделить поровну с помощью 2 пустых ведер с емкостью 8 и 5 литров.
Клиент-серверное приложение: чат
Пытаюсь написать велосипед клиент-серверный чатик. Исходники брал где-то здесь, частично переписано с C# примера.
Прошу вот какой помощи: если к серверу подключаются два и более клиента, то...
Преобразовать формулу на язык паскаля
Люди добрые, бьюсь уже минут сорок, как данную формулу записать на паскале ?
\frac{\ln \sqrt{\pi +|2-x|}}{3-1/x}+\sqrt{x^{2^\,}}\sin 1.4x
Спасибо большое.
Процедуры. Робот Pascal ABC.NET
Помогите решить задачу Task ('p1') Закрасить, помеченные клетки, используя процедуру Cross
Uses Robot;
begin
Task('p1');
end.
С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5 (цикл с предусловием)
С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5. Использовать цикл с предусловием.
Найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N
Ваша задача — найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N.
Исходные данные
Целое число N (0 ≤ N ≤ 109).
Результат...
Измените регистр символа, если он был латинской буквой
Измените регистр символа, если он был латинской буквой: сделайте его заглавным, если он был строчной буквой и наоборот. Для этого напишите отдельную функцию, меняющую регистр символа.
Формат...
Определить, лежит ли данная точка в четвертой четверти
Ввести с клавиатуры координаты точки А (переменные x и y).
Определить лежит ли данная точка в четвертой четверти. Ответ вывести в виде
сообщения.
Найти целое число — показатель степени
While. Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.
Вывести на экран изображение шахматной доски
Ввести натуральное число N и вывести на экран изображение шахматной доски NxN, где черные клетки изображаются звездочками, а белые - пробелами.
Ввести 2 числа (a < b) и вывести все четные числа между ними
Напишите программу, которая вводит 2 числа (a<b) и выводит все четные числа между ними
Запуск диалогового окна
Здравствуйте, нужна помощь. Скачал дизайнер форм, нужно открыть с помощью него диалоговое окно? Такой код не помогает:
Form2.ShowDialog(Form1);
Вот что-то не в курю, уже много чего...
Проверка наличия элемента во множестве
в Питоне есть такая штука как множества, и там, например, поиск во множестве элемента составляет O(1), что очень удобно
есть ли что-нить похожее в паскале?
Написать программу, изображающую треугольник. Использовать модуль graphABC с объяснениями
Помогите пожалуйста!!!
Перевести число (возможно, отрицательное), записанное в шестнадцатеричной системе счисления, в двоичную систему.
Напишите программу, которая переводит число (возможно, отрицательное), записанное в шестнадцатеричной системе счисления, в двоичную систему.
Входные данные
Входная строка содержит...
Запуск программы в фоновом режиме
Как сделать так, что бы программа на PascalABC.NET запускалась в фоновом режиме, (в смысле что бы пользователь не видел, что программа запустилась)?
P.S. И было бы не плохо если бы она...
Дано значение угла в радианах. Определить значение этого же угла в градусах
Вот смотрите - условие задачи:
Дано значение угла α в радианах (0 ≤ α < 2·π). Определить значение этого же угла в градусах, учитывая, что 180° = π радианов. В качестве значения π...
На вход программе подаются сведения о телефонах всех сотрудников некоторого учреждения
На вход программе подаются сведения о телефонах всех сотрудников некоторого учреждения. В первой строке сообщается количество сотрудников N, каждая из следующих N строк имеет следующий формат:...
Написать программу определения катета и площади прямоугольного треугольника, по заданным катету и гипотенузе
Написать программу определения катета и площади прямоугольного треугольника, по заданным катету и гипотенузе. Длины катета и гипотенузы ввести с экрана.
Как получить текст из TextBox'a
Всем привет! Не могу получить содержимое TextBox'а.
Задача: при клике на кнопку заполнить переменную "comment" содержимым текст бокса.
Вот что у меня получилось:
var comment : string;
...
Процедура НОД и НОК
Здравствуйте. Написал отдельно функции с НОД и НОК, а собрать в одну процедуру не могу. Помогите, пожалуйста.
Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее...
Замена стандартной иконки в заголовке
Возможно ли вообще заменить стандартную иконку в заголовке окна?
Найти сумму нечетных чисел от а до b
найти сумму нечетных чисел от а до b, используя циклы For, while and repeat
Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами
Когда пользователь работает в операционной системе Winux, у него часто запущено несколько приложений. Каждое из приложений работает в отдельном окне. Для переключения между окнами используется...
Напишите программу для вычисления точки пересечения между двумя прямыми y=k1*x+b1 и y=k2*x+b2
Напишите программу для вычисления точки пересечения между двумя прямыми y=k1*x+b1 и y=k2*x+b2.
Ошибка времени выполнения: значение было недопустимо малым или недопустимо большим для знака
program ex4;
var fin: text;
fout: text;
funcWords: array of string;
qWords: array of integer; //частота слова
w: string;
c: char;
allF, all, leng: integer;
Воспроизведение музыки
пишет: неизвестное имя 'Media'
это когда пытаюсь сделать муз.плеер
Как перейти с одной формы на другую?
можете мне помочь , у меня есть 2 формы Form1 и From2 (Паскале абс.нет) и мне надо чтоб при нажатии на кнопку в фром 1 открывалась фром 2 . можете объяснить что где писать.. плз помогите буду рад
Записать логическое выражение, которое является истинным тогда, когда выполняются условия при заданных числ
здравствуйте! Помогите пожалуйста в паскале. Записать логическое выражение, которое является истинным тогда, когда выполняются условия при заданных числах k, l, n, m. Если k=0, то l>m, но если k<0,...
Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,
Помогите пожалуйста, очень срочно(
Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2, ..
в которой числитель (знаменатель) следующего члена последовательности
получается...
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица {aij} i, j = 1, …, n, если aij = sin(i+j/2)
Дано натуральное число n. Выяснить, сколько положительных
элементов содержит матрица {aij} i, j = 1, …, n, если aij = sin(i+j/2).
Graph3D - функции
В чём прикол создавать примитивы функциями?
uses Graph3D;
begin
View3D.Title := 'Вращение Земли';
View3D.CameraMode := CameraMode.Inspect;
View3D.ShowCoordinateSystem := False;
...
Определить, лежит ли точка А в области, ограниченной параболой у=2 - х2 и осью абсцисс
Нужна помощь, главная проблема в том, что не знаю даже как математически решить.
Задание: написать блок-схему и программу расчета функции для всех вариантов переменных.
Определить, лежит ли...
Заполните одномерный числовой массив B(15) случайными целыми числами в интервале [-6;12]
Для каждой задачи создайте алгоритм и программу. заполните одномерный числовой массив B(15) случайными целыми числами в интервале . Выведите значение элементов массива сначала в столбик, а затем в...
По количеству секунд вывести время в формате hh:mm:ss
Человек записывает количество секунд с начала дня.Требуется вывести который сейчас час в формате:hh:mm:ss
Пример:
3602 01:00:02
129700 12:01:40
*
Возведение числа в степень за наименьшее число операций
Подскажите как число возвести в степень ( и число и степень надо задать), и надо сделать при этом наименьшее число операций при использование умножения или квадрата?
Запись полученных данных в таблицу Excel
Всем привет!
Программа читает данные из txt-файла. Далее нужно сделать так, чтобы программа записывала полученные данные в таблицу Excel. Вопрос: как такое реализовать?
Заранее спасибо за ответ!
Составить программу построения трех концентрических окружностей
построения трех концентрических окружностей (с одним центром, но разными радиусами). произвести заливку окружностей
Сдвинуть все элементы массива вправо на заданное число позиций
С клавиатуры вводится произвольный одномерный массив типа Real (не более 10 элементов), после чего делается его контрольный вывод. Сдвинуть все элементы массива вправо на заданное число позиций.
...
Создание заданного лабиринта для Исполнителя робот
Как создать заданной структуры лабиринт для Исполнителя робот в Pascal ABC NET?
Из всех команд описания есть лишь (цитата)
процедура StandardField без параметров, а для создания поля размера N x M...
Программа должна вывести представление переданного её числа в нега-двоичной системе счисления
Нега-двоичная система счисления – это система счисления с основанием (-2). Основное преимущество нега-двоичной системы счислении – отсутствие знака перед отрицательными числами и, следовательно,...
Найти количество чисел, кратных 5
1) Найти количество чисел, кратных 5
Вычислить значения функции F(x) на отрезке [а, b] с шагом h.
Вычислить значения следующих функций F(x) на отрезке с шагом h, представив результат в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции:
F(x)=sin...
Нарисовать несколько окружностей
Как сделать чтобы несколько окружностей были нарисованы по горизонтали
Составить программу, по которой на экран будет выведена таблица умножения
Составить программу, по которой на экран будет выведена таблица умножения
Program1.pas(6) : Встречено ';', а ожидалось '.'
Program z4;
var n: integer;
begin
writeln('введите, сколько прошло минут');
reanln(a);
writeln:('сейчас ',((n div 60) mod 24),' часов ',(n mod 60),' минут');
end.
Игра 15 (пятнашки)
Мне вот задали курсовую написать игру.Так незнаю что делать....
Может кто-то написать?
Дано натуральное число, в котором все цифры различны. Определить порядковый номер его максимальной цифры
Дано натуральное число, в котором все цифры различны. Определить порядковый номер его максимальной цифры, считая номера от начала числа
с помощью REPEAT
Наименьшая нечетная сумма двух соседних элементов массива
Привет, ребят. Ну, оооочень нужна помощь. Уезжаю. Не будет интернета и пк. Помогите. Также посмотрите другие мои темы, если будет время!
Дан массив, содержащий 70 неотрицательных целых чисел....
Дана последовательность чисел от 1 до N и число M (> 1). Найти наибольшее целое среди последовательности чисел, при кото
Дана последовательность чисел от 1 до N и число M (> 1). Найти наибольшее
целое среди последовательности чисел, при котором выполняется
неравенство 3K < N, и само значение 3K.
Написать программу на Паскале решения неравенства ax >= b для любых заданных действительных значений a и b
Написать программу на Паскале решения неравенства ax >= b для любых заданных действительных значений a и b.
Изменить цвет формы по кнопке
Как сделать так что бы при нажатии кнопки в windows form менялся рандомно цвет
Броуновское движение
Необходимо написать программу, которая смоделирует Броуновское движение частиц. Помоги пожалуйста!!!
Заполнить массив случайными числами от -30 до 30 и распечатать
Заполнить массив случайными числами от -30 до 30. (количество элементов 10). Распечатать массив.
1) Найдите сумму положительных элементов.
2) Подсчитать количество четных элементов.
3) Напечатать...
Удалить из строки пробелы и определить, является ли она перевертышем
Вводится строка. Удалить из нее все пробелы. После этого определить, является ли она палиндромом (перевертышем), т.е. одинаково пишется как с начала, так и с конца.
Добавлено через 4 минуты
Это...
Найти номера столбцов двумерного массива, которые имеют нулевые элементы
Разработайте схему алгоритма и программу обработки двумерного массива. Определите номера столбцов двумерного массива, которые имеют нулевые элементы. Входные данные для элементов массива задайте...
Вставить в массив элемент после максимального значения
6) Дан одномерный массив. Вставить в массив элемент после максимального значения.
Связь между формами в редакторе форм
Создал в редакторе форм в PascalABC.NET 2 формы. Нужно чтобы при нажатии кнопки на одной форме, изменялся комментарий на второй форме. Попробовал совет отсюда: ...
Нарисовать кораблик
Нарисовать кораблик:
По какую сторону от прямой лежит точка.
Space Oddity
Космонавт Пётр летает по двумерному космосу в одном и том же направлении уже который год и уже давно не видел в иллюминатор ничего интересного. Но с Земли ему поступила интересная...
Найти в последовательности натуральных чисел количество таких чисел, которые кратны 4 и оканчиваются на 2
Напишите программу, которая в последовательности натуральных чисел определяет количество таких чисел, которые кратны 4 и оканчиваются на 2. Программа получает на вход натуральные числа, количество...
Как вывести диалоговое окно?
Пишу на GraphABC
1) Как вывести диалоговое окно ? Например, пользователь вводит название файла, если файл не найден, то надо вывести окно с текстом, что файл не найден
2) Как получить координаты...
Найти среднее арифметическое элементов массива
Все входные данные подпрограммы должны получать через список параметров. Внутри подпрограмм не должно быть ввода с клавиатуры и вывода на экран, весь ввод-вывод должен быть в тестирующих программах....
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно
Помогите, пожалуйста, решить задачу.
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые
значения от 0 до 10000 включительно. Составьте программу, позволяющую найти и...
Записать строку в массив символов
Нужно что-бы пользователь ввел что-то (типа строковые!) затем нужно переписать эту строку в массив типа символы((g.ToCharArray).
Верно ли,что число "н" k-значное?
Здравствуйте,формучане.Помогите решить:дано натуральное число n,верно ли,что число k-значное?
Найти площадь круга с использованием процедуры
Найти площадь круга с использованием процедуры,которая производит только вычисления,но не отображает результат на экране.(S=Пр2).
Рисование в PictureBox
Господа, вопрос, возможно тупой, но очень надо.
На форме есть PictureBox. Как на нем нарисовать линию.
!!Но не в процедуре PaintII
А на пример по клику кнопки. То есть нажимаю кнопку, и у...
Найти произведение элементов последовательности
Пусть a0=a1=1; ai=ai-2+(ai-1/2i-1), i=2,3...
найти произведение a0*a1*....a14
Если одно число больше другого, то вычислить выражение
Даны четыре различных вещественных числа a, b, c, d. Если a больше c, то вычислить min, в противном случае - определить значение выражения max.
На языке Паскаль.
Определить номера двух симметричных элементов массива
Пара элементов в массиве называется симметричной , если эти элементы находятся на одинаковом расстоянии от концов массива. Так в массиве размером N симметричными будут пары элементов с порядковыми...
Инженерный калькулятор
Здраствуйте нужна помощь в создании инженерного калькулятора, обычный калькулятор сделал(пример кода оставлю), а вот инженерный чёт не получается program kalkulator;
uses crt;
var I,J:integer;...
В первой строке входного файла через пробел заданы натуральные числа M и N
ПОСМОТРИТЕ ПОЖАЛУЙСТА ОШИБКА С ВВОДОМ ДАННЫХ
В первой строке входного файла через пробел заданы натуральные числа M и N (1 ⩽ M ⩽ 1000, 1 ⩽ N ⩽ 20) — количество участников и число задач олимпиады,...
Создать объект типа Picture с использованием картинки из ресурсов / преобразовать тип Image к Picture
Здравствуйте. Нашел пост о том, как добавлять картинки в ресурсы программы,но не смог разобраться в том, как создавать объекты типа Picture из этих картинок. В конструкторе можно загружать картинки...
В последовательности натуральных чисел найти сумму чисел, кратных 4 и заканчивающихся на 2
Кол-во чисел вводит человек, В последовательности натуральных чисел надо найти сумму всех чисел, которые кратны 4 и которые заканчиваются на 2
2) последовательность заканчивается 0 (0-признак...
Как программно отправить письмо на электронную почту
Доброго времени суток, программисты! Появилась идея для довольно интересного проекта, однако моих навыков владения ПаскальАБС.нет не достаточно. Мне нужна ваша помощь:) Мне нужно понять лишь идею,...
Танчики
Помогите, пожалуйста.
В данном языке не силен, так что некоторых тонкостей не знаю, поэтому не нужно ругаться на мои ошибки, если они есть.
Хочу написать небольшую игрушку по типу "Танчики" на...
Определить принадлежность точки прямой, отрезку, многоугольнику
Составить программу, которая использует модуль. В модуле разработать подпрограммы для работы с декартовой плоскостью: принадлежность точки прямой, отрезку, многоугольнику.
Ввод текста в обход GraphABC
Доброго дня.
Подскажите, пожалуйста, каким образом можно организовать ввод текста при использовании GraphABC? Здесь витали темы такого плана, но все говорили, мол, "это невозможно!" или что-то в...
Определить есть ли одинаковые цифры в трехзначном числе
Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условият в ABC.NET
-среди цифр заданного трехзначного числа есть одинаковые.используя...
Как получить текущее время в формате «час и количество минут»?
Как получить текущее время в формате "hour:minutes"? Можно ли получить отдельно час и количество минут?
Открыть второе окно с кнопками
Требуется в процедуре Myclick, чтобы выходило второе окно, в котором будут выведены результаты x1,x2,x3 и добавлено 3 кнопки (например "Вывести результаты расчета x1")
Возожно ли это :umnik:
и что...
Вывести слова, начинающиеся с заглавной буквы
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу обработки данной строки, выводящую через запятую:слова, начинающиеся с прописной буквы, в которых...
Ошибка времени выполнения: Звуковой API поддерживает воспроизведение только волновых файлов PCM
Unit1.pas(32) : Ошибка времени выполнения: Звуковой API поддерживает воспроизведение только волновых файлов PCM.
Помогите пожалуйста что в VS(на с#), что в pascalabc.net одна и та же ошибка
...
Оператор перезапуска программы
Доброго времени суток форумчане!
Подскажите пожалуйста, а как можно во время выполнения программы её перезапустить? Есть ли такой оператор? Допустим есть большая у нас программа с большим...
Как присвоить переменной результат работы процедуры?
как присвоить процедуру к переменной?
например есть процедура(функция) random var a : integer;
begin
a:=random(r);
end.
и есть самопальная процедура:
var a:integer; b:real;
procedure...
Создание интерфейса, имея код Pascal
Здравствуйте! Написал код в Паскале, но хочется красивости. Делфи для этого подходит? Сам паскалевский код не надо переписывать (коды аналогичны)?
Как создать такой интерфейс: по центру вставить...
Создание объектов ABCObjects и работа с мышью
Работа идёт в PascalABC.NET с модулями GraphABC для работы с мышью и ABCObjects для создания объектов.
Необходимо:
1) на клик левой кнопкой мыши создать объект(красный круг радиусом 15)
2) на...
Как обратиться к последнему символу в строке (string)?
Дана задача, где пользователь вводит строку. Нужно, чтобы строка не начиналась и не заканчивалась пробелами.
При вводе предложения я проверяю первый символ на правильность ввода обращаясь...
Задача про джип бензин и дорогу
Всем привет, требуется помощь в решении задачи, мне нужна хотя бы идея как её сделать
Вот текст самой задачи:
Наш джип находится в пустыне и должен достичь точки, находящейся на расстоянии N...
Задать размерность массива с помощью переменной
Доброго времени суток!Сложились некоторые вопросы по описанию переменных и массивов...
Вот допустим,
Описали переменную А
ввели А
Как описать одномерный массив после этого от 1 до А???...
Даны два целых числа k и n. Выведите 2k + 2n
Нельзя использовать циклы, условные инструкции, вызовы функций (то есть любые нелинейные конструкции в алгоритмах), арифметические операции («+», «-», «*», деление). Можно использовать
только...
Действие при нажатии на клавишу
Здравствуйте !
Необходимо при нажатии клавиши на клавиатуре, совершать действие ( прибавлять к переменной x = > "1")
В программе используется модуль crt and graph. Если использовать их вместе...
Дано натуральное число n. Необходимо найти сумму тех цифр этого числа, которые больше 5
B. Сумма «больших» цифр
Дано натуральное число n. Необходимо найти сумму тех цифр этого числа, которые больше 5.
Формат входных данных
Вводится целое число n (1≤n≤231−1)....
Создания рандомных точек в GraphABC
Здравствуйте. Нужно создать программу,которая ставит точки в рандомных местах с рандомным цветом.
for n:=1 to 9999 do
begin
randomize;
x1:=random(100,300);
y1:=random(100,300);...
Пользователь вводит четыре числа. Программа выводит их в порядке возрастания
Пользователь вводит четыре числа. Программа выводит их в порядке возрастания.
Запрещено использовать сравнения, условия, циклы, но разрешено функции Min() и Max().
Программа расчета значения функции
Составить программу расчета значения функции Z = (х4 – 2 ctg х2у2 )/| 8х2 – 5 arctg у| при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
Сравнить длину двух строк, введенных с клавиатуры
Спасиб заранее
"Встречено '=', а ожидалось ';'
Program Laba4;
Var
y, x : real;
begin
WriteLn('Введите число x:');
ReadLn(x);
If x <= 3 then
y = sqr(x) - 3 * x + 9;
WriteLn("y=",y)
else if x > 3 then
Генерация лабиринта
Нужна программка генерации лабиринта, а точнее матрицы заданного размера из 0 и 1 где 0 это проход, а 1 это стена.
Заменить в строке все пробелы на восклицательные знаки
{С клавиатуры вводится строка.
Заменить в ней все пробелы на восклицательные знаки}
procedure vvod(s: string; var a: string);
begin
Writeln(s);
Readln(a);
end;
Var st, st1, st2...
Нужно исправить программу, выводится Infinity
Приветствую всех. Помогите, пожалуйста, исправить.
Код
Program LR6;
var x,a,s:real;
i:integer;
const E=1E-5;
type func = function(x:real;n:integer):real;
{рекур функция}
...
Выяснить, чему будет равен остаток от деления 2 в степени N на 10?
Условие задачи - Чему будет равен остаток от деления 2 в степени N на 10?
Входные данные
Дано единственное неотрицательное число 0 ≤ N ≤ 10 в степени 9.
...
Определите и выведите на экран лучший и худший результаты с номерами спортсменов
Результаты соревнований по прыжкам в воду и порядковый номер участников хранятся в массиве.Нечетный элемент массива определяет номер участника,четный-результат.Определите и выведите на экран лучший и...
Найти счастливый билет
Вы пользуетесь общественным транспортом? Вероятно, вы расплачивались за проезд и получали билет с номером. Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр...
Вывести все совершенные числа в диапазоне от 1 до N
Вроде все сделал правильно, но не проходит два последних теста (informatics.ru), что может быть не так?
Задача:
Совершенным называется число, равное сумме всех своих делителей, меньших его самого...
Построить круговую диаграмму “Нормы питания"
Построить круговую диаграмму “Нормы питания девочек 11-13 лет”. Девочки 11-13 лет должны получать в день 85г белков, 85г жиров, 340г углеводов.
Как убрать мерцание для графического объекта?
Использую этот цикл. Мерцает.
repeat
Window.Clear(clblack);
LockDrawing;
X := System.Windows.Forms.Cursor.Position.X;
Y := System.Windows.Forms.Cursor.Position.Y;
cr := new...
Нужен список функций и процедур для FormsABC
Нигде не могу найти элементарный список функций и процедур для FormsABC
Я не имею ни малейщего понятия какой там синтаксис и возможности.
Напишите где найти либо дайте ссылку
Как ограничить количество цифр после запятой в окне вывода. В массиве
Такая ситуация, есть массив, который вычисляется по формуле
Массив из 10 значений
И каждое значение в массиве при выводе на экран отображает кучу знаков после запятой, быть точнее, примерно так:...
Язык «тумба-юмба»
Алфавит языка племени «тумба-юмба» содержит всего несколько букв. Найдите все слова длины K , которые можно построить с помощью этого алфавита и в которых первая буква алфавита встречается больше...
Найти и вывести произведение двузначных элементов массива, которые не делятся на 6
Привет, ребят! Наверное вас долбают постоянные подобные вопросы.
Начну с того, что было задано нам отработать старые темы по информатике. Вот нам и задали 123 задания. Я сделал большую часть, но все...
Ошибка времени выполнения: "Файл не открыт"
Помогите пожалуйста исправить ошибку,возможно не замечаю очевидного, пишет
Ошибка времени выполнения: Файл не открыт Спасибо
var
F: text;
G: text;
n: integer;
begin
...
Случайная перестановка элементов массива
Напишите программу, которая строит случайную перестановку чисел от 1 до N – массив из N натуральных чисел, в котором есть все числа от 1 до N .
Входные данные
Входная строка содержит размер...
Найти и вывести сумму всех содержащихся в массиве трёхзначных чисел
Привет всем. Мне нужно уехать в то место, где нет интернета и пк. Есть задания. Нужна помощь.
Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000. Опишите на
одном из...
Моделирование упругого столкновения шаров
Помогите пожалуйста!!!( я не сильна в программировании но мне очень надо написать программу на Паскаль. Что должно изображаться: два шарика катятся навстречу друг другу, происходит упругое соударение...
Определить, к какой стороне или к какому углу плота пловец доплывёт быстрее всего
Посередине озера плавает плот, имеющий форму прямоугольника. Стороны плота
направлены вдоль параллелей и меридианов. Введём систему координат, в которой ось OX
направлена на восток, а ось ОY – на...
Что значит "uses crt;"
Что значит "uses crt;" Не могли бы вы объяснить пожалуйста!
Создавать массив можно с помощью генератора случайных чисел
Здравствуйте, подтолкните пожалуйста.
Добавлено через 2 минуты
Необходимо создать программу в СП PascalABC.NET, генерирующую массив целых чисел из n элементов (n задается с клавиатуры и n<=100)...
Определить, поразит ли снаряд цель высотой p расположенную в вертикальной плоскости ствола орудия
Траектория снаряда, вылетающего из орудия под углом a со скоростью v0 задается уравнениями:
x=v0tcos(a)
y=v0tsin(a)-gt^2/2
g=9.8
t-время
введите значения a и v0
Определить,поразит ли снаряд...
Динамическое программирование: ограничение на количество команд
Здравствуйте. Помогите написать программу.
Исполнитель Простачок преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера:
1. Прибавить 2
2. Прибавить 3...
Программный модуль, формирующий матрицу доступов субъектов к объектам компьютерной системы
Здравствуйте, помогите с программой на паскале пожалуйста.
1.Реализуйте программный модуль, формирующий матрицу доступов субъектов к объектам компьютерной системы
Реализация данного модуля...
Составить программу для вычисления таблицы значений функции F(x)
F(x)=3ln|x|+sqrt|sinx-cos2x| для x из с шагом 0.2.
System.IO.DirectoryNotFoundException: Не удалось найти часть пути
Здравствуйте, я лишь только начал познавать сею науку современности(спасибо этому форуму за идею), скачал PascalABC.net. Но мне тут же выдало ошибку следующего содержания.
() : Внутренняя ошибка...
Расчет возраста человека
Дана дата рождения человека. Нужно вывести на экран возраст человека (точнее, количество полных лет)
Рассматривается множество целых чисел, принадлежащих числовому отрезку [1871; 9197], которые
Рассматривается множество целых чисел, принадлежащих числовому отрезку , которые удовлетворяют следующим условиям:
− количество цифр в шестнадцатеричной и десятичной записях числа не совпадает;
−...
Объясните 1 строку
Рассмотрим множество целых чисел, принадлежащий числовому отрезку , в записи которых используются только нечетные цифры.
Найдите количество таких чисел и их сумму.
В ответе запишите два целых...
Списки
Элементы обработки данных должны быть оформлены в виде процедур и функций.
----------------------
Тип элементов списка- char
Интервал,которому принадлежат элементы списка- прописные русские буквы...
Найти сумму цифр числа
требовалось написать программу которая вводит с клавиатуры натуральное число n<10^9 и выводит на экран сумму цифр числа. что здесь не верно?
VAR N, S: integer;
begin
readln(N);
s:=0;
while N>0...
Program1.pas(6) : Встречено '<', а ожидалось выражение
PROGRAM OL;
Var a, b, h:integer;
begin
WriteLn('Введите число');
ReadLn(a);
If a>=2 and a=<14
then
begin
b:=3;
p:=a*a+b*b
С клавиатуры вводятся координаты точки x, y. Напишите программу, которая сообщает положение точки на плоскости
С клавиатуры вводятся координаты точки x, y. Напишите программу, которая сообщает положение точки на координатной плоскости: «ось ОХ», «ось ОУ», «1 четверть», «2 четверть» и т.д.
пожалуйста, в...
Остров Манхэттен был приобретен поселенцами за $24 в 1826 г. Каково было бы в настоящее время состояние их счета?
7. Остров Манхэттен был приобретен поселенцами за $24 в 1826 г. Каково было бы в настоящее время состояние их счета, если бы эти 24 доллара были помещены тогда в банк под 6% годового дохода? Написать...
Написать обучающий тест
Нужно написать обучающий тест по любой дисциплине! Срочно нужно!! Или может у кого есть готовая программа!
Вылетает программа с подключенным модулем crt
Здравствуйте. Я новичок в PascalABC.Net, поэтому прошу помочь, а не бросаться тапками, за тупые вопросы. Дело в том, что я создал программу, которая создаёт эффект, как в фильме матрица. Подключил...
Игра Змейка
Кто знает как,у кого уже есть практика в этом деле,напиши код игры змейка,пожалуйста если не сложно с комментариями,очень хочу разобраться!!!));)
Парсинг в PascalABC.NET
Приветствую форумчан!
У меня вопрос: нет ли в PascalABC.Net оператора, процедуры или функции, которая "парсила" бы строку подобно оператору PARSE в языке REXX, вот так (пример исходного кода для...
Трёхзначное число
Всем доброго здоровичка! Такая задачка:
Автомат получает на вход трёхзначное число. По этому числу строится новое число по следующим правилам.
1. Из цифр, образующих десятичную запись N, строятся...
Напишите программу, которая проверяет правильность имени переменной в языке Паскаль
Напишите программу, которая проверяет правильность имени переменной в языке Паскаль. Имя может содержать только латинские буквы (заглавные и строчные), цифры и знак подчёркивания, но не может...
Оператор case - вычисление даты следующего дня
Написать программу, которая вычисляет дату следующего дня.
Подскажите, для чего и как в этой задаче использовать оператор case? Если только ,например, пользователь вводит первый день или...
Исполнитель Простачок преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера:
Помогите, пожалуйста, написать программу в Паскале
Исполнитель Простачок преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера:
1. Прибавить 2
2....
Сколькими способами можно расположить в ряд 2 зелёные и 4 красные лампочки?
Разработать программу с использованием комбинаторных алгоритмов
Задание: Сколькими способами можно расположить в ряд 2 зелёные и 4 красные лампочки?
Даны действительные числа x, ε (x≠ε, ε>0). Вычислить с точностью ε
Даны действительные числа x, ε (x≠ε, ε>0). Вычислить с точностью ε.
Формулу смотрите во вложениях.
Умножение строки на число
Не понятное задание выдали:
Умножить строку, например состоящую из 50-ти значного числа на маленькое число
Ввод с клавиатуры.
Как сохранить изображение с формы?
вообщем с помощью события paint или с помощью дескриптора формы нарисовал на ней к примеру треугольник
и как мне теперь сохранить его в файл
пробовал var bit:=new...
Как активировать Extended и другие типы переменных
Как активировать Extended в Pascal ABC.NET? И другие скрытые типы переменных.
Нельзя преобразовать тип integer к string
var
game: record
const v_main: integer = 1;
const v_sub: integer = 0;
const v_create: integer = 0;
const name: string = 'Game';
end;
begin
writeln(Concat(game.name,'...
Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и отрицательные числа
Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести номер первого элемента, нарушающего...
OpenGL и OpenCL в PascalABC.Net
Администрация, если возможно - закрепите эту тему в важных, если возможно. Ибо это явно важно.
----------------------------------------------------------------------------------
Начну с самого...
Определить, принадлежит ли точка треугольнику
В декартовой системе координат на плоскости заданы координаты вершин треугольника и ещё одной точки. Определить, принадлежит ли эта точка треугольнику.
Формат входных данных
В четырёх строках...
Определить количество натуральных чисел, таких, что сумма любых трех подряд идущих цифр числа делится на 3
Определить, сколько существует натуральных k-значных (3<=k<=30) чисел, таких что сумма любых трех подряд идущих цифр числа делится на 3 без остатка.
Например:
Ввод: 3
Вывод: 300
Дано действительное число а. Вычислить f(a), где f-периодическая функция с периодом 2, совпадающая на [-1;1]
Дано действительное число а. Вычислить f(a), где f-периодическая
функция с периодом 2, совпадающая на со следующей функцией.
Задание нужно выполнить используя ТОЛЬКО условия.Не использовать...
Нет ответа в окне вывода
Программа успешно выполняется, однако окошко вывода остается пустым. Помогите пожалуйста, я в тупике, никогда не видел подобного.
program nazvanie;
var j, i:integer; a, x, z, c, Sc, y, yo:real;...
Внести изменения в программу.
var k,a:integer;
begin
write('kolvo k =');
read(k);
for var n:=1 to k do
begin
a:=2*n;
write(a,' ');
end;
end.
Найти количество чисел, кратных 7 и заканчивающихся на 3
const
N=2018;
var
a: array of integer;
i,k,m: integer;
begin
for i := 1 to N do begin
a := i;
write (a,' ');
end;
Подсчитать количество смайлов в тексте
Помогите написаит код программы, которая посчитает количество смайликов в заданном тексте. Смайликом будем считать последовательность символов, удовлетворяющую условиям:
1) первым символом является...
Нельзя преобразовать тип Tuple<string,string,string,string> к string
Здравствуйте, у меня возникла проблема. При запуске кода, вылезает ошибка "Нельзя преобразовать тип Tuple<string,string,string,string> к string". Ошибку выдаёт в 5 строчке снизу.
uses FormsABC;
...
Найти все простые числа из диапазона от N до M
Верна ли программа? И еще нужно составить блок схему.
var m,n,del,i,j:Integer;
f:boolean;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite (output);...
Составьте программу для нахождения минимального элемента массива Х
Составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов, значения которых рассчитываются по формуле xi=(sin(i)-1)/(2cos(i)+1)
заранее спасибо за ответ))...
Рекурсия в Паскале
Рекурсивные вычисления. Разработать программу по описанию алгоритма вычислений
Исполнитель Нолик преобразует двоичное число, записанное на экране. У исполнителя есть две команды, которым присвоены...
Найти степени числа 3, имеющих повторяющиеся цифры, и наименьшее из этих чисел, имеющее наибольшую сумму цифр
Перебор массива + необычные условия.
Рассматривается множество целых чисел, принадлежащих числовому отрезку , которые имеют повторяющиеся цифры, и при этом являются степенью числа 3. Найдите...
Замена подстроки в строке
строке имеются названия тригонометрических функций (sin, cos,tg,ctg). Нужно составить программу, которая заменяет эти названия на русский язык)
function ReplaceStr(const S, Srch, Replace: string):...
Перестановка цифр трехзначного числа
Комбинаторика. Перестановка цифр трехзначного числа.
Необходимо найти все числа, образуемые путём перестановки цифр исходного числа.
Ниже код, написанный чайником.
А как бы решить задачу...
Является ли последовательность цифр числа возрастающей последовательностью?
Выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. Например, для числа 76431 ответ положительный, для чисел 6331, 9782 –...
Ввести с клавиатуры значения переменных a и b вычислить и вывести на экран значение функции, если где x=a*b+a/
помогите пожалуйста
Что такое процедурный тип
Здравствуйте. Помогите студенту. Никак не могу понять, что это значит. Объясните пожалуйста. и если возможно, то по паре примеров. Заранее огромное спасибо
Элементами процедурного типа являются...
Составить программу, определяющую, является ли введенное слово перевертышем
Составить программу, определяющую, является ли введенное слово перевертышем.
Входные данные: ввести строкy Y с длиной не более 255 символов.
Выходные данные: вывести одно число,1- если слово...
Вычислить n-ую сверхстепень двойки по модулю m
Назовем значение выражения 22n n-ой сверхстепенью числа 2. Таким образом, например, третья сверхстепень числа 2 равна 223 = 28 = 256.
Ваша задача – вычислить n-ую сверхстепень двойки по модулю m....
Вывести сумму четных цифр, если число четное и сумму нечетных, если число не четное
С клавиатуры вводится натуральное пятизначное число. Вывести сумму четных цифр, если число четное и сумму нечетных, если число не четное. Без использования массивов, строк, условных операторов.
Нужен аналог FillChar из TP
Привет всем=)
Смотрю тут старые лекции одной компьютерной школы , заметил что там используют fillchar.Поискал в инете понял что это для турбо паскаля.Есть аналогия на Паскаль АБС.Нет?Просто сказали...
Не учитывать регистр букв
Как не учитывать регистр букв в Паскале?
Найти среднее арифметическое чисел, принадлежащих промежутку
Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4.
Для значений Х, изменяющихся от –1 до 3 с шагом 0.25, вычислить значения функции Y и занести их в массив
Для значений Х, изменяющихся от –1 до 3 с шагом 0,25 , вычислить значения функции Y
Полученные значения Y занести в массив. Вывести значения Х и соответствующие им значения элементов результирующего...
Сделать произвольное движение объекта и отскакивание его от стен
Подскажите, как сделать произвольное движение объекта (небольшой прямоугольник) и отскакивание его от стен.
На форуме не нашел похожего примера.
Как убрать курсор или сделать его невидимым
как убрать или как сделать курсор не видимым в окне графики WPF?
Заранее спасибо
Написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом
Здравствуйте, хочу написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом, но программа не выводит вообще ничего. В чем проблема ?
uses GraphABC;
var...
Указатели на ссылочные типы недопустимы
Program1.pas(5) : Указатели на ссылочные типы недопустимы
Program Pr1;
type
IntArray = array of integer;
var
A:^intArray;
i,n : integer;
begin
writeln (' Размер массива '); readln (n);
For...
Дерево Пифагора
Хочу разобраться в коде. Мне не понятна эта строка:
LineTo(x1 + Round(l * sqrt(2) * cos(a1 + pi / 4)), y1 - Round(l * sqrt(2) * sin(a1 + pi / 4)));
в этом коде:
uses GraphABC;
procedure...
Как создать визуальный интерфейс
Подскажите пожалуйста как можно реализовать кнопки в паскаль АВС.net. и вообще какие есть приколюхи для оформления программы?
Возведение числа в степень
Скажите пожалуйста код с помощью которого пользователь сам пишет степень для числа и код для создания степени сразу в программе.
Движение круга по периметру экрана
Нужно сделать так, чтобы круг двигался по периметру всего экрана по часовой стрелке пока не будет нажата ЛКМ.
Построение графика функции
Дорогие программисты прошу у вас помощи, нужно построить универсальный график функции(т.е можно построить любой график).
Надеюсь на вашу помощь.
Желательно под Pascal ABC Net.
Ввод с клавиатуры до тех пор, пока не будет введен определенный символ
Задание:
Написать программу, позволяющую вводить с клавиатуры символы до тех пор, пока не будет введен символ $. Найти количество цифр среди введенных символов.
Нельзя использовать тип массивы и...
Чтение и вывод всего содержимого файла на экран
Здравствуйте!
Подскажите пожалуйста решение такой проблемы:
В PascalABC.NET мне нужно загрузить содержание всего текстового файла и вывести его на экран.
Для этого, как бы, по идеи, надо...
Найти значение выражения: 1^k + 2^k + 3^k+...+n^k
Даны натуральные числа n и k. Найти значение выражения: 1k + 2k + 3k+...+nk.
Как поменять название программы в окне? В заголовке
Пробовал так: title('программа');
Не выходит.
Как сделать всплывающее окно?
В ABC есть множество модулей grafABC, FormsABC. Есть большая программа(диалог с пользователем происходит из консоли(Если есть варианты лучше, просьба, сообщить)), в которой часто нужно писать yes/no,...
Построение снежинки Кохa N-го порядка
Рисуется только одна снежинка. Нужно рисовать разные.
//Снежинка Кохa – это кривая, построенная на каждой из трех сторон равностороннего треугольника
//с длиной стороны, равной a. Разработать...
Расшифровка методом цезаря
Помогите написать программу для расшифровки методом цезаря
расшифровать текст. Смещение 3
- Сзргйзю тсуцълн Уйиефнлм цкрго, ъхс зов кргнспфхег ф зиецынсм ргзс тсзсмхл, ритулрцйзиррс тсжсесулхя с...
Переставить цифры так, чтобы образовалось наименьшее число, написанное теми же цифрами
Дано натуральное число n, переставить его цифры так, чтобы образовалось наименьшее число, написанное теми же цифрами.
вот программа:
program n332;
var n,m,a,p,k,i:integer;
begin
repeat...
Определить количество различных чисел, которое можно составить из цифр данного числа
Вводится трёхзначное число. Определить количество различных чисел, которое можно составить из цифр данного числа (цифру нельзя дублировать,если в исходное число она входит 1 раз). Само число так же...
Составить программу для вычисления произведения чисел
Составить программу для вычисления произведения чисел:
6, 12, 18 ...,60
Решать с помощью циклов While или Repeat, но не как не For, так сказал учитель)Спасибо за ранее!
Вывести элементы выше главной диагонали матрицы в виде треугольника
:(Дан массив A(5,5). Вывести ее в элементы выше главной диагонали в треугольном виде(т.е напечатать элементы верхнего треугольника в виде треугольника). Заранее спасибо!
Треугольник задан координатами его вершин. Вычислить периметр, площадь треугольника
Собственно вот сама задача:
Треугольник задан координатами его вершин. Вычислить периметр, площадь треугольника. Вычисление длин сторон оформить в виде процедуры
А вот то решение, которое у меня...
Удаление элемента массива со сдвигом
Как создать процедуру, удаляющюю любой элемент массива со сдвигом? Результат должен быть таким:
Из: 1, 2 ,3 получить, удалив 2: 1, 3.
Как зафиксировать размер формы и задать расположение по центру экрана, используя windows.forms?
Возможно ли это?Если да, то как? Никак не могу найти в интернете такой информации.
Арифметическая прогрессия
Задана арифметическая прогрессия. 7,1; 5,3; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.
Найти среднее арифметическое нечётных трехзначных чисел в массиве
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Напишите, пожалуйста, программу, позволяющую найти среднее арифметическое нечётных трехзначных...
Подсчитать количество уникальных элементов в двумерном числовом массиве
Подсчитать количество уникальных элементов в двумерном числовом массиве . Паскаль ABC.NET
Ошибка: Program9.pas(28) : Ошибка времени выполнения: Input string was not in a correct format
Ребят такая ошибка: Program9.pas(28) : Ошибка времени выполнения: Input string was not in a correct format.
в чем проблема? можете исправить или помочь
ПРОБЛЕМА В ВЫДЕЛЕННОМ РЯДКЕ
Program test9;...
Подсчитать в массиве количество симметричных пар
Привет, форумчане. Нужна помощь. Уезжаю. Не будет интернета и ПК вовсе.
Дан массив, содержащий 2014 положительных целых чисел. Симметричной парой называются два
элемента, которые находятся на...
Заменить цикл Repeat на While и For
Мне нужно все три цикла... А как заменить на FOR и WHILE я не догоняю....
var
n,i:integer;
begin
write('Колличество волос= ');
readln(n);
repeat
i:=i+1;
if n>10 then
...
Управление клавиатурой
Помогите написать программу чтобы можно было прямоугольник двигать по горизонтали по заданным координатам через клавиатуру
Не могу запустить Pascal ABC.NET (Windows XP)
После установки Pascal ABC.NET, при попытке запуска появляется ошибка "диск\путь к файлу\PascalABCNET.exe не является приложением Win32", в чём может быть проблема?
Рисование шахматной доски
Уважаемые программисты , помогите пожалуйста нарисовать В PascalABC.NET шахматную доску . И если будет не трудно разъясните что к чему.
Заранее приношу свои благодарность тем, кто потратил на это...
Построить таблицу значений функции f для x изменяющегося в пределах от x0 до xk с шагом h
Построить таблицу значений функции f для x изменяющегося в пределах от x0 до xk с шагом h. Значения x0,xk,h задаются пользователем.
Задача про автобусы: Заказать транспорт для перевозки N человек
Необходимо заказать транспорт для перевозки N человек. Заказывать можно автобусы и такси. В каждый автобус можно посадить не более 50 человек, в каждое такси — не более 4 человек. Стоимость заказа...
Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще
Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще.
Входные данные: ввести строку с длиной не более 255 символов.
Выходные данные: вывести одно...
В массиве из 10 чисел есть положительные и отрицательные элементы. Вычислить сумму отрицательных элементов массива
Помогите пожалуйста!
Рассматривается множество целых чисел
Рассматривается множество целых чисел, принадлежащих числовому отрезку , которые не оканчиваются цифрой 5 и являются полными квадратами. Найдите количество таких чисел и наименьшее такое число,...
Поворот матрицы на 90 градусов.
Пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов. Выполните поворот рисунка вправо на 90 градусов, т.е. , например, было
1 2 3 7 8...
Нужен пример распознавания речи с библиотекой Speech
Помогите с распознаванием речи с библиотекой Speech. Надо считывать речь беспрерывно и выделять из неё команды (насколько понял надо юзать Choices). Если можете напишите пример.
Найти все трехзначные числа кратные 11-ти и посчитать их количество
я нашла числа кратные 11-ти,но как посчитать их количество?
Program chisla11;
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
begin
if i mod 11=0 then
writeln(i)
end;
Найти максимальный и минимальный элемент двумерного массива
Всем доброго времени суток, срочно нужна помощь. Надо сделать программу в Паскале, а я не совсем шарю... В общем вот.
Найти максимальный и минимальный элемент двумерного массива.
В заранее выражаю...
Program1.pas(14) : Left не объявлен в типе procedure
uses GraphABC, ABCObjects;
var
x,y: integer;
procedure coub();
begin
RectangleABC.Create(x,y,100,50,clRed);
RectangleABC.Create(x+99,y+25,25,25,clRed);
...
Как создать текстовый файл в Паскале?
Можно ли в PascalABC.NET как-то создавать txt файлы в указанных папках, то есть самому указывать путь к папке, в которой будет создан файл и его имя? Если можно, то как?
Определить номер последней прочитанной страницы по сумме номеров страниц
Задачка: Татьяна Ларина, читая очередной французский роман, подсчитала сумму номеров прочитанных страниц. Написать программу, определяющую номер последней прочитанной страницы. Учесть ситуацию, когда...
Модуль для PascalABC.NET
Здравствуйте уважаемые форумчане, возник вопрос почему не работает модуль.
Вот модуль
unit Sockets;
#reference 'System.dll'
interface
Найти минимальное число, большее n, которое нацело делится на 19
Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Напишите с циклом while
Уже готовая игра на PASCAL ABC.NET
Всем привет!
Однажды, я встретил в интернете простенькую игрушку написанную на BASIC'e, называлась игрушка "ГОПНИК".
Игрушка хоть и была простенькая, но все равно втягивала.
Когда, я про неё...
Определить: количество цифр в числе, среднее арифметическое цифр, сумму квадратов
Дано натуральное число N. Определить: количество цифр в нем; среднее арифметическое его цифр; сумму квадратов
c помощью while
Дано натуральное k. Определить k - ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10
Дано натуральное k. Определить k - ю цифру в последовательности 110100100010000100000…, в которой выписаны подряд степени 10.
Гистограмма
Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым величинам, взятым из некоторой совокупности. Даны семь...
Вычеркнуть в заданном числе цифру так, чтобы число, которое осталось, было наибольшим
нужно составить программу на паскале понятную школьнику:
Задано натуральное число, в котором нет повторяющихся цифр. Вычеркните в этом числе цифру так, чтобы число, которое осталось, было...
Создать игру 21 (очко)
Помогите пожалуйста реализовать программу (21- очко), сам в этом мало чего понимаю.
Пусть D - заштрихованная часть плоскости
Пусть D - заштрихованная часть плоскости и пусть u определяется по х и у следующим образом (запись (х,у) Є D означает что точка с координатами х,у принадлежит D):
помогите пожалуйста разобраться с...
ошибка в программе Встречено 'then', а ожидалось ';'
Добрый день, друзья! Не могу найти к сожалению ошибку в программе. Может кто-нибудь подсказать,Пожалуйста?
program Hello;
const m=6;
var x:real;
n,max,i,j,k,n:integer;
a: array of integer;...
Дан одномерный числовой массив. Найти сумму максимального и минимального элементов
Дан одномерный числовой массив.Найти сумму максимального и минимального элементов.
Сколько в матрице есть K-значных чисел, сумма цифр каждого из которых кратна R
Напишите программу, которая определяет, сколько в матрице есть K -значных чисел, сумма цифр каждого из которых кратна R .
Входные данные
В первой строке записаны через пробел размеры матрицы:...
Найти минимальное натуральное число, не представимое суммой никаких элементов массива P
Составьте программу поиска минимального натурального числа, не представимого суммой никаких элементов массива P(N). Сумма может состоять и из одного слагаемого, но каждый элемент массива может...
Дан массив, содержащий нулевые элементы. “Сожмите” его, передвинув нулевые элементы в конец массива
Знаю, где ошибка, но не могу придумать, как исправить. Если выпадает два соседних нуля, то после сдвига счетчик перескакивает на следующее число, а второй ноль пропускает. Подскажите, как изменить....
Определить, сколько кодов можно составить из букв заданного слова
Светлана составляет коды из букв слова РОСОМАХА. Код должен состоять
из 8 букв, и каждая буква в нём должна встречаться столько же раз, сколько
в заданном слове. Кроме того, в коде не должны стоять...
Как использовать ToLower и ToUpper?
Приведите пожалуйста пример как использовать ToLower и ToUpper
Попробовал так
var s:string;
begin
s:='AvbDv';
s:=ToLower(s);
write(s);
end.
Вылезла ошибка "Неизвестное имя 'ToLower'"
Вывести значения элементов окружности
Нужно написать программу с оператором "case" или "if".
Задача:
элементы окружности пронумерованы следующим образом: 1 — радиус*(R), 2 — диаметр*(D), 3 — длина*(L), 4 — площадь круга*(S). Дан номер...
Вычисление пути, пройденного телом с ускорением a за время t, с начальной скоростью v0
Пожалуйста, помогите с программным кодом для решения задачи :)
Написать программу, вычисляющую путь, пройденный телом с
ускорением a за время t, с начальной скоростью v0 (вводятся с клавиатуры)....
Масштабирование изображения PictureABC
Здравствуйте. Требуется масштабировать изображение типа pictureABC(ну хоть picture) относительно графического окна. В стандартных методах класса такая возможность, к сожалению, не реализована. Может...
Задание цвета в Паскале АВС
Добрый день уважаемые форумчане!
Возникла маленькая проблемка. с Паскалем работал, с АВС опыт не большой. задание цвета в Паскале возможен буквено и численно. а в АВС не могу числами задать....
Удвоить значение каждого элемента массива и вывести на экран
Текст задачи.
Заполнить массив с именем X случайными значениями и вывести эти значения на экран. Размерность массива 12, все элементы целого типа. Удвоить значение каждого элемента массива и вывести...
Вывести время в миллисекундах с начала работы программы по встроенной функции Milliseconds
Сортировка матрицы A методом обмена с использованием флажка (метод пузырька усовершенствованный) по возрастанию. Начальное состояние матрицы - упорядоченна по возрастанию) сортировка работает. Но не...
Graphabc. Очистка окна
Проблема в том что в graphabc модуле writeln после очистки окна не пишет с самого начала окна например в программе идет:
writeln('qwerty');
Writeln('ytreewq');
Clearwindow();
Writeln('qaz');
В...
Написать функцию возведения числа в степень
Ребят, написал функцию для нахождения того, что в шапке, работающую по принципу , как в С++ (pov (число, степень числа) ), но почему-то выдает ошибку вот здесь procedure pov(a, b: integer): integer;....
Шифр Хилла
Господа, пишу курсовую, тема шифр Хилла. Все компилируется, запускается, но при выводе закодированного текста выдает "ошибка времени выполнения: Индекс находится вне границ массива" в 11 строке. Не...
Как выключить компьютер программно?
можно ли выключить компьютер через PascalABC.NET? Если можно, то какую команду надо прописать? помогите пожалуйста.
Как узнать координаты курсора мыши относительно формы?
Как узнать координаты курсора мыши?
Добавлено через 35 минут
относительно окна нужно
Составить программу, которая будет считывать задания с файла
всем привет) скажите, можно ли составить программу которая будет считывать вопросы с файла? то есть программа считывает заданный файл, в который записаны вопросы с вариантами ответов, а затем выводит...
Windows.Forms вместо GraphABC
Здравствуйте. Решил написать программу. Так как я ещё новичок использовал только известные мне "вещи" и естественно столкнулся с проблемами. Можете написать подобную (простенькую) программу,...
Узнать разрешение монитора
Как узнать разрешение монитора на Pascal ABC Net?
Ф-ция GetMaxX/GetMaxY не работает на ABC Net..
Напишите программу, которая заполняет массив из N=10
Напишите программу, которая заполняет массив из N = 10 случайными числами в диапазоне , выводит его на экран, а затем выполняет реверс отдельно первой и второй половин массива. При изменении значения...
Не работает setLength с двухмерными массивами
почему не работает setLength с двухмерным массивам хотя в справки описано :
procedure SetLength(var a: System.Array; n1,n2,...: integer);
Устанавливает размер n-мерного динамического...
Написать функцию, которая вычисляет площадь прямоугольника. Параметрами функции должны быть длина и ширина прямоугольника
24)
Написать функцию, которая вычисляет площадь прямоугольника. Параметрами функции должны быть длина и ширина прямоугольника.
Количество равных между собой элементов
Дана последовательность целых чисел а1,а2,...,а18, в начале которой записаны несколько равных между собой элементов. Определить количество таких элементов последовательности. Условный оператор и...
Графика (управление курсором)
Ребят помогите решить задачку. Весь интернет обошёл не могу найти нужную процедуру или может быть функцию для перемещения курсора по модулю graphABC. А graph он не подключает, пишет: "Модуль graph не...
Вычислить n! (n!=1*2*3*…*n). Используя конструкцию цикла с предусловием
Задание2. Вычислить n! (n!=1*2*3*…*n).
, используя конструкцию цикла с предусловием. Оформить решение в тетради (формальное описание хода решения задачи, блок-схема
алгоритма, программа на языке...
Найти наибольшее целое положительное число n, удовлетворяющее условию
Возникли проблемы с задачей. Вот задание: "Дано число а>0. Найти наибольшее целое положительное число n, удовлетворяющее условию 3n^n - 730n<5a". Создал программу, но выводится следующее n после...
Метод Монте Карло
Найти площадь методом Монте-Карло
Определить количество цифр, среднее арифметическое цифр в натуральном числе
Дано натуральное число N. Определить: количество цифр в нем; среднее арифметическое его цифр; сумму квадратов его цифр; сумму его первой и последней цифр.
Ненулевой код возврата
Написал программу, выводит ошибку:
Ошибка времени выполнения (ненулевой код возврата).
Возможные причины:
Ошибка времени выполнения
Отсутствует операток 'return 0' в программе на C/C++...
Как добавить иконку приложения?
Подскажите, как добавить иконку приложения в Pascal ABC.NET
Операция сравнения переменной в integer
Хочу написать переводчик из десятичной системы счисления в двоичную.
Для того, чтобы скрывать лишние цифры попытался юзатьif ost1>0 then write(ost1);
Но оказалось, что integer не поддерживает...
Разделить строку на слова по пробелам
В общем, есть строка такого формата:
Слово Число:Число Слово
Длина слов не известна. Числа от 0 до 20. Считать первое слово проблем не составляет:
x:=copy(mas,1,pos(' ',mas));
А вот последнее...
Как сделать процедуру нажатия определённой клавиши в windows forms?
Как сделать процедуру нажатия определённой клавиши в windows forms?
На вход программы подается 366 строк, которые содержат информацию
На вход программы подается 366 строк, которые содержат информацию о среднесуточной температуре всех дней 2008 года. Формат каждой из строк следующий: сначала записана дата в виде dd.mm (на запись...
Как рисовать на форме простые фигуры?
Есть похожие темы, но ни в одной нет ясного ответа и, хотя бы одного примитивного примера. Как с помощью NET нарисовать на форме простую точку, например (линию, круг и т.д.). В GraphABC более менее...
В заданной строке найти количество больших и маленьких согласных английских букв.
Всем привет. Я надеюсь кто нибудь мне поможет. Дело такое: pacal abc изучаю всего два дня, но мне уже задали колоссально сложное задание (по моим меркам). Вот задание:
Дана строка содержащая...
Найти и вывести наибольшую разность двух чисел, содержащихся в массиве
Привет, форумчане. Прошу помощи. Уезжаю. Не будет ПК и интернета. Помогите. Если не будет сложно, то посмотрите и другие мои темы.
Дан массив, содержащий 70 целых чисел. Опишите на одном из языков...
Выведите фамилии и имена учащихся в порядке убывания их среднего балла
1) Выведите фамилии и имена учащихся в порядке убывания их среднего балла.
Входные данные
Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа...
Вывести текст в консоль
Привет всем,помогите плиз
Я забыл как зделать ввод=выводу данных текста
как у переменных ввожу 5 выводит 5 только текстом помогите плиз
Begin
writeln('Привет форум');
end.
[Графика] Процедура рисует одинаковые круги
Напишите процедуру, которая рисует вертикальный ряд из N одинаковых окружностей.
Параметрами процедуры должны быть:
колличество окружностей N
радиус окружностей
координаты центра верхней...
Как использовать WinApi?
var
x, y, r: integer;
function AngleArc(hdc: int64; x, y, dwRadius: integer; eStartAngle, eSweepAngle: single): integer;
external 'User32.dll' name 'AngleArc';
begin
AngleArc(0,...
Ошибка "Встречено until, а ожидалось ;"
Program ABC;
Var a,xmin,xmax,dx,x,y:real;
begin
writeln('a,xmin,xmax,dx');
readln(a,xmin,xmax,dx);
x:=xmin;
repeat
if x>a=a then
if(sqr(x)+a)>0
then begin
Переход на другую форму по нажатию кнопки
Сразу скажу что на Делфи не могу написать,так как курсовую заставили написать на супер Pascal ABC.NET.В Делфи эта проблема решается кодом Form1.Show; Но то Делфи,а это Паскаль.
Суть проблемы...
Составить программу вычисления n3 как суммы нечетных чисел
Добрый день! Никак не могу сообразить, как написать такую программу. Понимаю, что нужно использовать процедурку, которая будет все считать, вне зависимости от числа, но не знаю, как это все дело...
Найти количество квадратов, на которые можно разрезать данный прямоугольник
Помогите, пожалуйста! Задача: стороны прямоугольника заданы натуральными числами n и m. Найти кол-во квадратов (стороны которых выражены натуральными числами), на которые можно разрезать данный...
Найти максимум и минимум в массиве
Ввести массив A(n). Найти максимум и минимум в массиве. Наибольшим по модулю значением (из максимума и минимума) заменить последний элемент в массиве. Массив вывести на печать. Подпрограммы: ввод...
Как сделать подобие кнопки в GraphABC?
Т.е. так, что бы событие происходящее по нажатию мышки, происходило только в том случае, когда курсор в это время попадает в некоторую прямоугольную область. Справку читала, но не придумала, как это...
Чем экранировать апостроф?
чем экранировать апостроф? ' как в си не выходит '\'' :(
Добавлено через 6 минут
все нашел другим апострофом ''''
Введено четырехзначное число. Найти сумму цифр, кратных 3-м
Введено четырехзначное число. Найти сумму цифр, кратных 3-м.
Определить, через какое время автомобили встретятся
Два автомобиля едут навстречу друг другу с постоянными скоростями V1 и V2 км/час. Определить, через какое время автомобили встретятся, если расстояние между ними было S км. Ответ вывести с...
Процедура Even, возвращающую True, если целый параметр K является четным и False в противном случае
Описать процедуру Even логического типа, возвращающую True, если целый параметр K является четным и False в противном случае. С ее помощью найти количество четных чисел в наборе из 10 целых чисел. ...
Пятиконечная звезда
Здравствуйте. Хочу нарисовать правильную пятиконечную звезду. Не хочу использовать координаты из интернета. Вручную. Пока вышло, мягко говоря, не очень.
uses
GraphABC;
const
XConst ...
Чтение структур из файла
Постройте программу, которая работает с базой данных в виде типизированного файла. Если нужно, за основу можно принять файл-заготовку database.pas. Ссылка удалена
Ваша СУБД (система управления...
Составить программу на языке Pascal. NET
Составить программу на языкеPascal. NET
Дан одномерный массив. Определить и вывести индексы элементов массива, значение которых находятся в указанном диапазоне
Дан одномерный массив. Определить и вывести индексы элементов массива, значение которых находятся в указанном диапазоне и найти их сумму.
Задача на mod и div
Какое число необходимо подать на вход программе, чтобы было выведено число `5311`?
var n:integer;
begin readln(n);
writeln(n div 200 mod 20*1000 + n div 10 mod 10*100 + n mod 10*15 + n...
Разворот матрицы по столбцам в одномерный массив
Введите построчно в двумерный массив числовую матрицу размером 4Х4. Разверните её по столбцам в одномерный массив. Запишите массив в текстовый файл. (Написать программу) Заранее благодарен.
Вычислить значение ряда с точностью е = 0.001, найти абсолютную погрешность
Используя данное представление (см. в таблице с вариантами) вычислить значение, соответствующее значению функции для указанного значения x0 (при указанных ограничениях на аргумент функции) с...
RSA шифрование
Всем привет. Очень нужна помощь: нужно, чтобы в программу исходное сообщение заносилось в виде слова, на выводе получались числа, которые при дешифровании преобразовывались в буквы.
Для примера:...
Вывести слова в алфавитном порядке
Вводится 5 строк, в которых сначала записан порядковый номер строки с точкой, а затем – слово. Вывести слова в алфавитном порядке.
Пример:
Введите 5 строк:
1. тепловоз
2. арбуз
3. бурундук
4....
Найти значение суммы S=1+2+3+…+n
Найти значение суммы S=1+2+3+…+n для заданного натурального N. Изобразить блок-схему алгоритма и написать программу на Паскале (цикл ПОКА).
Вычислить количество двузначных чисел, которые оканчиваются на 4 и делятся на 3 нацело
3) Вычислить количество двузначных чисел, которые оканчиваются на 4 и делятся на 3 нацело.
Нужен исходник сервера
Доброго времени суток . Вот решил написать небольшой сервер на net никогда с этим не работал может кто то скинет исходник или код, желательно с коментами
В чем различие SetPixel и PutPixel
В графическом режиме PascalABC.Net имеются две процедуры - SetPixel(x,y,c) и PutPixel(x,y,c), которые закрашивают пиксель с координатами (x,y) цветом c. У меня вопрос такой: равнозначны ли эти...
Написать программу решения квадратного уравнения
Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение ax2 + bx + c = 0 или сообщить о том, что действительных решений нет.
Шифрование и дешифрование
Прошу помощи экспертов(с комментариями,пожалуйста )
Задача :
Метод шифровки текста с помощью ключевого слова. Пронумеруем буквы русского алфавита (А-1, Б-2, Я-33), назовем эти номера "кодами"...
Написать программу, которая находит произведение нечетных чисел от 1 до n
Написать программу, которая находит произведение нечетных чисел от 1 до n.
Перевод числа из любой системы счисления в десятичную систему счисления
дано число типа integer, записанное в любой другой системе счисления. перевести это число в 10сс.
Очень нужна помощь!!
Расстановка чисел по возрастанию
Вводятся 4 числа. Необходимо вывести их в порядке возрастания. Команда вывода должна быть одна на весь алгоритм. Придумайте такой алгоритм, чтобы в любом случае выполнялось не более 5 операций...
Дан массив из n чисел найти сумму элементов которые кратны 5
Не понимаю что делаю не правильно, вроде задача лёгкая но не получается. Помогите пожалуйста!
Program massiv;
uses crt;
const n=100;
Var a:array of integer;
i,s:integer;
begin
clrscr;...
Как вставить видео в программу?
как вставить видео в программу можно даже без форм и кнопнок просто видео
Дан массив из n-элементов Найти разность между максимальным и минимальным элементом в массиве
Дан массив из n-элементов найти разность между максимальным и минимальным элементом в массиве.
Составить круговую диаграмму
Части света имеют площади (в млн. км):
Европа -10,5; Азия – 44,4; Африка – 30, 32; Северная Америка – 24, 25; Южная Америка – 17, 83; Австралия с Океанией – 8,504; Антарктида – 14,11.
Составьте...
Открытие файла через OpenFileDIalog и записать имя файла в переменную
Можно ли в формах Pascal ABC Net, открыв файл через openfiledialog, записать в строковую переменную полное имя файла?
Распродажа
Помогите решить задачу, пожалуйста :)
Магазины в рекламных целях часто устраивают распродажи. Так, например, одна из крупных сетей магазинов канцелярских товаров объявила два рекламных...
Вывести на экран одномерный целочисленный массив из 15 элементов, который заполнится случайными числами от 0 до 50
Вывести на экран одномерный целочисленный массив из 15 элементов, который заполниться случайными числами от 0 до 50. После чего в этом массиве надо будет найти сумму номеров и сумму значений...
Найти те элементы массива, значения которых совпадают с их индексом
НАйти решение задач
Задан одномерный массив из N чисел. Найти те элементы, значения которых совпадают с их индексом.
Найти значения функции X=Y2 *(Y 2 -Y)/Y при Y={N,N*1,N*2,…,N*M} (N<M).
...
Вывести таблицу значений функции y=-2,4x2+5x-3 в диапазоне от -5 до 5 с шагом 1
Нужна срочно).
Вводятся 2 числа А и В. Если первое больше второго, вывести ряд из 10 чисел А=А+В
Вводятся 2 числа А и В. Если 1-е больше 2-го , вывести ряд из 10 чисел А=А+В. Иначе –их сумму, произведение, А/В, А div В, А mod В.
Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека
здравствуйте.
Выходит ошибка "Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека
"
Вот задача
(Е. Джобс) Алгоритм вычисления функции...
Программа должна вывести имя диска и названия всех каталогов, составляющих путь
В операционной системе Windows путь к файлу состоит из имени логического диска и названий каталогов, в которых находится этот файл. Части пути разделены знаками "" (обратный слэш). Требуется разбить...
Слова, одинаково читающиеся справа налево и слева направо
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу обработки данной строки, выводящую через запятую:
a) слова, одинаково читающиеся справа налево и...
Переход между формами
Необходимо сделать переход между формами. Сделал переход с 1 формы на 2, а назад не получается.
uses Unit1,Unit2;
begin
System.Windows.Forms.Application.EnableVisualStyles();
...
Напишите программу, определяющую число слов в строке
Напишите программу, определяющую число слов в строке. Одно слово от другого отделяется одним пробелом. В конце предложения стоит точка.
Входные данные: ввести строку с длиной не более 255 символов....
PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись
Число, которое одинаково читается слева направо и наоборот, называется палиндромом, напр., 3773. Возьмем произвольное число N (от 10 до 10000). Если оно не палиндром, добавим к нему число, состоящее...
Отследить нажатие конкретной клавиши
Здравствуйте! Нужна помощь. Как отследить нажатие стрелки на клавиатуре? Вернее, нет. Это - относительно просто. Задача чуть сложнее. Чтобы отслеживать нажатие клавиши, нужен модуль crt. А сама...
Вводятся числа. Конец ввода - 0. Найти сумму положительных четных трехзначных чисел
:read:
Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг
Нужна помощь в решении задачи!
Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг: значение A переходит в B, значение B — в C, значение C — в A (A, B, C — вещественные...
Определить n-ую цифру в ряду: 1011121314…9899.
С клавиатуры вводится натуральное чётное число n, не превосходящее
180. Определите n-ую цифру в ряду: 1011121314…9899. В
данном ряду подряд выписаны все двузначные числа. На экран вывести
одно...
Реализация генератора паролей с заданными требованиями
Количество символов пароля 11.
Реализовать 3 задание, по возможности 1 и 2
Напишите программу, которая удаляет из строки все повторяющиеся символы
Напишите программу, которая удаляет из строки все повторяющиеся символы.
Входные данные
На вход программы подаётся строка, содержащая символы таблицы ASCII.
Выходные данные
Программа должна...
Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит и...
Процедура Val/StrToInt, выводящая BigInteger
Я написал в дизайнере форм рабочий "переводчик периодической в десятичную дробь".
Программа использует Val() для получения числа из TextBox, но с biginteger она не работает; а без этого получается...
Определить стоимость переговоров.
Все привет, выручите, помогите написать логическое выражение для определения стоимости переговоров, если стоимость с 22 часов до 8 часов на 10% ниже, а в субботу и
22 воскресенье дополнительно...
Корень по заданной степени
В программе вычисляю корень по заданной степени: b := exp(ln(c) / i) ,где c - число,i-степень.Вроде все хорошо,но эта программа правильно вычисляет только если c и i - натуральные целые...
Определить, у какого из прямоугольников площадь больше
Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать ПРОЦЕДУРУ для вычисления площади прямоугольного треугольника по его катетам).
Организовать вычисление выражения, используя алгоритм польской записи
3. Требуется разработать и отладить программу с применением
программного стека, выполняющую указанные в задании
действия. Вычисляемое арифметическое выражение, анализируемый
набор операторов, или...
Поменять местами значения двух переменных.
Даны две переменные m и n. Поменять местами их значения (в переменную m записать значение переменной n и наоборот), если m больше n; присвоить обеим переменным значение 0, если n больше m, оставить...
Встречено 'i', а ожидалось ';'
во всех строках типа
writeln('введите координаты X Y Z 'i'й точки:'); не хочет добавлять цифру "i", выдавая ошибку (Встречено 'i', а ожидалось ';')....
вот например 2 примера одной программы:
...
Вычисление суммы n первых членов арифметической прогрессии (циклы while и repeat)
Реализовать два варианта программы: с использованием цикла while… do и с использованием цикла repeat …until; Составить программу вычисления суммы n первых членов арифметической прогрессии, если а1=1,...
Описать процедуру нахождения наименьшего из трех чисел
Описать процедуру нахождения наименьшего из трех чисел. В основной программе ввести шесть значений a,b,c,d,e,f. Найти наименьшие значения для сочетаний переменных (a,b,d), (a,b,e), (d,c,f), (b,c,f) и...
Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника
Надо составить программу для вычисления гипотенузы, площади и периметра прямоугольного треугольника.
Подсчитать количество отрицательных элементов в каждой строке матрицы
Подсчитать количество отрицательных элементов в каждой строке матрицы размером М на N, элементы которой задаются с помощью датчика случайных чисел на интервале .
Дана сумма и разность двух чисел. Определить эти числа
Дана сумма и разность двух чисел. Определить эти числа
Нарисовать снежинку
Всем привет!! Помогите пожалуйста составить вот этот снежок с помощью ПАСКАЛЯ АБС
Найти минимальное значение и индекс максимального значения массива
1)Найти минимальное значение
2)Номер элемента с максимальным значением
Помогите пожалуйста!
Срочно!
Pascal ABC.net
Внутренняя ошибка компилятора в модуле
Хелп ребята, при компиляции любого модуля выдает:
13.09.2012 16:11:51
PascalABCCompiler.Core v1.8.0.496 (02.06.2012), debug version
Runtime version: 4.0.30319.1
OS version: Microsoft Windows NT...
Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-25, 12]
Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале (размер произвольный). Найти произведение элементов с нечетными номерами. Помогите пожалуйста.
Между символами строки вставить символ «#»
Входной файл INPUT.TXT содержит строку, состоящую только из латинских букв. Длина строки не превосходит 100.
В выходной файл OUTPUT.TXT выведите строку, полученную из исходной, путем вставки символа...
Используя функцию вычисления f(x) по формуле, для n заданных чисел вычислить f(x)
Описать функцию вычисления f(x) по формуле:
f(x)= x^2 при -2<=x<2;
x^2+4x+5 при x>=2;
4 при x<-2.
Используя эту функцию для n заданных чисел, вычислить f(x). Среди вычисленных значений найти...
Счастливый билет 3
Счастливый билет 3
Билеты имеют трехзначные номера от 001 до 999.
Счастливым является билет, для номера которого
выполняется условие, что максимальная цифра в номере
билета равна сумме двух...
Определить номер цифры 3 в заданном числе, считая от конца числа
Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если таких цифр в числе несколько — должен быть определен номер самой...
Модуль GraphABC: Не работает процедура Load, для загрузки картинок
Здравствуйте.
Не работает процедура Load, для загрузки картинок.
Нужно сделать картинку бэкграунд, что не так написал в коде.???
А то со справки толком ничего не уловил, примера толкового нету. ...
Можно ли объединить GraphAbc и FormsABC?
Добрый вечер. Мне нужно создать игровой интерфейс. Всю картинку игры отрисовываю с помощью graphABC, но нужно добавить так же кнопки. При вызове эти модули создают два окна, как сделать их в едином...
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру.
Перевести число из десятичной системы счисления в любую другую
Помогите ещё пожалуйста, нужно перевести число из десятичной системы счисления в любую другую... Заранее спасибо
Добавлено через 1 час 12 минут
что не кто не знает?
Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем
Добрый вечер! Если не сложно подскажите, что не так в моем коде.
Вот задание:
Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем, использую...
Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В
Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В, у которого B = A, B = A, а остальные элементы являются средним арифметическим из трех элементов массива А:...
Вычислить число Грэма
Вычислить число Грэма
Кто-нибудь хочет продолжить/закончить мысль, просто так, из интереса?
program number_Graham;
var m,g,s,p : int64; // проблема - нет диапазона подходящей длины...
Процесс не может получить доступ к файлу, так как этот файл используется другим процессом
Все работает, кроме записи результатов в файл. В разделе описания с файла все норм считывается, а вот когда запускаю игру выводится такое сообщение:
Unhandled Exception: System.IO.IOException:...
Зациклить программу, пока не нажат пробел
Не могу сообразить, как реализовать такую вещь, как ожидание нажатия клавиши, например SPACE (пробел), но не просто ожидать, но и выполнять некоторый код программы.
Program Tili-Tili;
var X, Y:...
Pascal Чертёжник
Pascal Чертёжник, помогите пожалуйста решить написать программу, ниже прикреплен файл. Задача сс9
Найти сумму 8 элементов массива
Задание: Найти сумму 8 элементов массива
HELP
Запросить время суток и вывести соответствующее приветствие пользователя
Составить программу, которая спрашивает время суток и выводит на экран соответствующее поздравления пользователю (пожелание доброго утра, вечера или спокойной ночи).
Темы не дублируем
Найти в массиве количество локальных минимумов
Привет. Нужна помощь в задачках, т.к. уеду до 31 числа. Не будет интернета и ПК.
Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков
программирования программу,...
Ошибка времени выполнения: Object reference not set to an instance of an object
Есть код - в TP он нормально проходит компиляцию, а вот в PABC.net выдает ошибку - видимо я не понимаю каких то нюансов в различии TP и PABC.net:
Chastot2.pas(43) : Ошибка времени выполнения: Object...
Если существует такое число A, что после приведения его в порядок, получается B, то выведите любое такое число
У Миши развитое эстетическое чувство. Он считает, что не все числа одинаково порядочные. Когда ему грустно, он начинает придумывать числа и приводить их в порядок.
Миша очень любит рассматривать...
Анимация движения объекта по кругу
Пытаюсь написать программу анимации движения объекта по кругу на PascalABC.NET, лучше всего в модуле ABCObjects + GraphABC (может потом добавлю объекты, передвигаемые мышью). В центре должен...
Новые блоги и статьи
|
|||
|
Запрет пометки на удаление и отмены проведения
Maks 16.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2.
Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .
|
Как надо было делать правильно - вообще не слушать ИИ, его дело - текст.
Hrethgir 15.07.2026
А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её.
Всё это стресс конечно. Почему?. . .
|
Знаете, от чего появляется стресс?
kumehtar 15.07.2026
Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот.
Ларри Уингет
|
Нас бьют, а мы крепчаем? Какая чушь!
kumehtar 15.07.2026
Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .
|
|
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным?
anaschu 12.07.2026
Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров
В текущей версии модели успешно реализован ключевой механизм. . .
|
сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию.
anaschu 12.07.2026
Анализ соответствия модели требованиям
Реализованные компоненты:
Механизм закисления почвы через протонную помпу
Конкуренция между типами микориз
pH как триггер сукцессии
C/ P соотношение. . .
|
Сукцессия 26. Мат модель создана.
anaschu 12.07.2026
Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .
|
Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста".
Hrethgir 12.07.2026
Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
|