|
set talk off |
#include<iostream.h> #include<conio.h> int a[30],n; void citire() { int i=0,x,sw,j; while(i<n) { cout<<"x="; cin>>x; sw=0; for(j=0;j<i;j++) if(a[j]==x) { sw=1; break; } if(sw==0) { a[i]=x; i++; } } } void afisare() { int i; for (i=0; i<n; i++) cout<<a[i]<<' '; cout<<endl; } void main() { clrscr(); cout<<"Dati nr de elemente: "; cin>>n; citire(); afisare(); getch(); } |
| set talk off use hoteluri in 1 use clienti in 2 defi menu meniu defi pad opt1 of meniu prompt "Hoteluri" defi pad opt2 of meniu prompt "Rezervare" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deactivate menu meniu activate menu meniu close all procedure proc1 clear hide menu meniu sele 1 @ 2,3 say "Dati statiunea " get st defa space(20) @ 3,3 say " Dati categoria " get cat defa space(2) read brow for statiune=st and categorie=cat show menu meniu return procedure proc2 clear hide menu meniu @ 3,4 say "Holelul " get ho defa space(20) read sele 1 locate for (hotel=ho) if found() sele 2 append blank replace cod_hotel with a.cod_hotel @ 5,5 say "Nume " get nume @ 6,5 say "Adresa " get adresa @ 7,6 say "Serie buletin " get serie_bul @ 8,6 say "Tip camera" get tip_camera @ 9,6 say "Nr zile" get nr_zile @ 10,6 say "Pensiune(y/n) " get pensiune read if pensiune= .T. if tip_camera='1' ? a.pret_c_1,a.pret_pens,nr_zile cost=(a.pret_pens+a.pret_c_1)*nr_zile ? "Costul total este " ,cost else ? a.pret_c_2,a.pret_pens,nr_zile cost=(a.pret_pens+a.pret_c_2)*nr_zile ? " Costul total este ",cost endif else if tip_camera='1' ? a.pret_c_1, nr_zile cost=a.pret_c_1*nr_zile ?"Costul total este ",cost else ? a.pret_c_2, nr_zile cost=a.pret_c_2*nr_zile ? "Costul total este ',cost endif endif endif sele 2 brow show menu meniu return |
#include<iostream.h> #include<conio.h> int a[20],n; void citire() { int i; cout<<"Dati nr de elemente "; cin>>n; for(i=0; i<n; i++) { cout<<"a["<<i<<"]="; cin>>a[i]; cout<<endl; } } void afisare() { int i; for(i=0; i<n; i++) cout<<a[i]; cout<<endl; } void main() { clrscr(); int i,aux,pmin,pmax; citire(); afisare(); pmin=pmax=0; for(i=1; i<n; i++) { if(a[i]<a[pmin]) pmin=i; if(a[i]>a[pmax]) pmax=i; } aux=a[pmin]; a[pmin]=a[pmax]; a[pmax]=aux; afisare(); getch(); } |
| set talk off use locatari in 1 use apart in 2 defi menu meniu defi pad opt1 of meniu prompt "Vine" DEFINE PAD opt2 OF meniu PROMPT "Pleaca" defi pad opt3 of meniu prompt "Cheltuieli" defi pad opt4 of meniu prompt "Iesire" on sele pad opt1 of meniu do vine ON SELECTION PAD opt2 OF meniu do pleaca on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu deactivate menu meniu activate menu meniu close all procedure vine clear hide menu meniu sele 1 append blank @ 3,3 say "Numele " get nume_pren @ 4,3 say "Varsta " get varsta @ 5,3 say "Nr apartament " get nr defa 0 read replace nr_apart with nr sele 2 locate for nr_apart=nr if found() replace nr_pers with nr_pers+1 else ?" Nu exista apartamentul" endif sele 1 brow show menu meniu return procedure pleaca clear hide menu meniu sele 1 @ 3,2 say "Numele " get num defa space(20) @ 4,2 say "Nr apartament " get nr defa 0 read locate for nume_pren=num if found() delete pack else ? "Nu exista persoana" endif sele 2 locate for nr_apart=nr if found() replace nr_pers with nr_pers-1 else ? "Nu exista apatamentul" endif sele 1 brow show menu meniu return procedure proc3 clear hide menu meniu @ 2,3 say "Factura de apa calde " get ac defa 0 @ 3,3 say "Factura de apa rece " get ar defa 0 @ 4,3 say "Factura pt incalzire " get in defa 0 read sele 2 ? "Nr apartament apa calda apa rece caldura total" scan sum nr_pers to nr sum suprafata to supr endscan a=ac/nr b=ar/nr c=in/supr scan ? nr_apart,a*nr_pers,b*nr_pers,c*suprafata,a*nr_pers+b*nr_pers+c*suprafata, endscan show menu meniu return |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,k; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } cout<<"Dati linia pe care vreti s-o eliminati "; cin>>k; } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,j; citire(); afisare(); for(i=k;i<=n-1;i++) for(j=1;j<=m;j++) a[i][j]=a[i+1][j]; n--; cout<<"Noua matrice "<<endl; afisare(); getch(); } |
| set talk off set century on clear use carti in 1 use cititori in 2 defi menu me defi pad opt1 of me prompt "Imprumut" defi pad opt2 of me prompt "Cititori restanti" defi pad opt3 of me prompt "Carte nou" defi pad opt4 of me prompt "Exit" on sele pad opt1 of me do proc1 on sele pad opt2 of me do proc2 on sele pad opt3 of me do proc3 on sele pad opt4 of me deactivate menu meniu activate menu me close all procedure proc1 hide menu me clear @ 2,2 say "Dati numele autorului " get aut defa space(15) @ 3,2 say "Dati numele cartii pe care vreti s-o imprumutati" get titlul defa space(20) read sele 1 locate for titlu=titlul and autor=aut if found() if imprumutat=.T. ? "Cartea este deja imprumutata" else replace imprumutat with .T. sele 2 append blank @ 5,4 say "Dati numele cititorului" get nume_pren @ 6,4 say "Dati adresa cititorului" get adresa read replace cota with a.cota, data with date() brow endif endif sele 1 brow show menu me clear return procedure proc2 SELECT 2 BROWSE FOR DATE()-data>21 FIELDS nume_pren return procedure proc3 hide menu me clear sele 1 append blank replace cota with reccount(), imprumutat with .F. @ 2,3 say "Dati autorul cartii" get autor @ 3,3 say "Dati titlul cartii" get titlu @ 4,3 say "Dati editura cartii" get editura read brow show menu me clear return |
#include <iostream.h> #include <conio.h> int n,s=0; void main() { clrscr(); int k=0; float ma=0; cout<<"Dati numarul"; cin>>n; do { s+=n%10; n=n/10; k++; } while(n); ma=s/k; cout<<ma; getch(); } |
| set talk off use clasament.dbf clear @ 3,3 say "Dati numele primei echipe" get num1 defa space(20) @ 4,3 say "Dati nr de goluri date de prima echipa" get nr1 defa 0 @ 5,3 say "Dati numele celei de a doua echipe" get num2 defa space(20) @ 6,3 say "Dati nr de goluri date de a doua echipa" get nr2 defa 0 READ IF num1#num2 locate for nume_echip=num1 if found() repl nr_jocuri with nr_jocuri+1, goluri_d with goluri_d+nr1, goluri_p with goluri_p+nr2 if nr1>nr2 repl punctaj with punctaj+3 else if nr1=nr2 repl punctaj with punctaj+1 endif endif endif locate for nume_echip=num2 if found() repl nr_jocuri with nr_jocuri+1, goluri_d with goluri_d+nr2, goluri_p with goluri_p+nr1 if nr2>nr1 repl punctaj with punctaj+3 else if nr1=nr2 repl punctaj with punctaj+1 endif endif endif ENDIF ELSE ?"nu poate juca cuaeasi echipa" index on str(punctaj,2) tag pp descending SET ORDER to PP brow |
#include<iostream.h> #include<conio.h> int a[10],n,l; void zeceto2( int n, int s[], int &d) { int i=0; while(n) { s[i++]=n%2; n=n/2; d=i; } } void afisare(int s[], int l) { int i; for(i=l-1; i>=0; i--) cout<<s[i]; } void main() { clrscr(); cout<<"Dati nr: "; cin>>n; zeceto2(n,a,l); afisare(a,l); getch(); } |
| set talk off use produse in 1 use clienti in 2 use nou in 3 defi menu meniu defi pad opt1 of meniu prompt "Cantitatea livrata" defi pad opt2 of meniu prompt "Nou fisier" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 sele 2 scan for codp=a.codp replace cant_liv with cant_sol replace a.cant with a.cant-cant_sol sele 2 endscan sele 2 brow sele 1 brow clear return procedure proc2 clear sele 1 copy stru to nou.dbf scan sele 2 locate for codp=a.codp if not found() sele 3 append blank replace codp with a.codp,denp with a.denp, cant with a.cant, pret with a.pret endif endscan sele 3 brow return |
#include<iostream.h> #include<conio.h> int a[20],b[20],c[50],n,m; void citire(int a[], int &n) { int i; cout<<"Dati nr de elemente: "; cin>>n; for(i=0; i<n; i++) { cout<<"a["<<i<<"]="; cin>>a[i]; cout<<endl; } } void afisare(int a[],int n) { int i; for(i=0; i<n; i++) cout<<a[i]<<" "; cout<<endl; } void sortare(int a[], int n) { int i,aux,sw; do { sw=0; for(i=0; i<n-1; i++) if(a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; sw=1; } } while(sw); } void interclasare() { int i,j,k; i=0; j=0; k=0; while ((i<n)&&(j<m)) { if(a[i]<b[j]) c[k++]=a[i++]; else c[k++]=b[j++]; } while (i<n) c[k++]=a[i++]; while (j<m) c[k++]=b[j++]; } void main() { clrscr(); citire(a,n); sortare(a,n); afisare(a,n); citire(b,m); sortare(b,m); afisare(b,m); interclasare(); afisare(c,m+n); getch(); } |
| set talk off set date to dmy use reviste in 1 use abonament in 2 defi menu meniu defi pad opt1 of meniu prompt "Cheltuiala" defi pad opt2 of meniu prompt "Lista rev" defi pad opt3 of meniu prompt "Nou abonament" defi pad opt4 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 2,2 say "Dati numele abonatului" get num defa space(20) read sele 2 locate for num_abonat=num if found() sele 1 locate for cod_rev=b.cod_rev if found() ? nr,pret,b.nr_luni ? "Costul este", pret*nr*b.nr_luni endif else ? num ," nu este abonat" endif show menu meniu return procedure proc2 hide menu meniu clear sele 1 index on str(nr,1)+nume_rev tag nn SET ORDER TO nn brow show menu meniu return procedure proc3 hide menu meniu @ 2,3 say "Dati numele rev " get rev defa space(15) read sele 1 locate for nume_rev=rev if found() sele 2 append blank repl cod_rev with a.cod_rev, data with date() @ 3,4 say "Dati numele abonatului" get num_abonat @ 4,4 say "Dati adresa abonatului" get adresa @ 5,4 say "Dati nr de luni" get nr_luni read endif sele 2 brow show menu meniu return |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,c1,c2; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,aux; citire(); afisare(); cout<<"Dati cele doua coloane "; cin>>c1>>c2; for(i=1;i<=n+1;i++) { aux=a[i][c2]; a[i][c2]=a[i][c1]; a[i][c1]=aux; } cout<<"Noua matrice"<<endl; afisare(); getch(); } |
| set talk off set date to dmy use vanatori in 1 use vanat in 2 defi menu meniu defi pad opt1 of meniu prompt "Afisare tabel" defi pad opt2 of meniu prompt "Vanatorii" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear sele 2 @ 2,3 say "Dati data " get d defa {} read ? " Vanat Vanatoare Arma" scan if between(d,data_1,data_2) ? denumire," Nu ",cod_arma else ? denumire," Da ",cod_arma endif endscan show menu meniu return procedure proc2 hide menu meniu clear sele 1 @ 3,2 say "Dati arma" get arm defa space(4) read brow for (arma1=arm)or(arma2=arm) show menu meniu return |
#include<iostream.h> #include<conio.h> #include<math.h> void main() { clrscr(); int n,nr,k=0,a; cout<<"dati numarul"; cin>>n; nr=n; while (n) { n=n/10; k++; } for (int i=1;i<k;i++) { a=nr%10; nr=nr/10; nr=nr+a*pow(10,k-1); cout<<nr<<endl; } getch(); } |
| set talk off set date to dmy use livrari in 1 use articole in 2 defi menu meniu defi pad opt1 of meniu prompt "Livrare noua" defi pad opt2 of meniu prompt "Calc balanta" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu clear close all procedure proc1 clear sele 1 @2,3 say "Dati codul" get c default 0 READ SELECT 2 LOCATE FOR cod_art=c IF NOT FOUND() ?'cod eronat' ELSE SELECT 1 APPEND BLANK @ 3,4 say "Dati denumirea" get den_art @ 4,4 say "Dati cantitatea" get cant @ 5,4 say "Dati pretul " get pret read repl cod WITH c,data with date() @7,1 say 'tara sau export(t/l)'get t default ' ' READ IF t$'Tt' replace tip WITH .T. ELSE replace tip WITH .F. ENDIF endif browse return procedure proc2 clear @10,1 say 'domeniu' get d defa space(15) READ SELECT 2 SCAN FOR domeniu=d SELECT 1 sum pret*cant FOR(cod=b.cod_art)and(tip=.t.)to vt sum pret*cant for(cod=b.cod_art)and(tip=.f.)to ve LOCATE FOR cod=b.cod_art IF FOUND() ?den_art,' ',vt,' ',ve,' ',vt-ve endif sele 2 endscan BROWSe return |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,l1,l2; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,aux; citire(); afisare(); cout<<"Dati cele doua linii "; cin>>l1>>l2; for(i=1;i<=n+1;i++) { aux=a[l2][i]; a[l2][i]=a[l1][i]; a[l1][i]=aux; } cout<<"Noua matrice"<<endl; afisare(); getch(); } |
| set talk off use prof in 1 use absolv in 2 defi menu meniu defi pad opt1 of meniu prompt "Profesori" defi pad opt2 of meniu prompt "Clase" defi pad opt3 of meniu prompt "Cautare absolvent" defi pad opt4 of meniu prompt "Cautare profesor" defi pad opt5 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu do proc4 on sele pad opt5 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear sele 1 index on specialita+nume tag sn SET order to sn brow show menu meniu return procedure proc2 hide menu meniu clear sele 2 @ 3,4 say "Introduceti promotia " get pro defa 0 @ 4,4 say "Introduceti clasa " get cl defa space(1) read brow for (promotia=pro)and(clasa=cl) show menu meniu return procedure proc3 hide menu meniu clear sele 2 @ 2,4 say "Introduceti numele " get num defa space(20) @ 3,4 say "Introduceti promotia" get pro defa 0 read brow for (nume=num)and(promotia=pro) show menu meniu return procedure proc4 hide menu meniu clear sele 1 @2,3 say "Dati numele prof " get num defa space(20) @3,3 say "Dati specialitatea " get spec defa space(10) read brow for (nume=num)and(specialita=spec) show menu meniu return |
#include<iostream.h> #include<conio.h> void main() { clrscr(); int p,n,nr,i,k=0; cout<<"Dati nr prim p "; cin>>p; cout<<"n="; cin>>n; for(i=1; i<=n; i++) { cin>>nr; while(nr%p==0) { k++; nr/=p; } } cout<<"k maxim "<<k; getch(); } |
| set talk off use candidati in 1 defi menu meniu defi pad opt1 of meniu prompt "Concurentii" defi pad opt2 of meniu prompt "Clasament" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 clear sele 1 index on str(clasa,2)+numele tag cn SET ORDER TO cn scan ? numele,judetul,scoala, clasa endscan return procedure proc2 clear sele 1 scan replace total with (punctaj1+punctaj2)/2 endscan index on str(clasa,2)+str(total,3) descending tag ct SET ORDER TO ct brow show menu meniu return |
#include <iostream.h> #include <conio.h> void main() { clrscr(); int n,a; long s=0; cout<<"cate cifre are nr? "; cin>>n; for (int i=1;i<=n;i++) { cin>>a; s=s*10 +a; } cout<<s; getch(); } |
| set talk off USE farmacie DEFINE MENU meniu DEFINE PAD aprov OF meniu PROMPT 'aprovizionare' DEFINE PAD vanzare OF meniu PROMPT 'vanzare' DEFINE PAD liste OF meniu PROMPT 'listare' DEFINE PAD exit OF meniu PROMPT 'exit' ON SELECTION PAD aprov OF meniu do aprov ON SELECTION PAD vanzare OF meniu do vanz ON SELECTION PAD liste OF meniu do liste ON SELECTION PAD exit OF meniu deactivate menu meniu ACTIVATE MENU meniu use PROCEDURE aprov den=SPACE(30) c=0 @2,10 say 'nume medicament' get den @3,10 say 'cantitate' get c READ LOCATE FOR ALLTRIM(UPPER(nume_med))=ALLTRIM(UPPER(den)) IF FOUND() replace cantitate WITH cantitate+c ELSE APPEND BLANK replace nume_med WITH den replace cantitate WITH c @4,10 say 'unitatea de masura' get cod @5,10 say 'pret' get pret read ENDIF CLEAR RETURN PROCEDURE vanz den=SPACE(30) c=0 @2,10 say 'nume medicament' get den READ LOCATE FOR ALLTRIM(UPPER(nume_med))=ALLTRIM(UPPER(den)) IF FOUND() @ 3,10 SAY 'Ce cantitate doriti?' get c READ if(c<=cantitate) ?'Aveti de platit ', pret*c replace cantitate WITH cantitate-c ELSE ?'Ne pare rau!' ENDIF ENDIF WAIT CLEAR RETURN PROCEDURE liste BROWSE RETURN CLOSE DATABASES |
#include<iostream.h> #include<conio.h> #include<stdlib.h> void main() { clrscr(); int x[20],aux[20],i,j,y,n; cout<<"n="; cin>>n; randomize(); for(i=0; i<n; i++) { x[i]=random(10); aux[i]=i; } for(i=0; i<n; i++) cout<<x[i]<<' '; cout<<endl; for(i=0; i<n-1; i++) for(j=i+1; j<n; j++) if(x[aux[i]]>x[aux[j]]) { y=aux[i]; aux[i]=aux[j]; aux[j]=y; } for(i=0; i<n; i++) cout<<x[aux[i]]<<' '; cout<<endl; for(i=0; i<=n; i++) cout<<x[i]<<' '; cout<<endl; getch(); } |
| set talk off set date to dmy use someri in 1 use locuri in 2 defi menu meniu defi pad opt1 of meniu prompt "Adaugare" defi pad opt2 of meniu prompt "Stergere someri" defi pad opt3 of meniu prompt "Stergere" defi pad opt4 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu deactivate menu meniu activate menu meniu close all procedure proc1 hide menu meniu clear sele 1 @ 3,4 say "Dati numele " get num defa space(20) @ 4,4 say "Dati specialitatea " get spec defa space(10) read locate for trim(num)$nume if found() if trim(spec)$special ? "Inregistrare existenta" else d=data_n s=sex a=ani_munca st=studii append blank repl nume with num,data_n with d,sex with s, special with spec, ani_munca with a, studii with st brow endif else append blank repl nume with num, special with spec @ 5,4 say "Data nasterii" get data_n @ 6,4 say "Sex " get sex @ 7,4 say "Ani de munca" get ani_munca @ 8,4 say "Studii " get studii read brow endif show menu meniu return procedure proc2 hide menu meniu @ 3,4 say "Dati numele" get num defa space(20) @ 4,4 say "Dati specialitatea" get spec defa space(10) read sele 1 locate for (nume=num)and(special=spec) if found() delete pack else ? "Nu exista inregistrarea" endif sele 1 brow show menu meniu return procedure proc3 hide menu meniu clear sele 1 scan sele 2 locate for s_neces=a.special and a.ani_munca>=experienta and sex=a.sex and studii_min<=a.studii and between(year(date())-year(a.data_n),v_min,v_max) if found() ? a.nume,institutia,functia delete sele 1 delete endif sele 1 endscan sele 2 brow show menu meniu return |
#include<iostream.h> #include<conio.h> #include<stdio.h> int a[20],b[20],c[20],n,m,p; void citire(int a[],int &n) { int i=0,x,sw,j; cout<<"Dati nr de elem "; cin>>n; while(i<n) { cout<<"x="; cin>>x; sw=0; for(j=0;j<i;j++) if(a[j]==x) { sw=1; break; } if(sw==0) { a[i]=x; i++; } } } void afisare(int a[], int n, char *mesaj) { int i; cout<<"Multimea "<<mesaj<<'{'; for (i=0; i<n; i++) cout<<a[i]<<' '; printf("\b}\n"); } void intersectie(int x[], int dx, int y[], int dy, int z[], int &dz) { int i,j; dz=0; for(i=0; i<dx; i++) for(j=0; j<dy; j++) if (x[i]==y[j]) { z[dz++]=x[i]; break; } } void main() { clrscr(); citire(a,n); afisare(a,n,"prima"); citire(b,m); afisare(b,m,"a doua"); intersectie(a,n,b,m,c,p); afisare(c,p,"intersectie"); getch(); } |
| set talk off set date to dmy use orfani in 1 use parinti in 2 defi menu meniu defi pad opt1 of meniu prompt "Adaugare copii" defi pad opt2 of meniu prompt "Adaugare parinti" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 3,4 say "Dati numele copilului" get num defa space(20) @ 4,4 say "Dati sexul copilului" get s defa space(1) @ 5,4 say "Dati data nasterii " get d defa {} read sele 2 locate for sex_cop=s or sex_cop='x' and between(year(date())-year(d),v_min,v_max) if found() wait wind "Am gasit familia "+ nume dele else sele 1 appe blank repl nume with num,sex with s,data_n with d brow endif show menu meniu return procedure proc2 hide menu meniu clear @ 3,2 say "Dati numele parintilor" get num defa space(20) @ 4,2 say "Dati varsta minima a copilului" get mi defa 0 @ 5,2 say "Dati varsta maxima a copilului" get ma defa 0 @ 6,2 say "Dati sexul copilului" get s defa space(1) read sele 1 locate for sex=s and between(year(data_n),mi,ma) if found() ? nume,sex,data_n sele 2 append blank repl nume with num,v_min with mi,v_max with ma,data with date(),sex_cop with s brow endif show menu meniu return |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,k; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } cout<<"Dati coloana pe care vreti s-o eliminati "; cin>>k; } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,j; citire(); afisare(); for(i=1;i<=n;i++) for(j=k;j<=m-1;j++) a[i][j]=a[i][j+1]; m--; cout<<"Noua matrice "<<endl; afisare(); getch(); } |
| set talk off set date to dmy use carti in 1 use cititori in 2 defi menu meniu defi pad opt1 of meniu prompt "Restituire carte" defi pad opt2 of meniu prompt "Cititori" defi pad opt3 of meniu prompt "Carti imprumutate" defi pad opt4 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 3,4 say "Dati numele cartii" get num defa space(20) read sele 1 locate for titlu=num if found() sele 2 locate for cota=a.cota if found() delete pack sele 1 repl imprumutat with .F. endif endif sele 2 brow show menu meniu return procedure proc2 hide menu meniu clear sele 1 @ 3,4 say "Dati domeniu" get dom defa space(10) read scan for trim(dom)$domeniu and imprumutat=.T. sele 2 brow for cota=a.cota sele 1 endscan show menu meniu return procedure proc3 hide menu meniu clear @ 3,4 say "Dati numele " get num defa space(20) read sele 2 scan for trim(num)$nume_pren sele 1 brow for cota=b.cota sele 2 endscan show menu meniu return |
#include<iostream.h> #include<conio.h> void main() { clrscr(); long n,m,nmin=30000,nc=0,s,i,c,p; cout<<"n="; cin>>n; m=n; while(m) { nc++; m/=10; } for(i=1; i<=nc; i++) { m=n; c=1; p=1; s=0; while(m) { if(c!=i) { s+=m%10*p; p*=10; } m/=10; c++; } if (s<nmin) nmin=s; } cout<<"Nr minim= "<<nmin; getch(); } |
| set talk off use materiale in 1 use furnizori in 2 define menu meniu defi pad opt1 of meniu prompt "Furnizor" defi pad opt2 of meniu prompt "Fisier nou" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deactivate menu meniu activate menu meniu close all procedure proc1 hide menu meniu sele 1 scan sele 2 calculate min(pretm) to pmin for codm=a.codm locate for pretm=pmin and codm=a.codm if found() replace a.furnizor with denf endif sele 1 endscan brow show menu meniu return procedure proc2 show menu meniu create dbf nou (codm c(5),denm c(20),cant n(5)) sele 1 scan for furnizor=space(20) sele 3 append blank replace codm with a.codm replace denm with a.denm replace cant with a.cant sele 1 endscan sele 3 brow show menu meniu return |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,k; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } cout<<"Dati linia pe care vreti s-o inserati "; cin>>k; } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,j; citire(); afisare(); for(i=n; i>=k;i--) for(j=1;j<=m;j++) a[i+1][j]=a[i][j]; for(i=1;i<=m;i++) a[k][i]=0; n++; cout<<"Noua matrice"<<endl; afisare(); getch(); } |
| set talk off use reviste in 1 use abonamen in 2 defi menu meniu defi pad opt1 of meniu prompt "Afisare reviste" defi pad opt2 of meniu prompt "Total" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 3,4 say "Dati numele abonatului" get num defa space(20) read sele 2 scan for trim(num)$num_abonat sele 1 locate for cod_rev=b.cod_rev if found() ? nume_rev endif sele 2 endscan show menu meniu return procedure proc2 hide menu meniu clear @ 2,3 say "Dati numele revistei " get num defa space(15) read sele 1 locate for trim(num)$nume_rev if found() p=pret*nr sele 2 sum p for month(data)+nr_luni>=month(date())and cod_rev=a.cod_rev to ss ? ss endif show menu meniu return |
#include<iostream.h> #include<conio.h> int a[30],n,x; void citire() { int i; cout<<"Dati nr de elemente: "; cin>>n; for(i=0; i<n; i++) { cout<<"a["<<i<<"]="; cin>>a[i]; cout<<endl; } cout<<"Dati nr cautat: "; cin>>x; } void afisare() { int i; for(i=0; i<n; i++) cout<<a[i]; cout<<endl; } void sortare() { int i,aux,sw; do { sw=0; for(i=0; i<n-1; i++) if(a[i]>a[i+1]) { aux=a[i]; a[i]=a[i+1]; a[i+1]=aux; sw=1; } } while(sw); } int cautare(int x[], int n, int y) { int li=0,ls=n,m; while(li<=ls) { m=(li+ls)/2; if(y==x[m]) return m; else if(y<x[m]) ls=m-1; else li=m+1; } return -1; } void main() { clrscr(); citire(); afisare(); sortare(); afisare(); if (cautare(a,n,x)>=0) cout<<cautare(a,n,x); else cout<<"Nr "<<x<<" nu exista in sir"; getch(); } |
| set talk off use stoc in 1 use nomen in 2 defi menu meniu defi pad opt1 of meniu prompt "Aprovizionare" defi pad opt2 of meniu prompt "Livrare" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 2,2 say "Produs nou: " get num defa space(20) read sele 2 locate for denumire=num if found() sele 1 locate for cod=b.cod if found() @ 3,2 say "Stoc1: " get s1 defa 0 @ 4,2 say "Stoc2: " get s2 defa 0 @ 5,2 say "Stoc3: " get s3 defa 0 @ 6,2 say "Stoc4: " get s4 defa 0 @ 7,2 say "Stoc5: " get s5 defa 0 read repl stoc1 with stoc1+s1 repl stoc2 with stoc2+s2 repl stoc3 with stoc3+s3 repl stoc4 with stoc4+s4 repl stoc5 with stoc5+s5 brow endif else sele 2 appe blank repl denumire with num @ 3,2 say "Cod: " get cod @ 4,2 say "Pret unitar: " get pret read sele 1 appe blank repl cod with b.cod @ 5,2 say "Stoc1: " get stoc1 @ 6,2 say "Stoc2: " get stoc2 @ 7,2 say "Stoc3: " get stoc3 @ 8,2 say "Stoc4: " get stoc4 @ 9,2 say "Stoc5: " get stoc5 read brow endif show menu meniu return procedure proc2 hide menu meniu clear @ 2,2 say "Produs care se transporta:" get num defa space(20) read sele 2 locate for denumire=num if found() @ 3,2 say "Magazia din care se transporta: " get s defa 0 read locate for a.cod=cod if found() sele 1 numem=field(s+1) if &numem=0 @ 4,2 say "In magazia "+str(s,1)+" nu mai este materialul" else @ 4,2 say "Cantitatea care se transporta: " get c defa 0 read repl &numem with &numem-c endif endif else ? "Produsul nu exista!" endif sele 1 brow show menu meniu retu |
#include<iostream.h> #include<conio.h> int a[10][10],n,m,k; void citire() { int i,j; cout<<"Dati nr de linii "; cin>>n; cout<<"Dati nr de coloane "; cin>>m; for(i=1;i<=n;i++) for(j=1;j<=m;j++) { cout<<"a["<<i<<"]["<<j<<"]="; cin>>a[i][j]; cout<<endl; } cout<<"Dati coloana pe care vreti s-o inserati "; cin>>k; } void afisare() { int i,j; for(i=1;i<=n;i++) { for(j=1;j<=m;j++) cout<<a[i][j]<<' '; cout<<endl; } } void main() { clrscr(); int i,j; citire(); afisare(); for(i=1; i<=n;i++) for(j=m;j>=k;j--) a[i][j+1]=a[i][j]; for(i=1;i<=n;i++) a[i][k]=0; m++; cout<<"Noua matrice"<<endl; afisare(); getch(); } |
| set talk off use elevi in 1 defi menu meniu defi pad opt1 of meniu prompt "Elevii promovati" defi pad opt2 of meniu prompt "Elevii corigenti" defi pad opt3 of meniu prompt "Elevii cu situatia neincheiata" defi pad opt4 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu do proc3 on sele pad opt4 of meniu deactivate menu meniu activate menu meniu close all procedure proc1 hide menu meniu clear sele 1 scan for lb_rom>=5 and matem>=5 and info>=5 and purtare>=5 repl media with (lb_rom+matem+info+purtare)/4 sele 1 endscan brow show menu meniu return procedure proc2 hide menu meniu clear copy struct to corig.dbf use corig in 2 sele 1 scan for lb_rom<=4 or matem<=4 or info<=4 or purtare<=4 sele 2 append blank repl nume_pren with a.nume_pren,lb_rom with a.lb_rom,matem with a.matem,info with a.info,purtare with a.purtare sele 1 endscan sele 2 brow show menu meniu use return procedure proc3 hide menu meniu clear copy struct to neinch.dbf use neinch in 3 sele 1 scan for lb_rom=0 or matem=0 or info=0 or purtare=0 sele 3 append blank repl nume_pren with a.nume_pren,lb_rom with a.lb_rom,matem with a.matem,info with a.info,purtare with a.purtare sele 1 endscan sele 3 brow show menu meniu use return |
#include<iostream.h> #include<conio.h> #include<math.h> void main() {int n,i,j,c,m; clrscr(); do {cout<<"Dati n "; cin>>n; } while (n<0); m=sqrt(n); cout<<m<<endl; for (i=0;i<m-1;i++) for(j=i+1;j<m;j++) {c=i*i+j*j; if (c<n) cout<<"("<<sqrt(c)<<","<<i<<","<<j<<") "; } getch(); } |
| set talk off use concurs in 1 use start in 2 defi menu meniu defi pad opt1 of meniu prompt "Timpul start" defi pad opt2 of meniu prompt "Ordinea" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deacti menu meniu acti menu meniu close all procedure proc1 show menu meniu procedure a sele 1 index on nr_cat tag nc sele 2 scan h=int(timps/100) m=timps%100 sele 1 scan for left(nr_cat,2)=b.cat repl tstart with str(h,2)+'.'+str(m,2) m=m+b.delta sele 1 endscan sele 2 endscan sele 1 brow hide menu meniu return procedure proc2 hide menu meniu sele 1 index on tstart tag ts brow show menu meniu return |
#include <iostream.h> #include <conio.h> void main () { clrscr(); int n,inv=0,a; cout<<"dati numarul:" ; cin>> n; a=n; while (n) {inv=inv*10+n%10; n=n/10; } if (a==inv) cout<<"palindrom"; else cout<<"nu e palindrom"; getch(); } |
| set talk off set safe off set date to dmy use loc in 1 use bebe in 2 use pari in 3 defi menu meniu defi pad opt1 of meniu prompt "Afisare copii" defi pad opt2 of meniu prompt "Statistica" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deactivate menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear sele 3 index on cod_bebe tag cb sele 2 set relation to cod_bebe into 3 index on cod_spital tag cs sele 1 set relation to cod_spital into 2 @ 3,2 say "Dati luna" get l defa 0 @ 4,2 say "Dati anul" get a defa 0 read sele 2 brow for year(data_n)=a and month(data_n)=l fields nume,c.num_tata,c.num_mama sele 2 show menu meniu return procedure proc2 hide menu meniu clear @ 3,4 say "Dati prima data" get d1 defa {} @ 4,4 say "Dati a doua data" get d2 defa {} read sele 1 scan sele 2 count for between(data_n,d1,d2)=.T. and cod_spital=a.cod_spital to cati if cati<>0 ?a.den_spital,a.localitate,cati endi sele 1 endscan show menu meniu return |
#include<iostream.h> #include<conio.h> int a[20],n; void citire() { int i; cout<<"Dati nr de elemente "; cin>>n; for(i=0; i<n; i++) { cout<<"a["<<i<<"]="; cin>>a[i]; cout<<endl; } } void afisare() { int i; for(i=0; i<n; i++) cout<<a[i]<<" "; cout<<endl; } int apartine(int x[], int d, int y) { int i; for(i=0; i<d; i++) if (y==x[i]) return 1; return 0; } void main() { clrscr(); int i,j,k; citire(); afisare(); for(i=0; i<n-1; i++) { for(j=i+1; j<n; j++) if(apartine(a,i,a[j])) { for(k=j; k<n-1; k++) { a[k]=a[k+1]; n--; } } } if (n==0) cout<<"Sirul este gol"; else afisare(); getch(); } |
| set talk off set date to dmy use reviste in 1 use abonamen in 2 clear create dbf centraliz (num_abonat c(20),nume_rev c(15),L01 c(1),L02 c(1),L03 c(1),L04 c(1),L05 c(1),L06 c(1),L07 c(1),L08 c(1),L09 c(1),L10 c(1),L11 c(1),L12 c(1)) use centraliz in 3 sele 2 scan d=gomonth(data,nr_luni) sele 3 appe blank repl num_abonat with b.num_abonat sele 1 locate for cod_rev=b.cod_rev repl c.nume_rev with nume_rev for i=1 to 12 if i<10 x='L0'+str(i,1) else x='L'+str(i,2) endif sele 3 if month(b.data)<month(d) if i-month(b.data)>0 and i<=month(d) repl &x with 'D' else repl &x with 'N' endif else if i>month(b.data) or i<=month(d) repl &x with "D" else repl &x with "N" endif endif endfor sele 2 endscan sele 3 browse clear |
#include<iostream.h> #include<conio.h> #include<stdio.h> int a[20],b[20],c[20],n,m,p; void citire(int a[],int &n) { int i=0,x,sw,j; cout<<"Dati nr de elem "; cin>>n; while(i<n) { cout<<"x="; cin>>x; sw=0; for(j=0;j<i;j++) if(a[j]==x) { sw=1; break; } if(sw==0) { a[i]=x; i++; } } } void afisare(int a[], int n, char *mesaj) { int i; cout<<"Multimea "<<mesaj<<'{'; for (i=0; i<n; i++) cout<<a[i]<<' '; printf("\b}\n"); } void produs_cartezian() { int i,j; for(i=0; i<n; i++) for(j=0; j<m; j++) cout<<'('<<a[i]<<','<<b[j]<<')'<<endl; } void main() { clrscr(); citire(a,n); afisare(a,n,"prima"); citire(b,m); afisare(b,m,"a doua"); produs_cartezian(); getch(); } |
| set talk off set sysmenu off clear use diri in 1 use profi in 2 define menu meniu define pad p1 of meniu prompt "Diriginti" define pad p2 of meniu prompt "Profesori" define pad iesire of meniu prompt "Iesire" define popu pop1 define bar 1 of pop1 prompt "Afisare" define bar 2 of pop1 prompt "Modificare" define bar 3 of pop1 prompt "Adaugare" define bar 4 of pop1 prompt "Stergere" define bar 5 of pop1 prompt "Afisare profi" define popu pop2 define bar 1 of pop2 prompt "Afisare" define bar 2 of pop2 prompt "Modificare" define bar 3 of pop2 prompt "Adaugare" define bar 4 of pop2 prompt "Stergere" define bar 5 of pop2 prompt "Disciplina" on pad p1 of meniu activate popup pop1 on pad p2 of meniu activate popu pop2 on sele pad iesire of meniu do iesire on sele bar 1 of pop1 do afisare_1 on sele bar 2 of pop1 do modificar_1 on sele bar 3 of pop1 do adaugare_1 on sele bar 4 of pop1 do sterg_1 on sele bar 5 of pop1 do afprofi on sele bar 1 of pop2 do afisare_2 on sele bar 2 of pop2 do modificare_2 on sele bar 3 of pop2 do adaugare_2 on sele bar 4 of pop2 do sterg_2 on sele bar 5 of pop2 do disciplina activate menu meniu procedure afisare_1 sele 1 browse nomodi return procedure afisare_2 sele 2 browse nomodi return procedure modificar_1 sele 1 browse return procedure modificare_2 sele 2 browse return procedure adaugare_1 sele 1 append return procedure adaugare_2 sele 2 append return procedure sterg_1 hide menu meniu hide popu pop1 sele 1 @ 5,1 say "Numele dirigintelui: " get n defa space(20) read locate for allt(uppe(n))==allt(uppe(nume)) if found() delete else @ 6,1 say "Nu exista in BD." endif wait "apasati o tasta" clear show menu meniu return procedure sterg_2 hide menu meniu hide popu pop2 sele 2 @ 5,1 say "Numele profesorului: " get n defa space(20) read delete for allt(uppe(n))==allt(uppe(nume)) wait "apasati o tasta" clear show menu meniu return procedure afprofi hide menu meniu hide popu pop1 @5,3 say "Clasa: " get c defa space(3) read sele 2 scan for i=1 to 18 if i<10 cl=allt(uppe("cls"+str(i,1))) else cl=allt(uppe("cls"+str(i,2))) endif if &cl==c ? nume endif endfor endscan wait "apasati o tasta" clear show menu meniu return procedure disciplina hide menu meniu hide popu pop2 sele 2 @ 5,1 say "Disciplina: " get den defa space(20) read scan if allt(uppe(den))==allt(uppe(materie)) @ 6,4 say " " ? nume, "preda materia ",den, "la clasele: " for i=1 to 18 if i<10 cl=allt(uppe("cls"+str(i,1))) else cl=allt(uppe("cls"+str(i,2))) endif if len(allt(b.&cl))>=2 ? b.&cl, "cu dirigintele " sele 1 locate for allt(uppe(cls))==allt(uppe(b.&cl)) if found() ? nume endif endif endfor endif endscan wait "apasati o tasta" clear show menu meniu return procedure iesire clear close all deactivate menu meniu clear menus cancel |
#include<iostream.h> #include<conio.h> #include<stdio.h> int a[20],b[20],c[20],n,m,p; void citire(int a[],int &n) { int i=0,x,sw,j; cout<<"Dati nr de elem "; cin>>n; while(i<n) { cout<<"x="; cin>>x; sw=0; for(j=0;j<i;j++) if(a[j]==x) { sw=1; break; } if(sw==0) { a[i]=x; i++; } } } void afisare(int a[], int n, char *mesaj) { int i; cout<<"Multimea "<<mesaj<<'{'; for (i=0; i<n; i++) cout<<a[i]<<' '; printf("\b}\n"); } void diferenta(int x[], int dx, int y[], int dy, int z[], int &dz) { int i,j,sw; for (i=0; i<dx; i++) { sw=0; for(j=0; j<dy; j++) if(x[i]==y[j]) { sw=1; break; } if (!sw) z[dz++]=x[i]; } } void main() { clrscr(); citire(a,n); afisare(a,n,"prima"); citire(b,m); afisare(b,m,"a doua"); diferenta(a,n,b,m,c,p); afisare(c,p,"diferenta A-B"); diferenta(b,m,a,n,c,p); afisare(c,p,"diferenta B-A"); getch(); } |
| clear set talk off set date to dmy use conturi in 1 use operatii in 2 defi menu meniu defi pad opt1 of meniu prom 'inreg operatie' defi pad opt2 of meniu prom 'suma totala' defi pad opt3 of meniu prom 'iesire' on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deac menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear sele 2 appe blank @ 2,2 say 'cod cont' get cod_cont @ 3,2 say 'cod operatie' get cod_op @ 4,3 say 'suma ' get suma read repl data with date() sele 1 if b.cod_op='C' appe blank repl cod_cont with b.cod_cont repl suma with b.suma-0.001*b.suma @ 5,4 say 'nume titular' get titular @ 6,4 say 'cod titular' get cod_tit @ 7,4 say 'adresa ' get adresa_tit read else locate for cod_cont=b.cod_cont if b.cod_op='D' repl suma with suma+b.suma-0.001*b.suma else if b.cod_op='E' repl suma with suma-b.suma-0.001*b.suma else if b.cod_op='L' delete pack else ? 'cod operatie gresit' endif endif endif endif sele 2 brow sele 1 brow show menu meniu return procedure proc2 hide menu meniu sele 2 clear @ 2,2 say 'contul ' get cd defa 0 @ 3,2 say 'data ' get dt defa {} read stotal=0 scan for data=dt and cod_cont=cd if cod_op='C' stotal=suma else if cod_op='D' stotal=stotal+suma else if cod_op='L' stotal=0 else stotal=stotal-suma endif endif endif endscan ? 'suma totala operata: ',stotal show menu meniu return |
#include <iostream.h> #include <conio.h> void main () { clrscr(); int n,s=0; cout<<"dati numarul:"; cin>>n; for (int i=1;i<n;i++) { if (n%i==0) { cout<<"se divide cu "<<i<<endl; s=s+i; } } if (s==n) cout<<"numar perfect"; else cout<<"nu e nr perfect"; getch(); } |
| set talk off set date to dmy use zboruri in 1 use calatori in 2 defi menu meniu defi pad opt1 of meniu prompt "Afisare zboruri" defi pad opt2 of meniu prompt "Rezervare" defi pad opt3 of meniu prompt "Iesire" on sele pad opt1 of meniu do proc1 on sele pad opt2 of meniu do proc2 on sele pad opt3 of meniu deactivate menu meniu acti menu meniu close all procedure proc1 hide menu meniu clear @ 2,2 say "Destinatie: " get dest defa space(20) @ 3,2 say "Data: " get dat defa {//} read sele 1 z=dow(dat) clear @ 1,2 say "COD" @ 1,7 SAY "DESTINATIE" @ 1,28 SAY "ESCALA" @ 1,50 SAY "ZILE" @ 1,58 SAY "ORA" @ 1,64 SAY "LOCURI" @ 1,68 SAY "PRET" i=2 scan for destinatie=proper(dest) and at(alltrim(str(z,1)),zi)<>0 i=i+1 @ i,2 say str(cod,4) @ i,7 say destinatie @ i,28 say escala @ i,50 say zi @ i,58 say str(ora,5,2) @ i,64 say str(locuri,3) @ i,68 say str(pret,8) endscan show menu meniu return procedure proc2 hide menu meniu clear @ 2,2 say "Zborul: " get zbor defa space(20) @ 3,2 say "Data: " get dat defa {//} read sele 1 locate for destinatie=zbor if found() if locuri=0 ? "Nu mai sunt locuri" else if at(alltrim(str(dow(dat),1)),zi)=0 ? "nu exista zbor in ziua respectiva" else repl locuri with locuri-1 sele 2 appe blank @ 4,2 say "Nume calator: " get nume read repl cod_zbor with a.cod repl data with dat @ 6,2 say "Carte identitate: " get carte_i read endif endif else ? "nu exista zboruri cu destinatia respectiva" endif sele 2 brow show menu meniu return |
#include <iostream.h> #include <conio.h> void main() { clrscr(); int n,a; long s=0; cout<<"cate cifre are nr? "; cin>>n; for (int i=1;i<=n;i++) { cin>>a; s=s*10 +a; } cout<<s; getch(); } |