writeln('определение принадлежности точки отрезку');
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите x');
readln(x);
if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')
else writeln('точка не принадлежит отрезку');
end.
Объяснение:
нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)
program n_9;
var x,a,b:real;
begin
writeln('определение принадлежности точки отрезку');
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите x');
readln(x);
if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')
else writeln('точка не принадлежит отрезку');
end.
Объяснение:
нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)
а это советы на будущее:
нормальные скобки в условиях.
Решение
gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?
Добавлено через 35 минут
gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program mas1;
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,i,j,sum,sum1: integer;
begin
randomize;
write('Ââåäèòå ðàçìåð ìàòðèöû n: ');
readln(n);
writeln('Ìàòðèöà:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(150)-50;
write(a[i,j]:5);
end;
writeln;
end;
sum:=0;
sum1:=0;
j:=1;
for i:=1 to n do
sum:=sum+a[i,i];
for i:=n downto 1 do
begin
sum1:=sum1+a[i,j];
j:=j+1;
end;
writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);
writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);
writeln;
end.
0