| Активный форум » Общение » О разном » Нужна помощь по решению задачи на Pascal'e |
|
|
|
|
Дата: 23.12.2012, 21:45:46
Сообщение #
1
|
|
В общем нужна помощь, что решить задачу на языке Паскаля, думаю многие понимают о чем я толкую.
Условие:
Известны оценки ученика по каждому из 19 предметов. Определить среднюю оценку.
|
|
Дата: 23.12.2012, 22:20:05
Сообщение #
2
|
Дата: 23.12.2012, 22:23:29
Сообщение #
3
|
Дата: 23.12.2012, 22:33:13
Сообщение #
4
|
|
kiko, Напиши сюда под код, буду очень благодарен.
|
|
Дата: 23.12.2012, 22:35:49
Сообщение #
5
|
|
ну я сделал именно под 19, не через массивы Код var q,w,e,r,t,y,u,i,o,a,s,d,f,g,h,j,k,z,x,c,v,b,n,m:integer;
begin
readLn(q,w,e,r,t,y,u,i,o,a,s,d,f,g,h,j,k,z,x,c,v,b,n,m);
writeLn((q+w+e+r+t+y+u+i+o+a+s+d+f+g+h+j+k+z+x+c+v+b+n+m)/19:0:0)
end.
|
|
Дата: 23.12.2012, 22:43:13
Сообщение #
6
|
|
kiko, не спасибо, массивы нужны. Но все равно спасибо.
|
|
Дата: 23.12.2012, 22:43:52
Сообщение #
7
|
|
[quote=kiko]Сообщение # 5[/quote] Еб*ный стыд  Добавлено (23.12.2012, 22:43:52)
---------------------------------------------
SķŷŁīŋ, сам попробуй, это не сложно.
|
|
Дата: 23.12.2012, 22:45:20
Сообщение #
8
|
|
Цитата (SķŷŁīŋ) Нужна помощь Цитата (|Lans_Dale|) SķŷŁīŋ, сам попробуй, это не сложно. Я угараю.
|
|
Дата: 23.12.2012, 22:48:08
Сообщение #
9
|
|
Dima(cs), я скинул ему ссылку (пост 2), где рассказывается про массивы.
Чем я ему не помог?
Лучше же самому научится, нежели брать готовое.
|
|
Дата: 23.12.2012, 22:57:44
Сообщение #
10
|
|
[Lans_Dale], иди на, да, туда.
Сейчас попробую по другому.
|
|
Дата: 23.12.2012, 23:02:49
Сообщение #
11
|
|
Код var i, n: integer;
sum, x: real;
begin
write('n = '); readln(n);
sum := 0.0;
for i := 1 to n do
begin
write(i);
readln(x);
sum := sum + x
end;
writeln((sum/n):8:5)
end.
|
|
Дата: 24.12.2012, 18:17:19
Сообщение #
12
|
|
kiko, Спасибо, сдал такое вернули и сказали переделать, не школьная программа.
есть ещё варианты?
|
|
Дата: 25.12.2012, 00:26:52
Сообщение #
13
|
|
Пошли их найху. Тут нечего заумного нету.
|
|
Дата: 25.12.2012, 00:35:47
Сообщение #
14
|
|
Могу помочь - не буду, сам делай, все с чего-то должны начинать ;)
|
|
Дата: 27.12.2012, 03:27:14
Сообщение #
15
|
|
Все сделал, а точнее помогли. Вот кому интересно правильно решенная задача: Код program p4;
var a,S:integer;
A:array [1..19] of integer;
b:real;
begin
randomize
for a:= 1 to 19 do
begin
A [a]:= random (5)+1;
writeln (A [a]);
end;
S:=0;
for a:= 1 to 19 do
A:= a+A [a];
b:=s/19
writeln (b);
end.
|
|
Писать на форуме могут только авторизованные пользователи.
|
![Аватарка [Lans_Dale]](/assets/ds/img/users/noavatar.png "[Lans_Dale]"){kind=avatar}
