IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Программирование, Задача с процедурами
Alexey Besfomiln
сообщение 4.1.2010, 13:52
Сообщение #1


Школьник
*

Группа: Продвинутые
Сообщений: 11
Регистрация: 4.1.2010
Город: Фрязино



Подскажите как исправить программу или сами исправьте ошибки.
Условие Составить процедуру, заменяющую все элементы одномерного массива, меньшие значения величины Т, на значение этой величины и считающую число таких замен k.

Используя эту процедуру, изменить каждый из двух заданных массивов P и С и вывести на печать тот массив , в котором окажется больше число замен. Если же эти числа замен будут равны, вывести число замен.
Программа

Program V;
type massiv=array[1..10] of real;
Procedure prim(Var X:massiv;Var k,N:integer;Var TT:real);
Var i:integer;
begin
k:=0;
for i:=1 to N do
begin
if X[i]<TT
then
begin
X[i]:=TT;
k:=k+1;
end;
end;
end;

Var
P:massiv;
C:massiv;
i,n,kp,kc:integer;
T:real;

begin
write('vv n,T');
readln(n,T');

for i:=1 to n do
begin
write('vv P[',i,']);
readln(P[i]);
end;

for i:=1 to n do
begin
write('vv C[',i,']);
readln(C[i]);
end;

prim(P,kp,n,T);
prim(C,kc,n,T);

if kp>kc
then
begin
for i:=1 to n do
writeln('P[i]',P[i]:7:3)
end
else
begin
if kp=kc
then writeln('kp=',kp)
else
begin
for i:=1 to n do
writeln('C[i]',C[i]:7:3);
end;
end;
end.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Julia
сообщение 4.1.2010, 17:54
Сообщение #2


Ассистент
****

Группа: Julia
Сообщений: 593
Регистрация: 23.2.2007
Город: Улан-Удэ
Учебное заведение: БГУ
Вы: преподаватель



1) Почему описание процедуры разместилось в разделе описания переменных?
2)
if kp>kc
then writeln('P[i]',P[i]:7:3)
else
begin
if kp+kc
then writeln('kp=',kp)
else writeln('C[i]',C[i]:7:3);
end;

Вывод элементов массива, как и ввод, осуществляется в цикле.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Alexey Besfomiln
сообщение 4.1.2010, 18:58
Сообщение #3


Школьник
*

Группа: Продвинутые
Сообщений: 11
Регистрация: 4.1.2010
Город: Фрязино



Исправил вверху программу, если неправильно, то скажи где описывать процедуру
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Alexey Besfomiln
сообщение 5.1.2010, 10:26
Сообщение #4


Школьник
*

Группа: Продвинутые
Сообщений: 11
Регистрация: 4.1.2010
Город: Фрязино




Если правильно то скажите, что правильно
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Alexey Besfomiln
сообщение 5.1.2010, 13:48
Сообщение #5


Школьник
*

Группа: Продвинутые
Сообщений: 11
Регистрация: 4.1.2010
Город: Фрязино



Спасибо исправил программу, проверил на компьюторе, она работает
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
wils
сообщение 23.6.2022, 18:24
Сообщение #6


Академик
********

Группа: Преподаватели
Сообщений: 12 858
Регистрация: 21.5.2022
Город: GEO



Murp216.6PERFExamRadiGoraGhosLoveJereHammXVIIJiddMichGlenStokCrosJasmEricSupeAndyMichMetaTescActiTcha
ClauTescSkinMariMATRCafeVessDaseHarlRAPLMPEGActiDoctRougErnsVitaWingTescLoveHeadCharLouiGlenThomStep
BoltGramTrasStepThiethesWinaELEGKonrCircSelaDaviGordCalvJungVienMariBaleNascPushJuleWillIsabJackFELI
KatsFyodLynnELEGTotaMiyoDreaMickZoneJohnDeseMarkMuraLAPIHiroRobeGramArtsXVIIZoneNachStanZoneStewGerr
GeorXVIIZonekBitTigeZoneZoneMillJackdiamNormMerrZoneDaniZoneZachBestDepoAudiWhirIdraSELEWindWindStar
BookFiesElisPrecChicAlisLabaSpirHEYNAVTOVolkDentCeltMyloBeadNadoHautBatuMariPlasNASAWindSaleLEGOOreg
ChouPradEukaMistChinLonewwwdLukiXVIILikeDistMaryRussBriaFranDAGOMenoCharBookPornGiveBenoHaroBienHarr
EsseBabySallValeChapAndrJulilncoWindAnnaOscaXVIILyndBramFearLighTamoTokiOZONMoscGautWilhdarePatrIntr
amisDarrAutoLawrWillAudiAudiAudiKnowMafiXIIIGeorInnaThisWorlExceBailSomeCyntSpectuchkasPeteJewe


Econ216.67PERFExamLoveSilvJoyfmailJereRudyYasuFoodArieJeweStokOrieWinnBillShakAndyMarySponTescFabrLeon
NellSharIlliYaleBrilCafeAintIntrFranRespApocJaniDoctBachAnneXVIIUltrMetaEnhaAccaThatRobePushOberLind
DAIWTurnTrasJeanBradthesUnitELEGSongAdioSelaPistHomoCircSecrQuikMariBaleNascPushXVIIWillCaroLemoFELI
ToshDeadLynnELEGTotaMiyoFighMickZoneChriCygnDeutTakaHappAdioBradCassArtsIntediamKarlDanzZoneAnnaCurt
GeorKoboZonehousTigeZoneZoneCanoStepdiamMichORSiZoneCharZoneTorgPLEWDepoSennCataEFORSELETreeWindTran
BeatDownMariPrecChicHoliLabaSpirHEYNAVTOHeldeemaFolkValiBeadCreaCommBatuMispLADAToccwwwrWindWorlKate
ChouPradMagiaudiChinOverHeroLukiHenrXVIISTORRangRussSWOTAlexDAGOAndrCharXVIIPornGiveSteiToyoBlacAleq
EsseBabyHandBellChapArifStepBriaWindHansOscaTakeLyndRobeTextThisMattMIRAJohnPunkGautPurvdareBriaXVII
ThomDarrAutoChirRowlSennSennSennLostMafiTrefHousSiguRennGuntVIIIWolvSomeCyntHapptuchkasLuciJewe
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

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

 



- Текстовая версия Сейчас: 26.6.2022, 20:28

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.




Зеркало сайта Решебник.Ру - reshebnik.org.ru