//программа для определения есть ли искомое число в массиве или нет var // блок описания переменных, то есть здесь мы указываем с какими переменными будем работать i, s, r: integer; // указываем тип данных переменных с какимим работаем, нам нужны целые числа a: array[1..5] of integer = (1, 2, 5, 4, 5); // описываем массив и помещаем в него элементы begin // начало программы write('введите искомое число: '); // вывод текста на экран, некий интерактив read(s);//программа считывает значение, которое вы вводите с клавиатуры r:=0;// переключатель, изначально равен нулю for i := 1 to 5 do // обращаемся к элементам массива с помощью цикла if a[i] = s then //проверяем первый раз, есть ли в массиве искомое число r:=1;// если искомое числа есть в массиве, то переключатель изменяется с 0 на 1 if r > 0 then // проверяем, изменился ли наш переключатель, если да, тогда begin //начало подпрограммы for i:=1 to 5 do //обращаемся к элементам массива с помощью цикла if a[i] = s then // проверяем еще раз, есть ли в массиве искомое число, заведомо зная, что оно здесь есть writeln('Число ', s, ' есть в массиве и стоит на ', i, ' месте');// выводим на экран сообщение с его положением end // конец подпрограммы else // иначе наш переключатель не изменился и такого числа нет в массиве write('Такого числа нет в массиве');// выводим сообщение на экран о том что числа нет в массиве end.// конец программы
Write, Run & Share Pascal code online using OneCompiler’s Pascal online compiler for free. It’s a straightforward, accessible way to learn and experiment with Pascal programming right from your browser. OneCompiler supports modern Pascal syntax and provides a ready-to-use editor for immediate execution.
Pascal is a procedural programming language developed in the 1970s by Niklaus Wirth. It was designed to encourage good programming practices and structured programming. Pascal is widely used in teaching computer science fundamentals and has influenced many modern languages.
The following is a simple Pascal program that prints a greeting:
program HelloWorld;
begin
writeln('Hello, OneCompiler!');
end.
OneCompiler’s Pascal editor supports stdin through the I/O tab. Here’s an example that reads a user's name and prints a greeting:
program GreetUser;
var
name: string;
begin
readln(name);
writeln('Hello, ', name, '!');
end.
var
age: integer;
name: string;
score: real;
flag: boolean;
Type | Description |
---|---|
integer | Whole numbers |
real | Floating-point numbers |
char | Single character |
string | Sequence of characters |
boolean | True or False |
if score >= 50 then
writeln('Pass')
else
writeln('Fail');
for i := 1 to 5 do
writeln(i);
i := 1;
while i <= 5 do
begin
writeln(i);
i := i + 1;
end;
i := 1;
repeat
writeln(i);
i := i + 1;
until i > 5;
procedure SayHello;
begin
writeln('Hello!');
end;
function Add(a, b: integer): integer;
begin
Add := a + b;
end;
This guide provides a quick reference to Pascal programming syntax and features. Start coding in Pascal using OneCompiler’s Pascal online compiler today!