Не разбираюсь в синтаксисе СИ
задача №1
Даны числа a и b. Определить, попадет ли точка с координатами (a, b) в заштрихованную область и вывести на экран соответствующее сообщение.
Сами уравнения и подробности писать не буду проблематично и нет надобности если что сам допишу.
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| uses crt;
var a,b,z:real;
begin
clrscr;
writeln('Введите 2 целых числа:');
readln(a,b);
begin
if ((a*a)=((b*b)+2) and a=b)
then begin if a>0 or b>0
then z:=a*a
else z:=b*b
end
else write('Не попадает, z= ',z)
else if ((a*a)+(b*b)+2) or ((a*a)+(b*b)-2)
then z:=(2*a*b)/(a+b) write('Попадает, z= ',z)
else begin if a>0 or b>0
then z:=a*a
else z:=b*b
end
write('Непопадает, z= ',z);
end;
readln
end. |
|
и еще одна
Текст задания
Создать программу, обеспечивающую работу следующих пунктов меню.
1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти первый отрицательный элемент в массиве. Найти сумму отрицательных элементов. Заменить все элементы, стоящие перед первым отрицательным элементом на сумму отрицательных элементов.
4. Конец работы.
| 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
| program pr1;
uses crt;
const WG=100;
type tmasi=array[1..WG] of integer;
var a:tmasi; n,kl:byte;
(*процедура ввода*)
procedure pr_wod(kl:byte; var n:byte; var mas:tmasi);
var i:byte;
begin
if n=0 then begin
writeln('размерность массива');
readln(n);
end;
(*контроль значения переменной*)
while n>WG do
begin
writeln('неверно ввёл попробуй ещё раз');
readln(n);
end;
if kl=1 then randomize;
for i:=1 to n do
case kl of
1:mas[i]:=random(201)-100;
2:begin
writeln('введи ',i,' элемент массива');
readln(mas[i]);
end;
end;
end;
(*процедура вывода*)
procedure pr_out(n:byte; mas:tmasi);
var i:byte;
begin
for i:=1 to n do
write(mas[i]:6);
writeln;
end;
(*функция нахождения отр. элемента*)
function f_otr(n:byte; mas:tmasi):byte;
var i:byte;
begin
f_otr:=0;
for i:=1 to n do
if mas[i]<0 then begin
f_otr:=i;
break;
end;
end;
(*функция нахождения суммы отр. элементов массива*)
function f_sum(n:byte; mas:tmasi):integer;
var i:byte; sum:integer;
begin
sum:=0;
for i:=1 to n do
if mas[i]<0 then
sum:=sum+mas[i];
f_sum:=sum;
end;
(*процедура работы с отрицательными элементами*)
procedure pr_otr_el(n:byte;var a:tmasi);
var i,j,pos:byte; sum:integer;
begin
pos:=f_otr(n,a);
if pos=0 then begin
writeln('В массиве отсутствуют отрицтельные элементы');
exit;
end;
sum:=f_sum(n,a);
for i:=1 to pos-1 do
a[i]:=sum;
writeln('Первый отрицательный элемент- ',a[pos]);
writeln('Сумма отрицательных элементов- ',sum);
writeln('Массив переформирован');
writeln;
end;
begin
while true do
begin
repeat
writeln('1- создать массив из целых чисел;');
writeln('2- вывод элементов одномерного массива;');
writeln('3- работа с отрицательными элементами массива;');
writeln('4- конец работы.');
readln(kl);
until kl in [1..4];
case kl of
1:begin
pr_wod(2,n,a);
ClrScr;
writeln('Массив введен');
end;
2:begin
if n=0 then begin
n:=20;
pr_wod(1,n,a);
end;
writeln('Массив');
pr_out(n,a);
end;
3:begin
pr_otr_el(n,a);
writeln('Пункт выполнен');
writeln;
end;
4:exit;
end;
end;
end. |
|
(
