Turbo Pascal

[aker122]

Примерно.
1.
sum:=0;
pr:=1;
for i:=1 to 15 do
if (i>0) and (i mod 2 <> 0) then
sum:=sum+i;
pr:=pr*i;
writeln(sum);
2.
sum:=0;
for i:=20 to 100 do
if (i mod 3 =0) then
sum:=sum+i;
writeln(sum);
3.
180 гр ~ 3рад.
i:=0
repeat
writeln(sin(i));
i:=i+0.1;
until i;
4.
sum:=0;
for i:=1 to 29 do
sum:=sum+1/(1+i);
writeln(sum);

а что перед и после всего ?? если не сложно напиши,а то мне не понятно где переменные,де шо !

 

[PleoMax]

Кто-нибудь поможет с решением моих задач?

 

[lovesan]

Кто-нибудь поможет с решением моих задач?

напиши задачи в ЛС :lam:

 

[AkeL.php]

тебе остается только разобраться со случаем "перехода" на начало алфавита.

GH0ST, как этот переход реализовать?

 

[Hamster]

for i:=1 to length(s) do begin s:=chr(ord(s)+k);
if ord (s) > код буквы я (хз какой, сам ищи) then s : = chr(ord(s) -33 );
end;

33 - к-во букв русского алфавитаю но я не уверен в этом

 

[AkeL.php]

Помогите написать процедуру для определения минимального элемента матрицы m на n.

 

[Vladimir B.]

Мне в политехе рекомендовали задать тип максимальных размеров.

То-есть, если матрицы (7,6) и (6,7), то:

type tmatrix=array[1..7, 1..7] of real;

В саму процедуру передаем матрицу и ее размеры:

procedure p(matrix: tmatrix; x,y: byte);
begin
end;

P.S. Считаю этот способ немного не правильным, т.к. нужно много памяти - идеальный вариант - динамические структуры, но это уже специфическое сложное решение. А в лабах надо делать так, как я написал.
P.P.S. Я все-таки сделал не так!

 

[PAIN]

Помогите решить задание.
Ввести довільній текст.Перевірити,чи в заданому тексті кількість відкрітих дужок дорівнюе кількості закритих дужок.
Пожалуйста очень нада.

 

[Hamster]

for i:=1 to length(s) do begin
if s=')' then inc(z);
if s='(' then inc(v); end;
if z=v then write ('sovpalo')
;

 

[PAIN]

Ето решение кому?