|
|
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 03 29, 17:02. Visos datos yra GMT + 2 valandos.
|
|
|
|
Forumas » Programavimas » free 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
|
|
|
|
|
|
free pascal |
Parašytas: 2012 09 27, 17:52 |
|
|
|
Sveiki,
Gal kas mato kur klaida arba ar isvis taip galima daryti
Kodas: |
program Rezistoriu_varzos_skaiciavimas;
uses crt;
var sp1, sp2, sp3, sp4, sp5, ats_pak, ats_sk, gal :real;
begin
textbackground(2); //spalva
textcolor(14);
WriteLn('Labas, cia rezistoriaus varzos skaiciuoklis (skaiciuokle skirta 5 ziedu rezistoriams');
textbackground(4); //spalva
textcolor(15);
//
WriteLn('Iveskite ziedu spalvas skaiciumi: juoda-0, ruda-1, raudona-2, oranzine-3,');
WriteLn('geltona-4, zalia-5, melina-6, violetine-7, pilka-8, balta-9, auksine-10,');
WriteLn('sidabrine-11.');
//
textbackground(2); //spalva
textcolor(14);
WriteLn('1 ziedo spalva (skaicius)');
Readln(sp1);
//
textbackground(4); //spalva
textcolor(15);
WriteLn('2 ziedo spalva (skaicius)');
Readln(sp2);
//
textbackground(2); //spalva
textcolor(14);
WriteLn('3 ziedo spalva (skaicius)');
Readln(sp3);
//
textbackground(4); //spalva
textcolor(15);
WriteLn('4 ziedo spalva (skaicius)');
Readln(sp4);
//
textbackground(2); //spalva
textcolor(14);
WriteLn('5 ziedo spalva (skaicius)');
Readln(sp5);
//
textbackground(2); //spalva
textcolor(14);
//baigiasi ivestis
ats_sk := (sp1*100)+(sp2*10)+(sp3);
//
//
if sp4 = 0 then
begin
gal := ats_sk * 1;
writeln('Varza yra=',gal,'omu');
//
if sp4 = 1 then
begin
gal := ats_sk * 10;
writeln('Varza yra=',gal,'omu');
//
if sp4 = 2 then
begin
gal := ats_sk * 100;
writeln('Varza yra=',gal,'omu');
//
if sp4 = 3 then
begin
gal := ats_sk * 1;
writeln('Varza yra=',gal,'k omu');
//
if sp4 = 4 then
begin
gal := ats_sk * 10;
writeln('Varza yra=',gal,'k omu');
//
if sp4 = 5 then
begin
gal := ats_sk * 100;
writeln('Varza yra=',gal,'k omu');
//
if sp4 = 6 then
begin
gal := ats_sk * 1;
writeln('Varza yra=',gal,'M omu');
//
if sp4 = 7 then
begin
gal := ats_sk * 10;
writeln('Varza yra=',gal,'M omu');
//
if sp4 = 10 then
begin
gal := ats_sk * (1/10);
writeln('Varza yra=',gal,'omu');
//
if sp4 = 11 then
begin
gal := ats_sk * (1/100);
writeln('Varza yra=',gal,'omu');
//
//
if sp5 = 1 then
begin
ats_pak := 1;
writeln('Paklaida=',ats_pak,'%');
end
//
else
if sp5 = 2 then
begin
ats_pak := 2;
writeln('Paklaida=',ats_pak,'%');
end
//
else
if sp5 = 5 then
begin
ats_pak := 5/10;
writeln('Paklaida=',ats_pak,'%');
end
//
else
if sp5 = 6 then
begin
ats_pak := 1/4;
writeln('Paklaida=',ats_pak,'%');
//
if sp5 = 7 then
begin
ats_pak := 1/10;
writeln('Paklaida=',ats_pak,'%');
//
if sp5 = 8 then
begin
ats_pak := 5/100;
writeln('Paklaida=',ats_pak,'%');
//
if sp5 = 10 then
begin
ats_pak := 5;
writeln('Paklaida=',ats_pak,'%');
//
if sp5 = 11 then
begin
ats_pak := 10;
writeln('Paklaida=',ats_pak,'%');
end
end. |
|
|
|
|
|
|
|
free pascal |
Parašytas: 2012 09 27, 17:56 |
|
|
|
Klaida rodo paskutineje eiluteje |
|
|
|
|
|
free pascal |
Parašytas: 2012 09 27, 19:00 |
|
|
|
begin end skaicius turi buti porinis. |
|
|
|
|
|
free pascal |
Parašytas: 2012 09 27, 20:41 |
|
|
|
Tiesiog po kiekvienu tokiu parasymu:
begin
gal := ats_sk * 1;
writeln('Varza yra=',gal,'omu');
parasyk end |
|
|
|
|
|
|
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 |
|
|
|