 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2024 04 20, 05:03. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Programavimas » Padėkit su programa!
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
|
|
 |
Padėkit su programa! |
 Parašytas: 2012 10 05, 00:39 |
  |
|
|
|
Sveiki. Sugalvojau mokyklos projektinei dienai sukurti koledžų vertinimo sistemą. Na pvz: surinkus 69 taškus, gauname D su +. Tai va , parašiau tokia programėle su Pascal. Man labai knieti ją perkelti į padorų interface, nes dabar, kai atsidaro juodame lange kažkaip nesižiūri. Kaip maždaug patartumėt kaip šią programą naudoti interface? Aš galvoju, kad reikia įmesti kelis TcheckBox, kad būtų galima pažymėti įvertinimus, ar kažką tokio. Labai ačiū, iš anksto.
| Kodas: |
program tasku_programa;
var
taskai:integer;
begin
write('iveskite egzamino taskus: ');
readln(taskai);
writeln;
if taskai <= 59 then
begin
writeln('Gavote F);
end
else if (taskai < 63) and (taskai >= 60) then
begin
writeln('Gavote D-);
end
else if (taskai < 67) and (taskai >= 63) then
begin
writeln('Gavote D');
end
else if (taskai < 70) and (taskai >= 67) then
begin
writeln('Gavote D+');
end
else if (taskai < 77) and (taskai >= 73) then
begin
writeln('Gavote C');
end
else if (taskai < 80) and (taskai >= 77) then
begin
writeln('Gavote C+');
end
else if (taskai < 83) and (taskai >= 80) then
begin
writeln('Gavote B-');
end
else if (taskai < 90) and (taskai >= 87) then
begin
writeln('Gavote B+');
end
else if (taskai < 93) and (taskai >= 93) then
begin
writeln('Gavote A-');
end
else if (taskai < 97) and (taskai >= 93) then
begin
writeln('Gavote A');
end
else
begin
writeln('Gavote A+');
end;
writeln;
writeln;
writeln('Paspauskite <ENTER>, kad programa uzsidarytu');
readln;
end.
|
|
|
_________________
Kai savanorių nėra, juos paskiria. |
|
|
|
|
|
Padėkit su programa! |
| Parašytas: 2012 10 05, 01:27 |
|
|
|
|
| o kam sitai nesamonei reikia kazkokio interfeiso, jug ja niekas vistiek nesinaudos |
|
|
|
|
|
|
Padėkit su programa! |
| Parašytas: 2012 10 05, 10:45 |
|
|
|
|
Tai yra du variantai:
delphi - panaši į pascal, bet reikia pritaikyt kiekvienai OS atskirai, dėl to nepatogi.
html/browserinė(nežinau kaip tiksliai pavadinti) - veiktų ant kiekvieno browserio, ant kiekvieno kompo kuris jį turi... Esmė tame, kad programos core jau turėtum ir nereiktų daug vargti dėl susiejimo su OS.
Šiaip programa kvailai parašyta, net labai kvailai. Shitload of IF ir naudos iš to nėr. Tam geriausia panaudoti CASE funkciją. Kodą sutrumpina dvigubai, supaprastina skaitymą ir mažiau ima resursų įvykdyti(nelabai aktualu ant šiuolaikinių kompų kaip tokiai mažai programai)
Išvada - jei mokymosi tikslams - gal ir verta pasimokėt delphi, html, css ir pan, bet taip taip programa bevertė... |
|
|
|
|
|
|
|
Padėkit su programa! |
| Parašytas: 2012 10 05, 11:23 |
|
|
|
|
visu pirma tavo programa su klaida: uz 70..72,83..85 taskus gausi [b]A+[/[b], o A- negausi niekada 
| Kodas: |
type
TVertinimai = packed record
balai: integer;
vertinimas: string[2];
end;
const
vertinimai: array[1..13]of TVertinimai (
(0, 'F'),
(60, 'D-'),
(63, 'D'),
(67, 'D+'),
(70, 'C-'), // ???
(73, 'C'),
(77, 'C+'),
(80, 'B-'),
(83, 'B'), // ???
(87, 'B+'),
(90, 'A-'),
(93, 'A'),
(97, 'A+'));
function Vertinimas(balai: integer): string;
var i:integer;
begin
result := 'klaida';
for i := 13 downto 1 do
if balai >= vertinimai[i].balai then
begin
result := vertinimai[i].vertinimas;
break;
end;
end;
|
del sintakses - netikrinau, bet jei kas - pasitaisysi. |
|
|
|
|
|
|
|
Padėkit su programa! |
| Parašytas: 2012 10 05, 15:11 |
|
|
|
|
| AlgisL rašo: |
visu pirma tavo programa su klaida: uz 70..72,83..85 taskus gausi [b]A+[/[b], o A- negausi niekada
| Kodas: |
type
TVertinimai = packed record
balai: integer;
vertinimas: string[2];
end;
const
vertinimai: array[1..13]of TVertinimai (
(0, 'F'),
(60, 'D-'),
(63, 'D'),
(67, 'D+'),
(70, 'C-'), // ???
(73, 'C'),
(77, 'C+'),
(80, 'B-'),
(83, 'B'), // ???
(87, 'B+'),
(90, 'A-'),
(93, 'A'),
(97, 'A+'));
function Vertinimas(balai: integer): string;
var i:integer;
begin
result := 'klaida';
for i := 13 downto 1 do
if balai >= vertinimai[i].balai then
begin
result := vertinimai[i].vertinimas;
break;
end;
end;
|
del sintakses - netikrinau, bet jei kas - pasitaisysi. |
O gal galėtum pasakyt ką reiškia ši eilutė? :
|
|
_________________
Kai savanorių nėra, juos paskiria. |
|
|
|
|
|
Padėkit su programa! |
| Parašytas: 2012 10 05, 15:59 |
|
|
|
|
DELPHI, C, C++ // ??? - komentarai
gryname PASCAL butu kazkas panasaus { ???? } arba (* ???? *)
o siuo konkreciu atveju reiskia tai, kad duota eilute paimta is palubinsko (logine dedukcija) |
|
|
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS 22 Tractors
Farming Simulator 19 Mods,
FS 22 Maps,
FS22 Mods |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS22 Trucks |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
Paskola internetu
Vartojimo paskola,
paskola automobiliui,
paskola būsto remontui |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS22 Mods
FS22 Harvesters,
FS22 Tractors Mods,
FS22 Maps Mods |
|
FS22 Mods
FS22 Maps,
FS22 Harvesters,
FS22 Tractors |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
Sims 4 Mods
Sims 4 CC Clothes,
Sims 4 Hair CC,
Sims 4 Skill Cheat |
|
Optic sight
Binoculars for hunting elk,
Best compact binoculars,
Riflescope hunting |
|
|
 |
