OnlineGDB beta
online compiler and debugger for c/c++
code. compile. run. debug. share.
- IDE
- My Projects
- Classroom new
- Learn Programming
- Programming Questions
- Sign Up
- Login
Source Code
Language
Editor Theme:
Editor Mode:
Font size:
Tab Space:
Autocomplete:
on
off
WordWrap:
on
off
- main.pas
{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press «Run» button to execute it.
}
program Hello;
begin
writeln (‘Hello World’)
end.
Compiling Program…
- input
Command line arguments:
Standard Input:
Interactive Console
Text
×
Program is not being debugged. Click «Debug» button to start program in debug mode.
Call Stack
| # | Function | File:Line |
|---|
Local Variables
| Variable | Value |
|---|
Registers
| Register | Value |
|---|
Display Expressions
| Expression | Value |
|---|
Breakpoints and Watchpoints
| # | Description |
|---|
Language:
Layout:
|
Show compiler warnings |
|
Формулировка задачи:
Дано натуральное число n и целые числа a,a1,…an где n<=1000.Если в последовательности a1…an есть хотя бы один член,равный q,то получить сумму всех членов,следующих за первым таким членом,в противном случае ответом должно служить количество отрицательных элементов
program my1;
var i,j,kd,n,s,q:integer;
a:array[1..100] of integer;
BEGIN
writeln('vvod n');
readln(n);
writeln('vvod q');
readln(q);
randomize;
kol:=0
s:=0
BEGIN
for i:=1 to n do
a[i]:=random(150)-random(50);
for i:=1 to n do
if(a[i]=q)then
Begin for j:=i+1 to n do
s:=s+a {j];
writeln('s=',s');
readln;
end
else
for i:=1 to n do Begin
if(a[i]<0) then
kol:=kol+1;
writeln('kol',kol);
end;
readln;
end;
END.
Код к задаче: «Проверить программу на наличие ошибок»
textual
Листинг программы
program my1;
uses crt;
var i,j,kol,n,s,q:integer;
a:array[1..1000] of integer;
BEGIN
clrscr;
write('n=');
read(n);
write('q=');
read(q);
randomize;
kol:=0;
s:=0;
BEGIN
for i:=1 to n do
begin
a[i]:=random(150)-random(50);
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if(a[i]=q)then
Begin
for j:=i+1 to n do
s:=s+a[j];
writeln('s=',s);
end
else
for i:=1 to n do
Begin
if(a[i]<0) then
kol:=kol+1;
end;
writeln('kol=',kol);
end;
readkey;
END.
]1
с шестой строки выдает ошибку, хотя пишу с учебника, в чем проблема?
Паскаль абсNET. Использование вещественных числе с целыми.
b:=n; writeln ('b=',b);
n:=trunk(a);writeln ('trunk'(3.6)=',n);
Anton Shchyrov
33k2 золотых знака29 серебряных знаков59 бронзовых знаков
задан 1 дек 2016 в 13:10
11
После третьей строки должен быть begin, на 7 строке второй апостроф — лишний.
A K
28.5k19 золотых знаков54 серебряных знака130 бронзовых знаков
ответ дан 1 дек 2016 в 13:21
Anton ShchyrovAnton Shchyrov
33k2 золотых знака29 серебряных знаков59 бронзовых знаков
3
Отвечая на вопрос, Как найти ошибку в коде?, могу сказать только одно.
- Создайте пустую программу
- Запустите — запустилось — хорошо, не запустилось ищите ошибку.
- Добавляйте по одной строчке из вашего примера и запускайте — таким образом вы увидите какую строку перепечатали неверно!
ответ дан 1 дек 2016 в 13:23
JVicJVic
3,2691 золотой знак15 серебряных знаков35 бронзовых знаков
1
My Projects
Change Password
My Profile
Logout
Undo
Redo
Cut
Copy
Paste
Delete
Select All
Find
Find and Replace
Editor Theme
Crimson
Eclipse
Github
Solarized
Cobalt
krTheme
Monokai
Terminal
Textmate
Twilight
Vibrant Ink
Font Size
8px
9px
10px
11px
12px
13px
14px
15px
16px
17px
18px
20px
22px
24px
Show Invisible
Hide Invisible
Show Line Numbers
Hide Line Numbers
Ace Editor (Default)
Vim Editor
Emacs Editor
Open New Project
Save Project
Save As New Project
Share Project
Search Project
Program HelloWorld(output);
begin
writeln(‘Hello, world!’);
end.
Online Pascal Compiler (Free Pascal v3.0.2)
Online Pascal Compiler (Free Pascal v3.0.2) helps you to Edit, Run and Share your Pascal Code directly from your browser. This development environment provides you version Free Pascal v3.0.2.
How to give program Input?
The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.
Keyboard Shortcuts
| Shortcut | Description |
|---|---|
| ⌘ + Enter | Run the program |
| ⌘ + S | Save Project (Login Required) |
| ⇧ + ⌘ + S | Save As Project |
| ⌘ + P | New Project |
| ⌘ + G | Share Project |
| ⌘ + Z | Undo Editing |
| ⌘ + Y | Redo Editing |
| ⌘ + A | Select All Text |
| ⌘ + X | Cut Selected Text |
| ⌘ + C | Copy Selected Text |
| ⌘ + V | Paste Copied Text |
| ⌘ + F | Search Text |
| ⌘ + ⌥ + F | Replace Text |
| Shortcut | Description |
|---|---|
| Ctrl + Enter | Run the program |
| Ctrl + S | Save Project |
| Shift + Ctrl + S | Save As Project |
| Ctrl + G | Share Project |
| Ctrl + Z | Undo Editing |
| Ctrl + Y | Redo Editing |
| Ctrl + A | Select All Text |
| Ctrl + X | Cut Selected Text |
| Ctrl + C | Copy Selected Text |
| Ctrl + V | Paste Copied Text |
| Ctrl + F | Search Text |
| Ctrl + H | Replace Text |
Save Pascal Project
You can save your Pascal Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.
Share Pascal Project
You can use this feature to share your Pascal Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.