Страница 1 из 1
помогите с задачей в паскаль
Добавлено: 10 май 2007, 22:48
Switchback
помогите плз......
Найти среднее значение и стандартные отклонения для элементов массивов x(N) и y(М); М< 100, N< 100.
(процедуры)

Re: помогите с задачей в паскаль
Добавлено: 11 май 2007, 10:18
Хыиуду
пройти в цикле по массиву, сложить все элементы, разделить на их количество - получаешь среднее
пройти в цикле, из каждого элемента вычесть среднее - получишь отклонения
Re: помогите с задачей в паскаль
Добавлено: 11 май 2007, 17:43
Сумрачная
Здравствуйте уважемые программисты.Умнейшие из умнейших.Помоготе несчастной девушке, решить несколько задачек.
B]1[/B]При каких значeниях Х следуещее выражение истинно?
1.Y mod 5=X
2.Прикаких значениях Y следующее выражение истинно: Y div 5=8
3.Прикаких значениях N следующее выражение истинно :50 div N=7
4.При каких значениях Z истинно:50 mod Z=7
5.С какими значениями Х следующее равенство будет правильным: X div 5=X mod 5
6.С какими значениями Н следующее равенство будет правильным: 20 div H=20 mod H
2Записать программу для вычесления значения выражения 1+2/(3+4/(5+6/(7+х))) при различных значениях Х.Выяснить,про каком Х значения выражения не существует.
3Что будет напечатано после выполнения программы ,если программист введет с клавиатуры числа: 1 2 3 4 5<-?
Var
a,b,c:integer;
begin
read (a,b,a,c,b);
write (a,b,c);
end.
Определить,что выводится на печать в результате выполнения следущей программы,если входной поток имеет вид b=4,c=3
var
a,b,c,i:integer;
begin
read (d,c);
writen( 'b=`,b, ` c= `,c); ( перед первой b перевернутая запятая,потом обычная наверху)
i:b div c ;
case i of
1: a:=b+c;
2: a:=b-c;
3: a:=2*(b+c);
4: a:=b*c;
end;
writen( `a=`,a); (перед первой a перевернутая запятая,потом обычная наверху)
end.
Вообщем,не оставьте в беде.Кто чем может,кто что знает, и главное, имеет желание поделиться.
Спасибо.
Re: помогите с задачей в паскаль
Добавлено: 12 май 2007, 03:53
Колядин Максим
Сумрачная, - это математика, 1 класс. Например,
Y div 5=8
div - деление целых чисел (т. е. если есть остаток, то он отбрасывается. 5/2=2,5. Целых здесь 2, значит
5 div 2=2).
Y:=5*8;
Y=40;
Ответ:
Y=40
______________________
mod - наоборот, остаток от деления
a на
b. (5 mod 2 =1);
50 mod Z=7
Z=50/7
Z~7.
Ответ:
Z=7.
______________________
Такие примеры как
20 div H=20 mod H, легко решить програмно:
Код: Выделить всё
h:=1;
while (20 div h<>20 mod h) do inc(h);
______________________
Совет: прочитай какую-нибудь книжку для начинающих программистов.
Re: помогите с задачей в паскаль
Добавлено: 12 май 2007, 23:54
Сумрачная
колядин максим
сердечно благодарю:d
Re: помогите с задачей в паскаль
Добавлено: 14 май 2007, 10:34
Хыиуду
Я бы тут пробежался по значениям в цикле. Потому что Y div 5=8 истинно не только для Y=40, но и для Y=41, 42, 43, 44. То же со всеми остальными.
А задачи типа "3Что будет напечатано после выполнения программы ,если программист введет с клавиатуры числа: 1 2 3 4 5<-?" решаются путем запуска программы

Re: 50 mod Z = 7
Добавлено: 14 май 2007, 16:57
BBB
Колядин Максим писал(а):mod - наоборот, остаток от деления a на b. (5 mod 2 =1);
Но далее:
Колядин Максим писал(а):50 mod Z=7
Z=50/7
Z~7.
Ответ: Z=7.
Т.е.
50 mod 7 = 7 ????
Максим, я в шоке...
Re: помогите с задачей в паскаль
Добавлено: 15 май 2007, 11:08
somewhere
" писал(а):50 mod Z=7
Z=50/7
Z~7.
Ответ: Z=7.
X*Z + 7 = 50
X*Z = 43, в целых числах неразрешимо!!!
Re: помогите с задачей в паскаль
Добавлено: 15 май 2007, 11:15
BBB
somewhere писал(а):X*Z + 7 = 50
X*Z = 43, в целых числах неразрешимо!!!
Ну почему же? X = 1, Z = 43.