 |
|
|
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 2025 05 13, 11:27. 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 |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
FS25 Mods
FS25 Harvesters,
FS25 Tractors Mods,
FS25 Maps Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
|
Football Training Kit
Football Training Equipment,
Football Skills,
Football Training |
|
|
 |
