результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат'); если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX'); если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY'); если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти'); если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти'); если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти'); если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var x,y: integer; begin writeln ('ââåäè êîîðäèíàòû òî÷êè x,y'); read (x,y); if (x=0) and (y=0) then writeln (''это начало координат'); if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX'); if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY'); if (y>0) and (x>0 ) then writeln ('точка в 1 четверти'); if (y>0) and (x<0 ) then writeln ('точка во 2 четверти'); if (y<0) and (x<0 ) then writeln ('точка в 3 четверти'); if (y<0) and (x>0 ) then writeln ('точка в 4 четверти') end.
Const nn=100; var a:array[1..nn] of integer; i,n,k,l,s:integer; begin Randomize; Write('Количество элементов в массиве: '); Read(n); Write('Границы для суммирования: '); Read(k,l); { Считаем,что все введено корректно без проверки } Writeln('Элементы массива'); s:=0; for i:=1 to n do begin a[i]:=Random(100); Write(a[i],' '); if i in [k..l] then s:=s+a[i] end; Writeln(#13#10,'Найденная сумма: ',s) end.
Пример Количество элементов в массиве: 13 Границы для суммирования: 3 9 Элементы массива 30 82 9 6 20 99 58 61 18 61 73 51 28 Найденная сумма: 271
1 постановка задачи
исходные данные Х,У
результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат');
если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти');
если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY');
if (y>0) and (x>0 ) then writeln ('точка в 1 четверти');
if (y>0) and (x<0 ) then writeln ('точка во 2 четверти');
if (y<0) and (x<0 ) then writeln ('точка в 3 четверти');
if (y<0) and (x>0 ) then writeln ('точка в 4 четверти')
end.
nn=100;
var
a:array[1..nn] of integer;
i,n,k,l,s:integer;
begin
Randomize;
Write('Количество элементов в массиве: '); Read(n);
Write('Границы для суммирования: '); Read(k,l);
{ Считаем,что все введено корректно без проверки }
Writeln('Элементы массива');
s:=0;
for i:=1 to n do begin
a[i]:=Random(100);
Write(a[i],' ');
if i in [k..l] then s:=s+a[i]
end;
Writeln(#13#10,'Найденная сумма: ',s)
end.
Пример
Количество элементов в массиве: 13
Границы для суммирования: 3 9
Элементы массива
30 82 9 6 20 99 58 61 18 61 73 51 28
Найденная сумма: 271