Не смотря на то, что Паскаль опускается в рейтингах языков программирования все ниже, но его популярность как учебного языка все еще высока. Для наших посетителей, школьников, учителей и тех, кто начинает изучать программирование предлагаем удобный онлайн компилятор Паскаля. Он отлично подходит для учебных целей. Здесь компилятор языка Паскаль - free pascal (fpc 3.0.4]) .
Вы получите не просто онлайн компилятор. Здесь совмещен онлайн редактор, онлайн компилятор , а также бланк (шаблон) простейшего кода. Для работы с компилятором рекомендуется использовать браузер Chrome. Если вам не удается вставить скопированный (Ctrl+C) код в редактор компилятора (в некоторых браузерах то случается), то используйте для вставки кода из буфера сочетание клавиш - Ctrl+Shift+V.
Тут также можно вводить данные для программы в окне «Ввод данных» - «Input» (нужные данные вводятся в окне последовательно с новой строки.) и смотреть результаты в окне «Вывод» - «Output».
Остается только внести в программу ваши данные и нажать кнопку «Выполнить» - «RUN». Вы можете перетягивать окна редактора как вам удобно, увеличивать шрифт (Ctrl-«+») или уменьшать (Ctrl-«-»). Чтобы вернуться к исходной настройке - перезагрузите страницу.
Вы можете писать в комментариях ваши замечания, отзывы и самое главное - предлагайте типовые примеры задач, которые вам надо решить или вы смогли решить в нашем компиляторе. И как бонус - кроме Паскаля у нас на сайте есть еще несколько компиляторов для других популярных языков программирования: С++, Python и др. Если вам нужны другие языки - пишите, добавим.
По просьбам наших пользователей сделали еще и полностью темную версию компилятора. Более того, вы можете настроить цвет поля ввода кода и его стиль (жмем шестеренку и делаем настройки).
состоит из длинной коробки и 10 кубиков, которые размещаются в ней в один ряд.
К сожалению, с Петей всегда происходят какие-то неприятности, вот и в этот раз в процессе
игры он потерял один кубик. Вечером, собирая кубики обратно в коробку, Петя обнаружил пропажу,
потому что одно место в коробке осталось пустым. Так как Петя ещё маленький и не знает цифр,
он не знает, какой кубик был потерян. Он помнит только, что все цифры на них были разные. Петя
очень не хочет, чтобы Егор расстраивался, поэтому он просит вас помочь ему понять, какой кубик
был потерян.
Формат входных данных
Дана строка S длины 9, состоящая из цифр, написанных на Петиных кубиках. Гарантируется,
что все цифры различные.
Формат выходных данных
Выведите одно число – цифру на недостающем кубике.
var
S: string;
i, missingNumber: integer;
found: boolean;
begin
// Задаем строку с цифрами на кубиках
S := '012345678'; // Пример строки
// Ищем недостающую цифру от 0 до 9
for i := 0 to 9 do
begin
found := false;
// Проверяем, есть ли цифра i в строке S
if pos(chr(i + ord('0')), S) = 0 then
begin
missingNumber := i;
found := true;
break;
end;
end;
// Выводим недостающую цифру
if found then
writeln(missingNumber)
else
writeln('Все цифры на месте');
end.
result=1
for i in range(1,n+1):
result*=1
print(result)
var
sum, num: integer;
begin
// Инициализация переменных
sum := 0; // Начальная сумма
num := 36; // Первое число последовательности
// Цикл, выполняющийся, пока num больше или равно 1
while num >= 1 do
begin
sum := sum + num; // Добавление текущего значения num к сумме
num := num - 5; // Уменьшение num на 5
end;
// Вывод результата
writeln('Сумма последовательности: ', sum);
end.
Результат: 147
program z;
var a; b integer;
begin
…
read(‘введи число’);
end.
var
a, b: integer;
begin
...
writeln('введи число');
readln(a);
end.
Добавлено двоеточие после b и переформатировано ввод данных
integer A(5) / 6, 2, 6, 6, 3/
S = 0
do i = 1, 5, 2
S = S + A(i)
enddo
переменная S будет равна
var
a, b, c, D: real;
begin
writeln('Введите коэффициенты a, b и c квадратного уравнения (ax^2 + bx + c = 0):');
readln(a, b, c);
D := b * b - 4 * a * c;
writeln('Дискриминант D = ', D:0:2);
if D > 0 then
writeln('Уравнение имеет два различных действительных корня.')
else if D = 0 then
writeln('Уравнение имеет один действительный корень.')
else
writeln('Уравнение не имеет действительных корней.');
end.
uses crt;
const
N = 20;
var
arr: array[1..N] of integer;
sum, i: integer;
begin
randomize;
writeln('Массив из ', N, ' случайных целых чисел от -5 до 15:');
for i := 1 to N do
begin
arr := random(21) - 5; // random(21) генерирует число от 0 до 20, вычитаем 5, чтобы получить диапазон от -5 до 15
write(arr:4);
end;
writeln; // Переход на новую строку
sum := 0;
for i := 1 to N do
begin
if (i mod 2 <> 0) then
sum := sum + arr;
end;
writeln('Сумма элементов с нечётными индексами = ', sum);
end.
var
N: integer;
containsTwo: boolean;
begin
writeln('Введите целое число N > 0:');
readln(N);
if N <= 0 then
begin
writeln('Ошибка: число должно быть больше 0');
exit;
end;
containsTwo := False;
while N > 0 do
begin
if (N mod 10 = 2) then
begin
containsTwo := True;
break;
end;
N := N div 10;
end;
if containsTwo then
writeln('TRUE')
else
writeln('FALSE');
end.