сервис вопросов и ответовНайдите ошибку Uses crt;
10-11 класс|
|
Var n,i,k,sum:integer;
sr:real;
m:array [1..100] of integer;
begin clrscr; Writeln ('Vvedite kol-vo chisel ');
Readln (n); For i:=1 to n do begin writeln ('vvedite ',i,' chislo ');
Readln (m[i]); end; writeln (' Polycheny chisla ');
For i:=1 to n do write (m[i]:4);
for i:=1 to n do if m[i]>0 then begin m[i]:=sin(i)*cos(i);
sum:=sum+m[i];
k:=k+1;
Sr:=sum/k;
end;
Writeln;
Writeln ('Sr = ',sr:4:2);
Readln;
end.
KOGEM06
21 авг. 2016 г., 1:18:59 (7 лет назад)
Veliall
21 авг. 2016 г., 4:10:12 (7 лет назад)
Найдите ошибку
Uses crt;
Var n,i,k,sum:integer;
sr:real;
m:array [1..100] of integer;
begin clrscr; Writeln ('Vvedite kol-vo chisel ');
Readln (n); For i:=1 to n do begin writeln ('vvedite ',i,' chislo ');
Readln (m[i]); end; writeln (' Polycheny chisla ');
For i:=1 to n do write (m[i]:4);
for i:=1 to n do if m[i]>0 then begin m[i]:=sin(i)*cos(i);
sum:=sum+m[i];
k:=k+1;
end;
Sr:=sum/k;
Writeln;
Writeln ('Sr = ',sr:4:2);
Readln;
end.
Карамелька2003
21 авг. 2016 г., 6:20:10 (7 лет назад)
Uses crt;
Var n,i,k,sum:integer;
sr:real;
m:array [1..100] of integer;
begin clrscr; Writeln ('Vvedite kol-vo chisel ');
Readln (n); For i:=1 to n do begin writeln ('vvedite ',i,' chislo ');
Readln (m[i]); end; writeln (' Polycheny chisla ');
For i:=1 to n do write (m[i]:4);
for i:=1 to n do if m[i]>0 then begin m[i]:=sin(i)*cos(i);
sum:=sum+m[i];
k:=k+1;
Sr:=sum/k;
end;
Writeln;
Writeln ('Sr = ',sr:4:2);
Readln;
end.
gde ja podcherknul, rezultati i functii dlya type real, ne dlya integer;
nado sdelat' vot shto:
m:array [1..100] of integer; -> m:array [1..100] of real;
m[i]:4 -> m[i]:0:4;
Ответить
Другие вопросы из категории
Что из перечисленных не является объектом электронной таблицы
А)диаграмма Б)вопрос С)книга Д)столбец
Информационный объем текста, набранного на компьютере с использованием кодировки UNICODE (каждый символ кодируется 16 битами), — 0,5 Кб.
Определить количество символов в тексте.
Читайте также
1. Запишите следующее выражение по правилам программирования:

2. Выпишите недопустимые имена переменных:
a) Nomer;
b) S34;
c) И92;
d) Kol_vo54;
e) 45_A;
i) fg-л23
3. Установите соответствие (с помощью стрелок) между переменной и типом данных:
а) A:=3.234 а) Integer
b) Z:=14 b) Real
c) B:=10351 c) Byte
d) K:=-0.2 d) Word
e) C:= 64000
4. Запишите инструкцию:
а) присваивающую переменной V значение 7;
б) увеличивающую значение переменной Z на 30;
в) вычисляющую значение переменной R по формуле (X2+Y2):2;
5. Опишите переменные, необходимые для вычисления:

при x=-5.3, y=7.42
6. Напишите инструкцию вывода на экран:
а) вашего имени б) числа 400 в) значения выражения 7,3(3,22+8,61)
7. Определите, какое значение примет переменная С в результате выполнения данной последовательности операторов присваивания:
a:=8; b:=a/2; c:=43 mod a; a:=(b+c) div 6; b:=b+1; c:=sqrt(abs(a*b-14));
8. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей
9. Найдите ошибки в записях оператора:
a) Write ©;
b) Writeln;
c) Writeln (Введите любое число);
d) Write X,Y;
e) WRITELN (‘воскресенье, нерабочий день’);
10. Какая структура программы верная:
begin
program MyFirst;
X:=Y+195;
end.
program MyProg;
begin
Writeln (‘Привет’);
end.
11. Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:
1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
8) Writeln(‘p=’,p,’ s=’,s);
4) p:=2*(a+b);
9) a:=6;b:=3;h:=4;
5) Uses crt;
10) clrscr;
11) begin
12. Дан текст программы в таблице с ошибками:
исправьте ошибки в программе;что выведется на экран в результате выполнения программы?
Программа с ошибками
Программа без ошибок
На экране будет напечатано:
War: a,b,c – integer, x: real;
Bigin
A=7, b=3,2, c:=a+b;
Writln (summa=, c);
C:=c/2; x:=a-c;
Writeln(‘x=’ , x, ‘kvadrat=’, x*x);
and
13. Перевести блок-схему на язык Паскаль.
Вычисление расстояния между точками А и B.

Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В
противном случае все отрицательные элементы матрицы возвести в квадрат.
У меня получилось вот что:
program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;
Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln
Не могу понять в чем ошибка
Какая тут ошибка, посмотрите, пожалуйста program znacheniya uglov; uses crt; var x: integer; begin writeln('wedite znachenie gradusnoi mery ugla');
read(x); if a=180 then writeln('razvernutyi') else writeln ('ne razvernutyi'); end.
Помогите найти ошибку , программа работает неполноценно , всё пересмотрел , ошибки не нашёл...Программа в Pascal:Метод выборный.
Program test;
uses crt;
Const
N=5;
var a : array [1..N] of integer;
var i , Max , k , t , f : integer;
begin
For i:=1 to N do
A[i]:=random(8);
write ('Массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
writeln;
For i:=1 to (N-1) do
begin
Max:=A[i];
For k:=i+1 to N do
If (A[k]>Max) then
begin
Max:=A[k];
f:=k;
end;
t:=A[i];
A[i]:=A[f];
A[f]:=t;
end;
write ('Упорядоченный массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
end.
После end должна стоять запятая...это же цикл , надеюсь на вашу помощь...
Помогите найти ошибку , программа работает неполноценно , всё пересмотрел , ошибки не нашёл...Программа в Pascal:Метод выборный.
Program test;
uses crt;
Const
N=5;
var a : array [1..N] of integer;
var i , Max , k , t , f : integer;
begin
For i:=1 to N do
A[i]:=random(8);
write ('Массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
writeln;
For i:=1 to (N-1) do
begin
Max:=A[i];
For k:=i+1 to N do
If (A[k]>Max) then
begin
Max:=A[k];
f:=k;
end;
t:=A[i];
A[i]:=A[f];
A[f]:=t;
end;
write ('Упорядоченный массив');
writeln;
For i:=1 to N do
begin
write (A[i]);
write (' ');
end;
end.
Вы находитесь на странице вопроса "Найдите ошибку Uses crt;", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.