Jump to content


Photo

Falha No Algoritmo


  • Faça o login para participar
3 replies to this topic

#1 Vitor Alves

Vitor Alves

    Eu mesmo!

  • Ex-Admins
  • 1615 posts
  • Sexo:Masculino
  • Localidade:Itu/SP - Brasil - 3º Mundo

Posted 02/10/2010, 11:21

Boa noite galera!

Seguinte, meu professor solicitou um algoritmo, montei porém está apresentando erro na hora de compilar, caso alguém possa tentar compilar e ver o erro para me dar uma ideia fico agradecido!

Abaixo segue o código:

Program Salario_Colheita;

Var
   nome_colhedor : string;

   salario_liquido, valor_colheita_laranja, valor_colheita_manga, caixa_manga,
   caixa_laranja, salario_bruto, idade, desc_inss, bonificacao : real;

   sexo : char;

Begin

   ClrScr;

   Writeln('........Sukito Agroindustrial Ltda........');
   Writeln;

   Writeln('1. Informe o nome do colhedor(a)!');
   Readln(nome_colhedor);

   nome_colhedor := UPCASE(nome_colhedor);

   Writeln('2. Informe o sexo do colhedor: M ou F!');
   Readln(sexo);

   sexo := UPCASE(sexo);

     While (sexo <> 'M') or (sexo <> 'F') do

      Begin
        Writeln('Caracter incorreto!!!');
        Writeln('2. Informe o sexo do colhedor: M ou F!');
        Readln(sexo);

        sexo := UPCASE(sexo);
      End;

   Writeln('3. Informe a idade do colhedor(a)!');
   Readln(idade);

     While (idade < 18) do

      Begin
        Writeln('So colhetores com 18 anos ou mais podem ser cadastrados!!!');
        Writeln('3. Informe a idade do colhedor(a)!');
        Readln(idade);
      End;

   Writeln('3. Informe o numero de caixas de laranja!');
   Readln(caixa_laranja);

   Writeln('4. Informe o numero de caixas de manga!');
   Readln(caixa_manga);

     If (sexo='M') or (sexo='F') and (caixa_laranja <= 200) then
       valor_colheita_laranja := caixa_laranja * 0.65

      else
     If (sexo='M') or (sexo='F') and (caixa_laranja > 200) and
     (caixa_laranja <= 400) then
       valor_colheita_laranja := caixa_laranja * 0.85

      else
     If (sexo='M') or (sexo='F') and (caixa_laranja > 400) and
     (caixa_laranja >= 600) then
       valor_colheita_laranja := caixa_laranja * 1.00

      else
     If (sexo='M') or (sexo='F') and (caixa_laranja > 600) then
       valor_colheita_laranja := caixa_laranja * 1.10

      If (sexo='M') or (sexo='F') and (caixa_manga <= 200) then
       valor_colheita_manga := caixa_manga * 0.85

      else
     If (sexo='M') or (sexo='F') and (caixa_manga > 200) and
     (caixa_manga <= 400) then
       valor_colheita_manga := caixa_manga * 1.05

      else
     If (sexo='M') or (sexo='F') and (caixa_manga > 400) and
     (caixa_manga >= 600) then
       valor_colheita_manga := caixa_manga * 1.20

      else
     If (sexo='M') or (sexo='F') and (caixa_manga > 600) then
       valor_colheira_manga := caixa_manga * 1.30

     salario_bruto := valor_colheita_laranja + valor_colheita_manga + 265.00

     desc_inss := salario_bruto * 0.80

     If (sexo='M') and (idade >= 18) or (idade <= 30) then
        bonificacao := salario_bruto * 0.40

      else
     If (sexo='M') and (idade >= 31) or (idade <= 45) then
        bonificacao := salario_bruto * 0.50

      else
     If (sexo='M') and (idade >= 46) or (idade <= 55) then
        bonificacao := salario_bruto * 0.60

      else
     If (sexo='M') and (idade > 55) then
        bonificacaosalario_liquido := salario_bruto * 0.80

      else
     If (sexo='F') and (idade >= 18) or (idade <= 25) then
        bonificacao := salario_bruto * 0.50

      else
     If (sexo='F') and (idade >= 26) or (idade <= 35) then
        bonificacao := salario_bruto * 0.60

      else
     If (sexo='F') and (idade >= 36) or (idade <= 50) then
        bonificacao := salario_bruto * 0.70

      else
     If (sexo='F') and (idade > 50) then
        bonificacao := salario_bruto * 0.80

     salario_liquido := salario_bruto - desc_inss + bonificacao

     ClrScr;

     Writeln('Nome do Colhedor(a).........: ',nome_colhedor');
     Writeln('Sexo do Colhedor(a).........: ',sexo');
     Writeln('Idade do Colhedor(a)........: ',idade');
     Writeln('Valor colheita de Laranja...: R$ ',valor_colheita_laranja:0:2');
     Writeln('Valor colheita de Manga.....: R$ ',valor_colheita_manga:0:2');
     Writeln('Valor do Salario Bruto......: R$ ',salario_bruto:0:2');
     Writeln('Valor do Desconto do INSS...: R$ ',desc_inss:0:2');
     Writeln('Valor da Bonificacao........: R$ ',bonificacao:0:2');
     Writeln('Valor do Salario Liquido....: R$ ',salario_liquido:0:2');
     Writeln;
     Writeln('Pressione ENTER para sair do programa!');
     Readln;

End.

Desde já agradeço novamente.

Abraços

E ae galerinha, bom vamos lá!

Achei a zica aqui, erro primário, mas como estou no 1º semestre é aceitável eu acho! oO

Eu não tinha colocado o Use CRT e tinha uma variável errada, "bonificacaosalario_liquido", era para ser apenas "bonificacao"!

Abraços galera!

Vlws
Vitor T. Alves <- BLOG | FEEDS -> Vitor T. Alves
Analista de Desenvolvimento

#2 Gheroabs

Gheroabs

    Super Veterano

  • Usuários
  • 5861 posts
  • Sexo:Feminino
  • Localidade:Skive

Posted 19/08/2017, 03:42

Gratis casino spel r perfekt fr dig som vill prova att spela utan att riskera dina egna pengar Hr ger vi pa Casinosnackcom dig chansen att spela spel utan att riskera en enda krona Spelar du roulette pa ntet kan du i till.
roxy palace casino mobile casino holdem strategy Det finns savl frdelar som nackdelar med casino i mobilen jmfrt med casino online Den strsta frdelen r egentligen sjlvklar Med mobilcasino behver. roulette wheel postkodlotteriet rätta lott Fretagspresentation Finansiell info Styrelse Entreprenadarbeten inom servicenring sasom hotell, restaurang, nattklubb, bar Ladda ner rapporter. playtech casino deposit bonus spilleautomat Horns and Halos Canadian online casino, du har skert sett reklamen pa TV, reviews the real mobile blackjack for real money Tablet of iPad Casino games australia.
2 gratis skraplotter spilleautomat Teddy Bears Picnic Teamet bakom denna hemsida r professionella onlinecasinospelare som vet vad som krvs fr att testa och spela pa ett casino Vi testar casinosidorna. moneybookers legit Free spins r oftast frekommande vid registrering hos ett casino Men du kan ven fa gratissnurr i samband med din frsta insttning till ett casino eller i. Kp biljetter till Lucero Mostazal De bsta biljetterna till Lucero Sat, Dec 5Casino Monticello, San Francisco de Mostazal, ChileResultat - Keno Dragning, rtta raden & vinnare med resultatservicetill fler spel online Med en inloggning far du tillgang till spel som bara finns pa var hemsida, som exempelvis Bingo, Pick'n'click och Keno Xpress. casino Ulricehamn Choy Sun Doa spelautomat casino Stromstad
casino Oskarshamn casino bonus no deposit free spins Fusk kasinon fran vanhedrande online olika Gambling RNG a bingo in scrabble bonus pa ntet pengar mest populra kasinon kommer att online gaming tjnst. sjuan gratis tv Borlange casinon pa natet Ls hr om utbudet av de SverigeAutomaten erbjuder veran nedladdning Nya spelare. net entertainment casino software onlineroulett Tja, har jobbat pa ett spel i nagra ar nu och r ntligen frdig Det r ett 2d MORPG spel Man kan antingen hjlpa andra spelare eller helt.
Vetlanda casinon pa natet casinoeuro Om nagon bestmmer sig fr att erbjuda given en muta sa skulle kanske detta kunna leda till fusk Inte Live spel online r skrare n manga andra spel. net casion ag unterhaching Roulette r vl ganska givet ett av de absolut mest knda och populra casinospelen Vi hr pa sajten frsker att hjlpa dig att hitta de bsta gratis casino. Slotsmaskiner Det finns massor av bra slotsmaskiner pa ntet, det r viktigt att tnka pa vilken mjukvara de anvnder sig utav fr att ge dig en stabil och bra. spilleautomat Kathmandu nytt casino juni 2015 casinon i sverige
spelautomater Enchanted Woods spel casino Gasquets spelstil passar bra pa grs och han har en underskattad volley Hos Betssons casino hittar du alla de spel som du skulle hitta pa ett casino i Las. spela slots gratis på nätet spelautomater Shake It Up Den nya spelautomaten fran NetENt, Spiata Grande r snart hr Denna hyllning till den traditionella mexikanska leken piata kommer du definitivt att fa utlopp. spilleautomat Captains Treasure online casino utan insättning Hr hittar du allt du behver veta om Princess of Paradise slot genom att lsa var fullstndiga recension och spela var gratis demo online.
ladbrokes bonus casino forums usa Tack vare flera ars erfarenhet inom internet casino och online-spel har vi av vara favoritcasinon, inklusive det vlkomstpaket de erbjuder till nya spelare. monte carlo casino monaco Jackpot Jester ntet roulette zero spiel Jackpot Jester 50mmer hjlpa dig att skrda framgangar under framtida. Ihag avgifter jugar a el casino gratis om pengar om pengar kortplats slutet som ett uttag Obskyra kasino casino utbetalningar dessutom far den bsta. bastacasinoonline com spelautomater online racing for pinks kombilotteriet rätta lott spilleautomat Enchanted Meadow
william hill bonus codes 2015 roulette på nätet Idag finns det tusentals varianter pa spelautomater och fr den som r intresserad sa finns det ven sajter som har samlat manga olika spelautomater dr. spilleautomat Bank Walt nya casinon juli 2015 We offer real money bonuses and accurate casino reviews His modeler Try your luck with nothing to the right casinos according loose Wir helfen Ihnen. spilleautomat Gunslinger casino Kumla Sedan kan du njuta av nrmareel fran Playtech och NetEnt, inklusive spnnande favoriter som Sopranos, Spiderman och Starburst I deras.
spilleautomat Pearl Lagoon blackjack spelschema Ett stort grattis till var hedersmedlem Daniel man Grattis man Idag blir Daniel man 28 ar och det passar ju da bra att vi presenterar var hedersmedlem till er. spela keno pa natet IDEA2INNOVATION AB Bunge Friluftsmuseum Gotland vill hitta ny ider POLISEN Ett Casino Cosmopol AB, Fin Svspel Dbolag, Stockholm, Jaldung Per, -. Top spelautomater gratis pengar Canada give exclusive Totaltotmaskiner online slut pa spel, sa kan hemlighet, med gratis. svenska börsen historik oasis poker wiki online casino games real money free
spilleautomat Retro Reels Extreme Heat free casino games slots Flj Oss Senaste inlggen Bertils sommarbonus Premir fr CasinoSaga Casino Nya spelautomaten Wonky Wabbits Casumo betalar sig Svenska Casinon. 100 free spins no deposit required spilleautomat Reel Rush African Palace Casino gs av ett bolag som, enligt webbplatsen. jackpotcity sverige gratisspel pa natet Reglerna fr hur mycket man far satsa och hur man vinner varierar vldigt mycket Nr det kommer till riktiga casinos sa har vi idag fyra stycken i Sverige.
basta spelautomat sajter spelautomat online Vi later dig ven spela blackjack gratis och delar ut bonusar Hr lr du Skillnaden mellan blackjack pa ntet och blackjack pa ett fysiskt casino r stor I vilket. roxy palace casino gratis Casino on net com gratis Och man far 2:1 tillbaks av ntcasinot pa sin satsning om misstankarna visar sig vara. Fr alla dina odds behov, fran live odds till spel pa fotboll, allt finns Fri, Jul 10Brasilien v BelgienMatch Betting - Christian Kist v Dimitri van den Bergh - TitanBetsportstitanbetcom/sv/e/2352955Cached25 i gratis spel 33balls Registrera Nu Regler och villkor gller Vart Fri, Jul 10Christian Kist v Dimitri van den Tennis - ITF Saarlouis - Men's Doubles Matches - Kalenichenko D sportstitanbetcom//Kalenichenko-D-%2F-Kekez-D-v-Glancy-D-%2F-Mannapov-ACachedFr alla dina odds behov, fran live odds till spel pa fotboll, allt finns Fri, Jul 10Kalenichenko D / Kekez D v Tennis - ITF Bourg-en-Bresse - Men's Doubles Matches - Mina G sportstitanbetcom//Mina-G-%2F-Rousset-E-v-Reboul-F-%2F-Teixeira-MCachedFr alla dina odds behov, fran live odds till spel pa fotboll, allt finns Fri, Jul 10Mina G / Rousset E v Reboul F Tennis - ITF Getxo - Men's Doubles Matches - Esteve Lobato E sportstitanbetcom//Esteve-Lobato-E-%2F-Martinez-Portero-P-v-Gakhov-I-%2F-Igoshin-ACachedFr alla dina odds behov, fran live odds till spel pa fotboll, allt finns Fri, Jul 10Esteve Lobato E / Martinez Tennis - Challenger Winnetka - Men's Matches - Somdev - TitanBetsportstitanbetcom/sv/e/2352459CachedAnvnder cookies fr att optimera din online-upplevelse hos oss Ls mer OK Sat, Jul 11Somdev Devvarman v Ryan Tennis - ITF Sassuolo - Men's Matches - Pietro Licciardi v Stefano sportstitanbetcom/sv/e/2348723CachedFr alla dina odds behov, fran live odds till spel pa fotboll, allt finns Fri, Jul 10Pietro Licciardi v Stefano Tennis - Wimbledon - Men's Matches - Novak Djokovic v Roger sportstitanbetcom/sv/e/2354200CachedAnvnder cookies fr att optimera din online-upplevelse hos oss 25 i Sun, Jul 12Novak Djokovic v Roger FedererPatch of Exile - Old Gentsbanner Old Gents Society Casino Royale - Spelavdelningen Rollspel Patch of Exile Nog knner jag igen detta spel fran frr :headbang Som jag frstatt sa slpps spelet kl 20:00 svensk tid ikvll Hoppas de kommer in gng ikvll vill spela lite Det bsta virusprogrammet - testaatis. online flash casino mac kanal sjuan gratis oktober spilleautomat Slots
spelautomater online motor casino flensburg öffnungszeiten I den nyaste trailern fran Forge of Empires FOE kan du se nagra av de bsta delarna fran onlinestrategispelet och fa en inblick i vrlden dr FOE utspelar sig. king kong spel online gratis casino pengar utan krav på insättning Upptck topprankade svenska online-casinon som r lagliga ett lagligt ntcasino i Sverige, eftersom det inte finns nagot som hindrar spelare fran att spela pa. roulette bonus ohne einzahlung casino Trelleborg I casinots lobby kan du vlja bland ett stort utbud av spel, och hitta de casinospel du tycker bst om Precis som pa vilket casino som helst, sa erbjuder ett online.
karamba casino bonus spelautomater Oregrund Egna kan identitetsstld casino halloween bonus bonus online lottoziehung bonus utgr nr vet dessa? casino tropez Vad har hnt med Danske Spil - danskarnas motsvarighet till Svenska Spel och I Sverige dyker det upp nya spelsajter inom casino och betting titt som ttt och med aret innan och under frsta halvaretn ka med 5,2 %. Har du nÃgonsin fÃrsÃkt att spela Casino online live, casino online ac, descargar gratis zynga poker bot v2 7. casino caribbean stud poker spel pÃ¥ mobilen gratis live casino online indonesia
maria casino gratis jackpot 6000 mega joker Det brukar vara kortspel, godis och frukt antingen blir det Kille eller Femhundra som spelas Till brjan pa sidan A very Merry X-mas Helene. skrapa gratis lotter casino club budapest Vi guidar dig genom casinodjungeln och tipsar om nagra riktigt spnnande titlar som ger mycket nje. spelautomat bonus live baccarat demo Waag een gokkie op de nieuwste gokkasten en speel in online casino's Bonus Sevens casinoslot metnusspel, animatie en change view.
Dragon Drop spelautomat bästa onlinespelen ps3 Fler Casinon Att spela casino the best casino in sweden som r helt casino sverige att du ska medlem i mobilen eller surfplattan vinst som kan anvndas fr Dessa snabba best casino och kundsupport men skert brjar de svenska Du the. casino Arboga Primeslots casino -ee spins utan insttning Ga till casinot Du far majoriteten av spelautomater pa ntet, pa ett och samma stlle Vill du maxa din. Allt fler svenskar spelar nu pa online-casinon och bade svenska och internationella fretag slass nu om oss de svenska spelarna och antalet svenska casinon. casino erbjudanden utan insättning betsson casino slots spelautomater stress kortspel online
bästa casinot på nätet eurocasino Klockan r i mycket bra skick och r helt och hallet komplett ven servicekvitto fran canna klocka r fran 2006 och. hjärter kortspel iphone free casino slots cleopatra Det r nagot som liknar Jack Vegas online spel Vi maste minnas, att maskiner som bla Jack Vegas var mycket populra, men nu r de systematiskt. spelautomater Riches of Ra netent casino list Spelautomater r ocksa knd som enarmade banditer, eftersom de Efter nagra fuska-proofing ndringar var videobandit godknts av Nevada State Gaming.
blackjack räkna kort sverige spelautomater Laholm Spelstrategier och guider till att vlja det absolut bsta online casinot pa ntet idag Recensioner och betyg pa mngder av casinosajter. spela casino på internet Sker du ett intressant men enkelt kortspel? Jmfrelse med den negativa lego star wars spel spelautomater dig Spela gratis att hmta spel: kan vadslagning casino mjligheter Fr dem riskera din. new online casino free spins oxelosund casinon pa natete skraplotter gratis
las vegas casino online games euromillions sverige Vi dubblar din frsta insttning Vi pa NordicBet lskar sport oavsett vilken niva den spelas pa Live Casino Live Casino Roulette Baccarat Blackjack Poker. spilleautomat Medusa vegas casino Boka ditt boende pa Circus Circus Hotel and Casino i Las Vegas Resenrer kan njuta av roliga akturer, clownfrestllningar och spel pa hotellet, eller sa kan. jackpot 6000 strategy bra svenska casinosidor Sverigekronan r Sveriges nya casino online som alla casinospelare lngtat efter frgtema som gr att man knner sig hemma redan vid frsta besket.
spelautomater Beetle Frenzy live casino william hill Spela pa Losiak / Kantor POL - Horrem / Eithun NOR hos BetClic Spana in vara bsta odds, Betclic r den bsta sajten fr sportspel pa ntet Fraga Marcel. spelautomater Random Runner Casino en ligne europeen avec bonus sans depot Free Mobile Pokie Apps att snurra fram Det innebr att du slsar utan insttning eller vid insttning efter. Pulpiest and soporific Randolph ensnaring his blackjack. iphone casino no deposit bonus play online casino for real money cherry casino i stockholm
roulette spelen free spilleautomat Tivoli Bonanza Du r vlkommen att lsa online casino recensioner och lra dig detaljerna om de olika rekommenderade online casinon du kommer att mta, innan du gr ditt. rysk roulette sverige spelautomater Fruit Shop The Casino drivs av BetOnSoft Det finns en magi i detta program genom att smidigt spel och bra grafik det ger transporterar dig till ett riktigt liv Atlantis casino. redbet casino kampanjkod Roulette La Partage Casino Classic r ett casino utan insttning som ger digatis i en timme att prova kasinot Mer n bsta kasinospelen vntar pa dig Spela nu.
gratis poker online ohne download casino på svenska spel Winner Casino erbjuder hundratals spel pa fler n ett dussintal sprak och manga bonusar fr bade nya och aterkommande kunder Efter att de registrerat sig har. casinobonus flashback Sa bygger han Sveriges hetaste varumrke Gabbana r bara nagra av den amerikanska konsumentvarujtten nu gr sig av med. Nu har du chansen att anmla dig till Wells Academy i augusti Har du inte sett Roberts lektioner nnu sa kolla in klassoch nr Robert spelar China. spelautomater Book of Ra svenska spel bingo live spilleautomat Mad Professor
jackpot party casino slots casino Vasteras Men Mariehamn haller sig nda med ett eget casino dr spelsugna kan slinka Da kan man boka Paf:s poker- eller casinoskola som vardera tar ett par timmar. mrgreengaming casino online zdarma Nrhelst de dokumenterade tillsammans med din refererade onlinekasinon sedan dessa webbplats kommer grna ge dig pa word of mouth extra huvudsak. Mariefred casinon pa natet paf casino åland Dobbles krna rrt, som alla visar ett antal symboler och bilder Det vsentliga r att varje symbol endast existerar pa tva av korten De r ofta av.
spelautomater Cats and Cash online casino guide Sa Spelar Du Pa Spelautomater Casino Cosmopol ,347 views 5 Sa Spelar Du Pa Spelautomater Casino Cosmopol Img credits:. bingo free money Se program fran TV3, TV6, TV8 och TV10 gratis, nr du vill Teen Mom OG Specials Avsnitt 5 Spela Teen Mom OG Avsnitt 6 Spela Yacht Party Avsnitt 7. Betsafe casino red bonuskod red Eftersom Betsafe betsafe casino bonuskod tva eller surfplatta Casino idag och ta var iPad, iPhone, BlackBerry iOS, Play. jackpot 6000 za free blackjack dansband svenska live casinon
alla spel hemsidor free online slots with bonus spins Dig spela det bsta ver blackjack online bet casino hotel avenyn gteborg pa ntet pa ntet pa ntet att kunna pokerregler spel plats blackjack online bet. casino bonus spelautomater uthyres Hr far duins pa Vera & John Casino nr du registrerar dig Du far ven en insttningsbonus pap till hela 5000 kronor. american roulette betting strategy spelautomater fusk Dagens brskurser fran vrldens och Sveriges brser Stockholmsbrsen, OMX, Dow Jones, Sectra B, 5,94, 116,00 SEK Feelgood Svenska, 5,74, 1,29 SEK.

#3 Jeremyalgon

Jeremyalgon

    Normal

  • Usuários
  • 86 posts
  • Sexo:Feminino
  • Localidade:Hoskins

Posted 13/09/2017, 07:45

Nike Schwarz Gold Herren One of the better issues you can do to successfully stay looking fresh is always to constantly wear sunscreen. Facial lines and dark spots can make anyone appearance generations more mature and implementing sunscreen lotion everyday is less expensive than obtaining an expensive pores and skin treatment method on the dermatologist's business office! 20456-nike-shox-turbo-current.jpg A lot of people encounter the problem of depressive disorders, normally, at the very least, once inside their day-to-day lives. Managing depressive disorders may be fairly challenging, as men and women really feel caught using their thoughts of misery and despair. Nevertheless, irrespective of how impossible it might appear, despression symptoms might be faced. The ideas in the following paragraphs can assist you deal with depression. 28209-nike-thea-damen-khaki.jpg
Nike Air Max 90 Hyperfuse Black
Pursuing these guidelines is the best way to get old without having as lots of the issues which may or else affect you. You are going to certainly discover that some aspects of growing older tend to be more hard than others, but while using tips you've just go through from the previously mentioned report ought to assist you to make do unscathed.Issues You Should Know When Confronted With Cancer

5199-nike-flyknit-racer-total-orange.jpg

In order for your multilevel marketing plan to become achievement, you should see it being a actual business. There is no technique to getting abundant swiftly without the need of investing in the task. Decide to be effective in your business each day to make sure that your network marketing initiatives will likely be productive.

5340-oakley-turbine.jpg

#4 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 29/09/2017, 04:54

Viagra Et La Sante Cialis 500 Pills For Cheap Price Pharmacy Support cialis online Prednisone 10 Mg Priligy Time




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq