сервис вопросов и ответовнайти ошибки не позволяющие произвести компиляцию программы var begin x:=5.8; y:=7; y:=y; write (`сумма=,x+y)
5-9 класс|
|
end.
Ilirova99
28 апр. 2013 г., 8:32:24 (11 лет назад)
IIIIIIIII
28 апр. 2013 г., 11:18:37 (11 лет назад)
Не инициализированы переменные.
var x,y:real;
begin
x:=5.8;
y:=7;
write (`сумма=,x+y);
end.
Solshko
28 апр. 2013 г., 12:09:02 (11 лет назад)
Секция "var" -предназначена для объявления переменных.Прежде чем использовать переменные их надо там инициализировать следущим образом :
var
x,y:real;
begin
x:=5.8;
y:=7;
y:=y;
write (`сумма=,x+y)
end.
После двоеточия указывается тип переменных.
(Не забудьте отметить как лучший)
Ответить
Другие вопросы из категории
1) Нужно найти самое длинное слово в строке считая знаком их разделения пробел.
2) Составьте программу которая определяет количество буквы "а
" в заданном тексте.
3) Замените запятыми пробелы между словами заданного текста.
ПАСКАЛЬ
СРОЧНО ПОМОГИТЕ С ЛОГИЧЕСКОЙ ЗАДАЧЕЙ ПО ИНФОРМАТИКЕ, СРОЧНО ПОЖАЛУЙСТА...
"шестеро друзей в ожидании электрички заскочили в буфет в котором:
1)Маша купила себе тоже самое, что и Егор
2)Аня купила тоже, что Саша, но не стала покупать шоколадные печенье
3)Кирилл ел то же, что и Наташа,но кроме луковых чипов
4)Егора ел тоже, что и Наташа, но в место бутеров с котлетки предпочел картоф чипы
5)Саша ела тоже, что и Наташа, но вместо молочного коктейля, купила лимонад
Из чего состоялся завтрак каждого?
Какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая способность дисплея равна 640*350 пикселей, а
количество используемых цветов – 16?
Читайте также
Очень нужна помощь. Помогите найти ошибки - Паскаль.
Условие: Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Не совсем то выводит, и модуль может как-то через abs надо.
program proizvedenie;
var q,z,w,i,n,i1,i2:integer;
a:array[1..1000] of real;
amin,amax,pr:real;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
amin:=a[1];
for i:=1 to n do
begin
if a[i]<amin then
begin
amin:=a[i];
i1:=i;
end;
end;
amax:=a[1];
for i:=1 to n do
begin
if a[i] > amax then
amax:=a[i];
i2:=i;
end;
if i2>i1 then begin
q:=i1;
w:=i2;
end
else begin
q:=i2;
w:=i1;
end;
if (w-q)>1 then begin
pr:=1;
for z:=q to w do
pr:=pr*a[z];
end
else write (0);
close (input);
close (output);
end.
Язык программирования Бейсик Здравствуйте. Кто может найти ошибку в моем решении задачи: "Напишите программу, которая находит кол-во
чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. Программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа по модулю не превышают 30000."
Решение:
10 CLS
20 FOR I=1 TO 1000
30 INPUT "Введите число";A(I)
40 IF A(I)=0 THEN M=I AND 60
50 NEXT I
60 FOR I=1 TO M
70 IF A(I) MOD 3 = 0 AND A(I) MOD 6 <>0 THEN S=S+1
80 NEXT I
0 PRINT S
100 END
Заранее спасибо
Помогите найти ошибку в программе (Массив)
Program Ah;
uses crt;
var A:array[1..15] of integer;
i,k,n:integer;
begin
clrscr;
for i:=1 to 18 do begin
writeln('A[',i,']=');
read(A[i]);
end;
writeln('Введите число');
read(n);
k:=0;
for i:=1 to 15 do begin
if a[i]>n then
k:=k+1;
writeln('k=',k);
readkey;
end.
(В последней строке выдает "Ошибка, ожидается точка с запятой")
Посоны, у меня не запускается комп ( 7 винда). Вхожу в систему, предлагает ее просто запустить или с восстановлением запуска. Но он после проверки пишет,
что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета
Посоны, у меня не запускается комп ( 7 винда). Вхожу в систему, предлагает ее просто запустить или с восстановлением запуска. Но он после проверки пишет,
что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета
Вы находитесь на странице вопроса "найти ошибки не позволяющие произвести компиляцию программы var begin x:=5.8; y:=7; y:=y; write (`сумма=,x+y)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.