 |
|
|
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, 08:15. 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, 18: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, 18:56 |
|
|
|
|
| Klaida rodo paskutineje eiluteje |
|
|
|
|
|
|
free pascal |
| Parašytas: 2012 09 27, 20:00 |
|
|
|
|
| begin end skaicius turi buti porinis. |
|
|
|
|
|
|
free pascal |
| Parašytas: 2012 09 27, 21: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 |
|
|
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 |
|
|
 |
