ако може ......
12 отговора
792 прегледа
ако може ......
ако може накой вещ да ми драсне една курсова работа по програмиране както трябва 4е да затворя устата на нашата информат4ка която е ... хаийде да не казвам ! та зада4ите са 2 и требва на турбо паскал да са написани програмите :(
1 За К у4еника са заадени :
- номер в класа
- оценките по 3 предмета А, Б и С . Да се състави програма която да определя броя на у4ениците с пове4е от една дойка.
2. През м. септември метереолог е зписал температурата на всеки кръгал 4ас в денонощието ивсеки ден . да се състави програма която:
- вувежда данните от измерванията
- намира средната месе4на температура
- намира на коя дата е била най-високата деноноща температъра
- намира най-ниската дневна температура /като дневна се разбират измерванията от 7:00 до 18:00 часа/
Предварително благодяря ! може да използвате поже4е процедури и функции белким оная патка остане доволна !
ivi2005@abv.bg
1 За К у4еника са заадени :
- номер в класа
- оценките по 3 предмета А, Б и С . Да се състави програма която да определя броя на у4ениците с пове4е от една дойка.
2. През м. септември метереолог е зписал температурата на всеки кръгал 4ас в денонощието ивсеки ден . да се състави програма която:
- вувежда данните от измерванията
- намира средната месе4на температура
- намира на коя дата е била най-високата деноноща температъра
- намира най-ниската дневна температура /като дневна се разбират измерванията от 7:00 до 18:00 часа/
Предварително благодяря ! може да използвате поже4е процедури и функции белким оная патка остане доволна !
ivi2005@abv.bg
eto ti edno re6enie na parva zada4a
program kz1 ;
type FertilnaZena = record
name : string ;
end ;
type U4enik = record
nomer : longint ;
ocenkaA, ocenkaB, ocenkaC : real ;
dojka1 : array[1..100] of FertilnaZena ;
broj_dojki : integer ;
end ;
var u4enici : array[1..100000] of U4enik ;
var i : integer ;
function ProveriDaliImaPoneEdnaDojka(var u41) : boolean ;
begin
if u41.broj_dojki >= 1
then
ProveriDaliImaPoneEdnaDojka := True ;
else
ProveriDaliImaPoneEdnaDojka := False ;
end ;
end ;
function ProveriDaliImaPoneDweDojki(var u41) : boolean ;
begin
if u41.broj_dojki >= 2
then
ProveriDaliImaPoneDweDojki := True ;
else
ProveriDaliImaPoneDweDojki := False ;
end ;
end ;
procedure EnterU4enik(var u41 : U4enik)
begin
{ towa ne e realizirano o6te ...}
end ;
procedure Otpe4atajU4enik(var u41 : U4enik)
begin
{ towa ne e realizirano o6te ...}
end ;
begin
for j:= 1 to 100000 do
begin
EnterU4enik(u4enici[j]) ;
end ;
for j:= 1 to 100000 do
begin
{ algoritama e : Ako ima pone edna Dojka
Proveriawame dali sa pone 2 i ako e taka go otpe4atwame.
}
if ProveriDaliImaPoneEdnaDojka(u4enici[ j ]) = True then
begin
if ProveriDaliImaPoneDweDojki(u4enici[ j ]) = True then
Otpe4atajU4enik(u4enici[ j ]) ;
end ;
end ;
end ;
end ;
в отговор на 8---- 8---- 8----
#5
A ako
информатичката е с походящи параметри и нея можем да я уредим :))))
Re: eto ti edno re6enie na parva zada4a
Ебати Pascal-a!!!
array[1..100000] of U4enik ;
По мое време го правеха с най-много 64К статични променливи. Остаряваме мой бавни ми Дюроне, остаряваме...
Мечтата е мисъл, мисълта е идея, всяка идея се реализира. Аз не мечтая, а реализирам идеите си.
array[1..100000] of U4enik ;
По мое време го правеха с най-много 64К статични променливи. Остаряваме мой бавни ми Дюроне, остаряваме...
Мечтата е мисъл, мисълта е идея, всяка идея се реализира. Аз не мечтая, а реализирам идеите си.
в отговор на Duncan Griffin
#11
Re: eto ti edno re6enie na parva zada4a
Между другото при писането на програмата наблегнах на изискването да има повечко функции....
.
И не можах да разбера на тези ученици защо трябва да им броим ДОЙКИте? Аз като бях ученик нямаше такива неща (дойки имам в предвид). Виж ДВОЙКИ имаше....
... но това е тема на друг разговор
.
И не можах да разбера на тези ученици защо трябва да им броим ДОЙКИте? Аз като бях ученик нямаше такива неща (дойки имам в предвид). Виж ДВОЙКИ имаше....
... но това е тема на друг разговор