Большой Воронежский Форум Mobile

Сообщение от :
program zad1;

var
q,x,y:real;

begin
Write('Q = ');Readln(Q);
Write('X = ');Readln(X);
y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q));
Writeln('Y = ',y:3:3);
readln;
end.

Сообщение от :
program zad2;

var
x:integer;
y:real;

begin
Write('X = ');Readln(X);
case (X) of
1: y:=x*x*x*x*x+x;
2: y:=1/x;
3: y:=1/x*x;
else y:=sqrt(abs(x*x*x*x*x+x));
end;
Writeln(Y:5:3);
readln;
end.

Сообщение от :
program zad3;

begin
Writeln('Vvedite massiv B: ');
For i:=1 to 12 do read(B[i]);
readln;
min:=0;
mini:=0;
For i:=1 to 12 do
begin
if ((B[i]<min) or (min=0)) and (B[i]>0) then
begin
min:=B[i];
mini:=i;
end;
end;

If mini>0 then
begin
Writeln('Min index = ',mini);
Writeln('Min = ',min);
end
else Writeln('Net polojitelnyh znacheniy');
Writeln('Massiv B = ');
For i:=1 to 12 do Write(B[i],' ');
readln;
end.

Сообщение от :
program zad4;

var
K:array[1..10] of integer;
j,i,k1,c:integer;

begin
Writeln('Vvedite massiv K: ');
For i:=1 to 10 do read(K[i]);
readln;
writeln;
write('INPUT: ');
for i:=1 to 10 do write(K[i],' ');
writeln;

For j:=10 downto 1 do
begin
k1:=1;
For i:=1 to j do if K[i]<K[k1] then k1:=i;
c:=K[j];K[j]:=K[k1];K[k1]:=c;
end;

write('OUTPUT: ');
for i:=1 to 10 do write(K[i],' ');

readln;

end.

Сообщение от :
program zad5;

var
A:array[1..3,1..3] of integer;
Amin:array[1..3] of integer;
minJ:integer;
maxI,maxJ:integer;
min,max:integer;
i,j:integer;

begin
Writeln('Vvedite matricy A po strokam: ');
for i:=1 to 3 do
begin
for j:=1 to 3 do read(A[i,j]);
readln;
end;

maxI:=0;maxJ:=0;
max:=0;
for i:=1 to 3 do
begin
min:=0;
for j:=1 to 3 do
begin
if (A[i,j]<=min) or (j=1) then
begin
min:=A[i,j];
Amin[i]:=min;
minJ:=j;
end;
end;
if (Amin[i]>max) or (i=1) then
begin
max:=Amin[i];
maxI:=i;
maxJ:=minJ;
end;
end;

Write('Minimal = ');
for i:=1 to 3 do Write(Amin[i],' ');
writeln;
Write('Max from minimal, A[',maxI,',',maxJ,'] = ',max);

writeln;
Writeln('Matrica A: ');
for i:=1 to 3 do
begin
for j:=1 to 3 do write(A[i,j],' ');
writeln;
end;
readln;

end.

народ очень прошу помогите с описанием хода решения этих задач, просто я в программировании ноль, нужно объяснить по такому принципу, например за, что отвечает данная строка [I]for i:=1 to 3 do Write(Amin,' '); [Ответ]

program zad1;

var \ описание переменных
q,x,y:real; \ 3 переменных, действительные числа

begin \ начало программы
Write('Q = '); \выводится на экран Q=
Readln(Q); \читает Q, которое ты ввел
Write('X = ');Readln(X); \тож самое
y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q)); \у равен х в четвертой степени(дважды в квадрат)... и т.д. ...

Writeln('Y = ',y:3:3); \выводится на экран у с тремя знаками после запятой
readln; \ при нажатии энтер окно закрывается
end. [Ответ]

C++, спасибо, может ещё кто поможет парочку объяснить, хотя бы последние 2 задачи, буду благодарен. [Ответ]

program zad2;

var //описание переменных
x:integer; //целое число
y:real; //действительное число

begin
Write('X = ');Readln(X); //запрашиваем у пользователя ввод Х и читаем его с клавиатуры
case (X) of//в зависимости от Х
1: y:=x*x*x*x*x+x; //если х=1, то присваиваем у х в 4-й степени плюс х
2: y:=1/x;//если х=2, то у присваиваем 1/х
3: y:=1/x*x;//здесь вообще-то ошибка, 1/х*х это 1. Наверно надо 1/(х*х)... Кто писал вам программы?
else y:=sqrt(abs(x*x*x*x*x+x));//если х не равен 1, 2, 3 то присваиваем у корень из модуля (х в 4-й плюс х)
end;
Writeln(Y:5:3);//печатаем у с точностью до 3 знаков после запятой
readln;
end. [Ответ]

Оля-ля, Огромное спасибо [Ответ]

участились случаи..., надо мутить темку:

"всем школьникам читать обьязательно"
"в теме со смыслом "решите мне задачу" обязательно указывать сумму которую готов положить на телефон решившему"
тарифы не большие, от 10ру за задачу, а kerish её важной повесит

как мысль...? [Ответ]

Готов положить 50руб на счет. Тому кто опишет ход решения последних 3 задач, по приведенным примерам. [Ответ]

Сообщение от xxx-men:
как мысль...?

Сообщение от cac40:
Готов положить 50руб на счет.

даже потенциальные заказчики не против =) [Ответ]

Ну помогите плиз, ипишите ход решения, очень нада [Ответ]

Сообщение от :
program zad3; //йа программко зад3

//йя думало тут мне скажут какието переменные, а сказали йух, ну и пох, как хотят пусть компилируют

begin //йа начало программко

Writeln('Vvedite massiv B: '); //говорим юзеру "введи массив В", на траслите, пусть мучаеца сцуко
For i:=1 to 12 do read(B[i]); //спрашиваем по очередно все элементы массива
readln;//ждем нажатия "энтер"
min:=0; //задаем минимальное значение
mini:=0; //задаем номер минимального значения

For i:=1 to 12 do //запускаем цикл от 1 до 12
begin//йа начало цикла

if ((B[i]<min) or (min=0)) and (B[i]>0) then //если значение текущего элемента массива положительно и
// меньше минимального значения из ранее найденых (фуххх, написал бле.....)
begin //тогда
min:=B[i];//приваиваем минимальногму значению значение текущего элемента
mini:=i; //присваеваем номеру минимального элемента номер текущего элемента
end;//йа канец тогда
end;//йа канец цикла, повторять 12 раз

If mini>0 then //если номер минимального, положительного элемента больше 0
begin// тогда:
Writeln('Min index = ',mini); //пишем номер минимального положительного элемента
Writeln('Min = ',min); //пишем значение минимального положительного элемента
end//конец "тогда"
else Writeln('Net polojitelnyh znacheniy'); //иначе пишем "чо за жывотное заполняло масиф???, вот сам посматри"
Writeln('Massiv B = ');//пишем "массив В ="
For i:=1 to 12 do Write(B[i],' '); // выводим все элементы массива через пробел
readln; //ждем нажатия "энтер"
end. //йа конец програмко

ты ток расскажи где таким идиотством страдать заставляют..? [Ответ]

porohov, у мну никогда ничо раньше чем с третей попытки не компилилось... [Ответ]

Сообщение от xxx-men:
участились случаи..., надо мутить темку:

"всем школьникам читать обьязательно"
"в теме со смыслом "решите мне задачу" обязательно указывать сумму которую готов положить на телефон решившему"
тарифы не большие, от 10ру за задачу, а kerish её важной повесит

как мысль...?

Я не против.
Создавай тему, сделаю важной. [Ответ]