1. Varianta 1: Matematicienii
1.1. Elaborați programul care afişează câte soluţii reale are ecuaţia de gradul al doilea. Fie ecuatia de gradul II, ax2+bx+c=0, se calculează discriminantul (delta) ecuatiei d=b*b-4*a*c: -daca d>0 atunci ecuatia are două solutii reale ; -daca d=0 atunci ecuatia are o solutie reală ; -daca d<0 atunci ecuatia nu are solutii reale.
1.1.1. Limbajul Pascal Program Ecuatie; Var a, b, c : real; delta, x1, x2: real; Begin Write('Introduceti coeficientii a, b si c '); Readln(a, b, c); Delta := b * b - 4 * a * c; If delta > 0 then Writeln('Ecuatia are doua solutii:') else if delta = 0 then Writeln('Ecuatia are o singura solutie:') else writeln('Ecuatia nu are solutii.'); Readln; End.
1.1.2. Limbajul C++ #include <iostream> using namespace std; int main() { double a, b, c; double delta, x1, x2; cout << "Introduceti coeficientii a, b si c:"; cin >> a >>b >> c; delta = b * b - 4 * a * c; if (delta > 0) { cout << "Ecuatia are doua solutii :" << endl; } else if (delta == 0) { cout << "Ecuatia are o singura solutie:" << endl; } else { cout << "Ecuatia nu are solutii."<< endl; } return 0; }</iostream>
2. Varianta 2: Fizicienii
2.1. Elaborați programul carea calculează distanţa parcursă de un vehicul ce se mişcă rectiliniu şi uniform, atunci când se cunosc viteza acestuia şi timpul parcurs. Cu condiția ca datele de intrare nu vor fi mai mici decât zero. Pornim de la formula cunoscută de la fizică şi anume: D=v*t.
2.1.1. Program Pascal program densitate; {program pentru calcularea densității unui corp} VAR Ro, v, m: real; begin writeln ('Introduceți masa corpului:'); readln (m); writeln ('Introduceți volumul corpului'); readln (v); Ro:=m/v; If (v<0) or (m<0) then writeln('Ați introdus o valoare greșită') else writeln ('Densitatea corpului este=',Ro); end.
2.1.2. Limbajul C++ #include <iostream> using namespace std; int main() { // program pentru calcularea densității unui corp double Ro, v, m; cout << "Introduceți masa corpului:" << endl; cin >> m; cout << "Introduceți volumul corpului" << endl; cin >> v; if (v < 0 || m < 0) { cout << "Ați introdus o valoare greșită" << endl; } else { Ro = m / v; cout << "Densitatea corpului este=" << Ro << endl; } return 0; }</iostream>
3. Varianta 3: Biologii
3.1. La o anumită specie de flori, culoarea petalelor este determinată de o pereche de alele: A (dominant) – determină culoarea roșie a florii. a (recesiv) – determină culoarea albă a florii. 🌸 Reguli: Dacă floarea are genotipul AA, aA sau Aa, culoarea petalelor va fi roșie. Dacă floarea are genotipul aa, culoarea petalelor va fi albă. Să se scrie un program Pascal care determină și afișează culoarea petalelor: "Rosie" sau "Alba", în funcție de genotip.
3.1.1. Limbajul Pascal program CuloareFlori; uses crt; var genotip: string; begin clrscr; writeln('Introduceti genotipul florii (ex: AA, Aa, aA, aa):'); readln(genotip); if (genotip = 'AA') or (genotip = 'Aa') or (genotip = 'aA') then writeln('Culoarea florii este: Rosie') else if (genotip = 'aa') then writeln('Culoarea florii este: Alba') else writeln('Genotip invalid! Introduceti doar combinatii de A si a.'); readln; end.
3.1.2. Limbajul C++ #include <iostream> #include <string> using namespace std; int main() { string genotip; cout << "Introduceti genotipul florii (ex: AA, Aa, aA, aa):" << endl; std::getline(std::cin, genotip); if (genotip == "AA" || genotip == "Aa" || genotip == "aA") { cout << "Culoarea florii este: Rosie" << endl; } else if (genotip == "aa") { cout << "Culoarea florii este: Alba" << endl; } else { cout << "Genotip invalid! Introduceti doar combinatii de A si a." << endl; } cin.get(); return 0; }
4. Varianta 4: Geografii
4.1. O agenție de turism organizează excursii în diferite continente. În funcție de numele continentului ales de client, agenția oferă informații despre numărul aproximativ de țări de pe acel continent. Scrieți programul care primește de la utilizator, ca date de intrare, numele unui continent și afișează numărul aproximativ de țări existente pe acel continent (ex: "Europa": 44 țări, "Asia": 49, "Africa": 54, "America": 35, "Australia": 14). Dacă utilizatorul introduce un nume de continent care nu este în listă, să afișeze un mesaj: "Continent necunoscut!".
4.1.1. LIMBAJUL PASCAL program TariContinent; uses crt; var continent: string; begin clrscr; writeln('Introduceti numele continentului (Europa, Asia, Africa, America, Australia):'); readln(continent); if (continent = 'Europa') then writeln('Numarul aproximativ de tari: 44') else if (continent = 'Asia') then writeln('Numarul aproximativ de tari: 49') else if (continent = 'Africa') then writeln('Numarul aproximativ de tari: 54') else if (continent = 'America') then writeln('Numarul aproximativ de tari: 35') else if (continent = 'Australia') then writeln('Numarul aproximativ de tari: 14') else writeln('Continent necunoscut!'); readln; end.
4.1.2. LLIMBAJUL C++ #include <iostream> #include <string> using namespace std; int main() { string continent; cout << "Introduceti numele continentului (Europa, Asia, Africa, America, Australia):" << endl; getline(cin, continent); if (continent == "Europa") { cout << "Numarul aproximativ de tari: 44" << endl; } else if (continent == "Asia") { cout << "Numarul aproximativ de tari: 49" << endl; } else if (continent == "Africa") { cout << "Numarul aproximativ de tari: 54" << endl; } else if (continent == "America") { cout << "Numarul aproximativ de tari: 35" << endl; } else if (continent == "Australia") { cout << "Numarul aproximativ de tari: 14" << endl; } else { cout << "Continent necunoscut!" << endl; } return 0; }