IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Изменить условие в решении, Помогите!!Умоляю!!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Женский

Репутация: -  0  +


Вот задачка: учитель объявил результаты контрольной работы. Определите процентное содержание выставленных им пятерок,четверок,троек и двоек.
В готовой программе на экран выводится общий ряд оценок и их процентное соотношение.Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?
Помогите плиз!Экзамен на носу!

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
const N = 20;
{A : array [1..20] of Integer=(4,2,3,4,5,4,2,4,4,3,5,3,2,5,3,2,3,5,3,5);}
var A : Array[1..N] of Integer;
B : Array[1..5] of Integer;
C : Array[1..5] of Real;
I : Integer;
K : Real;
begin
Randomize;
K:=100/N;
for i:=1 to N do begin
A[i]:=Random(5)+1;
write(A[i],',');
end;
writeln;

for i:=2 to 5 do begin
B[i]:=0;
end;

for i:=2 to N do begin
B[A[i]]:=B[A[I]]+1;
end;

for i:=2 to 5 do begin
C[i]:=B[i]*K;
writeln(i,':',C[i]: 2: 2);
end;
readln;
end.


М
Тэги!! mad.gif



Сообщение отредактировано: Lapp -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


const N = 20;
var A : Array[1..N] of Integer;
B : Array[1..5] of Integer;
C : Array[1..5] of Real;
I : Integer;
K : Real;
begin
Randomize;
K:=100/N;
for i:=1 to N do begin
A[i]:=Random(4)+2;
write(A[i],',');
end;
writeln;

for i:=1 to 5 do begin
B[i]:=0;
end;

for i:=1 to N do begin
B[A[i]]:=B[A[I]]+1;
end;

for i:=2 to 5 do begin
C[i]:=B[i]*K;
writeln(i,':',C[i]: 2: 2);
end;
readln;
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Studentka @ 10.06.2009 10:10) *
Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?
Прыгнуть три раза, хлопнуть в ладоши и сказать: елочка, зажгись! lol.gif


Добавлено через 3 мин.
Меня уже не первый раз за последнее время радует находчивость преподавателей)). Я ценю хорошее чувство юмора. Особенно соединенное с возможностью заставить лентяев хоть пальцем пошевелить.. на форум, вот, зайти.. smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 3
Пол: Женский

Репутация: -  0  +


Ozzя,спасибо тебе kiss2.gif
Эх,есть еще хорошие люди ))

Добавлено через 6 мин.
Lapp:
Ну да ,вот такие мы заочники лентяи и балбесы 10.gif
Зато всю остальную контрольную сама делала,вот! Ну куда ж без вас,без программеров !mol1.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Studentka @ 10.06.2009 14:16) *
Ну да ,вот такие мы заочники лентяи и балбесы 10.gif
Зато всю остальную контрольную сама делала,вот!
Я не вполне понимаю, что ты имеешь в виду, потому что вот это утверждение:
Цитата
Решение сделано так,что выводятся и колы
- совершенно неверно. Как НЕ выводились колы, так они и НЕ выводятся. Ozzя сделал, что бы они не вводились. Ты не видишь разницы?

Если Ozzе удалось угадать и сделать именно то, что тебе нужно - попроси меня поднять ему рейтинг. За интуицию)).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 3
Пол: Женский

Репутация: -  0  +


Ozzя сделал именно то,что нужно ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Studentka @ 16.06.2009 7:54) *
Ozzя сделал именно то,что нужно ))
Так что - поставить ему +1 ? smile.gif


Добавлено через 1 мин.
В принципе, когда наберешь, кажется, 20 сообщений, сможешь и сама))


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 4:06
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name