Не смотря на то, что Паскаль опускается в рейтингах языков программирования все ниже, но его популярность как учебного языка все еще высока. Для наших посетителей, школьников, учителей и тех, кто начинает изучать программирование предлагаем удобный онлайн компилятор Паскаля. Он отлично подходит для учебных целей. Здесь компилятор языка Паскаль - free pascal (fpc 3.0.4]) .
Вы получите не просто онлайн компилятор. Здесь совмещен онлайн редактор, онлайн компилятор , а также бланк (шаблон) простейшего кода. Для работы с компилятором рекомендуется использовать браузер Chrome. Если вам не удается вставить скопированный (Ctrl+C) код в редактор компилятора (в некоторых браузерах то случается), то используйте для вставки кода из буфера сочетание клавиш - Ctrl+Shift+V.
Тут также можно вводить данные для программы в окне «Ввод данных» - «Input» (нужные данные вводятся в окне последовательно с новой строки.) и смотреть результаты в окне «Вывод» - «Output».
Остается только внести в программу ваши данные и нажать кнопку «Выполнить» - «RUN». Вы можете перетягивать окна редактора как вам удобно, увеличивать шрифт (Ctrl-«+») или уменьшать (Ctrl-«-»). Чтобы вернуться к исходной настройке - перезагрузите страницу.
Вы можете писать в комментариях ваши замечания, отзывы и самое главное - предлагайте типовые примеры задач, которые вам надо решить или вы смогли решить в нашем компиляторе. И как бонус - кроме Паскаля у нас на сайте есть еще несколько компиляторов для других популярных языков программирования: С++, Python и др. Если вам нужны другие языки - пишите, добавим.
По просьбам наших пользователей сделали еще и полностью темную версию компилятора. Более того, вы можете настроить цвет поля ввода кода и его стиль (жмем шестеренку и делаем настройки).
var
A: array[1..6] of integer = (8, 2, 4, 6, 12, 10);
i, j, temp: integer;
begin
for i := 1 to 5 do
for j := 6 downto i + 1 do
if A[j] < A[j - 1] then
begin
temp := A[j];
A[j] := A[j - 1];
A[j - 1] := temp;
end;
writeln('Отсортированный массив (пузырьковая сортировка):');
for i := 1 to 6 do
write(A[i], ' ');
end.
y, x, k, a: real;
begin
writeln('Введите a');
read(a);
writeln('Введите значения k');
read(k);
x := 1;
while x < 11 do
begin
y := 5.8 * a + (k * 2 - 1) / x;
WriteLn(Y);
x := x + 1;
end;
end.
pr = 16; // количечество предметов
umi = 300; // мин стоим учебника
uma = 700;
tmi = 50; // мин стоим тетради
tma = 150;
var
sru, srt: real; // сред стоим 1 учебника, 1 тетради
begin
sru := (umi + uma) / 2;
srt := (tmi + tma) / 2;
writeln('стоимость учебников осенью ', sru * 16);
writeln('стоимость учебников летом ', sru * 16 - sru * 16 * 0.2);
writeln('стоимость тетрадей осенью ', srt * 16);
writeln('стоимость тетрадей летом ', srt * 16 - srt * 16 * 0.2);
writeln('сумма осенью ', sru * 16 + srt * 16);
writeln('сумма летом ',sru * 16 - sru * 16 * 0.2 + srt * 16 - srt * 16 * 0.2);
end.
Задача 1) Даны три числа а, в, с. Вычислить х2= авс, х3=1-с. Определить наибольшее из х1, х2 и х3.
Задача 2) Дано натуральное число п и действительное число х.
Вычислить значение суммы ѕ= sinx+ 2sinx+...+ nsinx
var
x, s: real;
n, i: integer;
begin
writeln('введите n');
readln (n);
writeln('введите x');
readln (x);
s := 0;
for i := 1 to n do
s := s + n*sin(x);
writeln(s)
end.
1. Составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10, затем изменяет знак элементов с четными индексами на противоположный. Выведите на экран исходный и полученный массивы.
2.Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями.
количество элементов больше соседа слева =6 4,3,5,7,8,7
б) составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.
i, a: integer;
B: array [1..6] of integer;
begin
writeln('Введите 6 элементов массива по порядку');
for i := 1 to 6 do
begin
readln(a);
B[i] := a;
end;
writeln('элементы > 0');
for i := 1 to 6 do
if B[i] > 0 then
write(B[i], ', ');
end.