 |
|
|
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 02 13, 04:37. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Programavimas » Padekit biski - PASCAL
|
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
|
|
|
|
 |
Padekit biski - PASCAL |
 Parašytas: 2012 11 03, 19:47 |
  |
|
|
|
Sveiki, norėjau paklausti ką blogai padariau, kad sąlygoje if meta klaidą  Dėkui.
| Kodas: |
uses crt;
var itmp4, itmp5, itmp6, itmp7, itmp8, itmp9, itmp10, itmp11, itmp12, itmp13, itmp14, itmp15, itmp16, itmp17, itmp18, itmp19, itmp20 :real;
vardas:string;
skaicius:string;
begin
writeln('Iveskite savo varda: ');
readln(vardas);
writeln;
writeln('Malonu susipazinti ', vardas);
writeln;
writeln('As skaiciuoju LED diodu reikiama varza. Diodu apskaiciavimas skirtas 20mAh diodams');
writeln;
writeln;
textcolor(14);
textbackground(5);
textbackground(5);
textcolor(14);
writeln;
writeln;
write('Iveskite turima itampa skaiciais: ' );
readln(skaicius);
if itmp4= 4 then
begin
1/0.02
writeln('Itampa yra= ',voltu);
end; |
|
|
_________________
Mokyk ir mokyk. |
|
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2012 11 03, 19:48 |
|
|
|
|
klaidą rodo čia :
| Kodas: |
| writeln('Varza yra= ',Ohm); |
|
|
Paskutinį kartą redagavo pinOut, 2012 11 03, 21:11. Redaguota 1 kartą
_________________
Mokyk ir mokyk. |
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2012 11 03, 20:32 |
|
|
|
|
| Blem tokios nesąmonės dar nesu matęs... Čia viena didelė klaida... Trūksta gabalo kodo kaip minimum... |
|
|
|
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2012 11 03, 21:09 |
|
|
|
|
Nu va, visas kodas, vėl braukia ta pacia klaida.
| Kodas: |
program LED_diodu_varzos_parinkimas;
uses crt;
var itmp4, itmp5, itmp6, itmp7, itmp8, itmp9, itmp10, itmp11, itmp12, itmp13, itmp14, itmp15, itmp16, itmp17, itmp18, itmp19, itmp20 :real;
vardas:string;
skaicius:string;
begin
writeln('Iveskite savo varda: ');
readln(vardas);
writeln;
writeln('Malonu susipazinti ', vardas);
writeln;
writeln('As skaiciuoju LED diodu reikiama varza. Diodu apskaiciavimas skirtas 20mAh diodams');
writeln;
writeln;
textcolor(14);
textbackground(5);
textbackground(5);
textcolor(14);
writeln;
writeln;
write('Iveskite turima itampa skaiciais: ' ); // itampa prasides nuo 4V
readln(skaicius);
if itmp4= 4 then
begin
1/0.02
writeln('Varza yra= ',Ohm);
end;
if itmp5= 5 then
begin
2/0.02
writeln('Varza yra= ',Ohm);
end;
if itmp6= 6 then
begin
3/0.02
writeln('Varza yra= ',Ohm);
end;
if itmp7= 7 then
begin
4/0.02
writeln('Varza yra= ',Ohm);
end;
if itmp8= 8 then
begin
5/0.02
writeln('Varza yra= ',Ohm);
end;
if itmp9= 9 then
6/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp10= 10 then
7/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp11= 11 then
8/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp12= 12 then
9/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp13= 13 then
10/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp14= 14 then
11/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp15= 15 then
12/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp16= 16 then
13/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp17= 17 then
14/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp18= 18 then
15/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp19= 19 then
16/0.02
begin
writeln('Varza yra= ',Ohm);
end;
if itmp20= 20 then
17/0.02
begin
writeln('Varza yra= ',kOhm);
end;
end. |
|
|
_________________
Mokyk ir mokyk. |
|
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2012 11 04, 01:33 |
|
|
|
|
Blem plytgalvi, kas čia???
17/0.02
Dvi grubios klaidos vien čia, neskaitant kad visa kita nesusisieja. Šitas tavo pasityčiojimas niekad neveiks, jei nesugalvosi pasiskaityti pradžioje teorijos kaip kas daroma... |
|
|
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2012 11 05, 14:46 |
|
|
|
|
| patarciau naudoti cikla varzos skaiciavimui ir isvedimui |
|
_________________
Have a nice day! |
|
|
|
|
Padekit biski - PASCAL |
| Parašytas: 2013 01 03, 00:23 |
|
|
|
|
Va čia tai jooo. Kodas tai... Žinčiau formulę ir reikiamus kaičius galėčiau lengvai parašyti reikalinga programėlę  |
|
|
|
|
|
|
 |
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 |
|
LEGO
Mänguköök,
mudelautod,
nukuvanker |
|
KCD2 Mods
Installing KCD 2 Mods,
KCD 2 Guides,
KCD 2 Cheats |
|
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 |
|
GTA 6 Wiki
GTA 6 Map,
GTA 6 Characters,
GTA 6 News |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
|
|
 |
