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 03 07, 18:29. Visos datos yra GMT + 2 valandos.
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
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.
