Не смотря на то, что Паскаль опускается в рейтингах языков программирования все ниже, но его популярность как учебного языка все еще высока. Для наших посетителей, школьников, учителей и тех, кто начинает изучать программирование предлагаем удобный онлайн компилятор Паскаля. Он отлично подходит для учебных целей. Здесь компилятор языка Паскаль - free pascal (fpc 3.0.4]) .
Вы получите не просто онлайн компилятор. Здесь совмещен онлайн редактор, онлайн компилятор , а также бланк (шаблон) простейшего кода. Для работы с компилятором рекомендуется использовать браузер Chrome. Если вам не удается вставить скопированный (Ctrl+C) код в редактор компилятора (в некоторых браузерах то случается), то используйте для вставки кода из буфера сочетание клавиш - Ctrl+Shift+V.
Тут также можно вводить данные для программы в окне «Ввод данных» - «Input» (нужные данные вводятся в окне последовательно с новой строки.) и смотреть результаты в окне «Вывод» - «Output».
Остается только внести в программу ваши данные и нажать кнопку «Выполнить» - «RUN». Вы можете перетягивать окна редактора как вам удобно, увеличивать шрифт (Ctrl-«+») или уменьшать (Ctrl-«-»). Чтобы вернуться к исходной настройке - перезагрузите страницу.
Вы можете писать в комментариях ваши замечания, отзывы и самое главное - предлагайте типовые примеры задач, которые вам надо решить или вы смогли решить в нашем компиляторе. И как бонус - кроме Паскаля у нас на сайте есть еще несколько компиляторов для других популярных языков программирования: С++, Python и др. Если вам нужны другие языки - пишите, добавим.
По просьбам наших пользователей сделали еще и полностью темную версию компилятора. Более того, вы можете настроить цвет поля ввода кода и его стиль (жмем шестеренку и делаем настройки).
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.
Ifx>0O then y:2x-50 else y:=x+100;
x, y: Integer;
begin
WriteLn('Введите число');
readln(x);
if x > 0 then y := x - 50
else y := x + 100;
WriteLn(y, ' ответ ');
end.
Замечание
В примере из условия нужно разделить шоколадку 4×5 на 4 кусочка.Самый большой кусочек будет состоять из 16 долек, как показано на картинке.
Реализация на PascalABC.NET
Помогите пожалуйста
Вычислить значение функции для -2∏≤ х ≤2∏, изменяющегося с шагом .
const
s=5;
Vector = array[1..s] of integer;
var arr: Vector;
i, a, t: integer;
begin
writeln('', s,'');
for i:=1 to s do
begin
write ('', i,':');
readln (arr[i]);
end;
for i:=1 to s - 1 do
for a:=i+1 to s do
if arr[i] < arr[a] then
begin
t:=arr[i];
arr[i]:=arr[a];
arr[a]:=t;
end;
writeln('');
for i:=1 to s do writeln (arrp[i]);
end.
function f(x: integer): integer;
begin f:=x; a:=0 end;
begin
a:=1; write(a+f(a), a);
end.