[TurboPascal] Zadnia.

0

  1. Napisz program wczytujący N liczby rzeczywistych i wyznaczający sumę tych liczb.

  2. Napisz program wczytujący N liczby rzeczywistych i wyznaczający iloczyn tych liczb.

  3. Napisz program z użyciem [U]pętli while[/U] wczytujący z klawiatury liczbe całkowitą. Program powinien przyjmowac jedynie liczbe dodatnią. Jeśli użytkownik poda liczbę ujemna to powinien pozostać poinformowany ze wymagana jest liczba dodatnia i poproszony o kolejna liczbe. Proba wczytania dopóty, dopóki uzytkownik nie poda liczby poprawnej (dodatniej).

  4. Napisz program z użyciem [U]pętli REPEAT[/U] wczytujący z klawiatury liczbe całkowitą. Program powinien przyjmowac jedynie liczbe dodatnią. Jeśli użytkownik poda liczbę ujemna to powinien pozostać poinformowany ze wymagana jest liczba dodatnia i poproszony o kolejna liczbe. Proba wczytania dopóty, dopóki uzytkownik nie poda liczby poprawnej (dodatniej).

  5. Program wystawiający ocene w postaci słownej za uzyskane punkty na sprawdzianie oraz ilosc uzyskanych punktów. z klawiatury wprowadzamy liczbe całkowita p-ilosc punktow uzyskanych. jezeli uzyskano 90-100pkt- ocena 5, 75-89- ocena 4, 60-74 -ocena 3, 40-60- ocena 2, ponizej 40 -ocena 1.

0

Dziękujemy, za poinformowanie nas o tym jakie zadania dostałeś. Tylko co z tego? To "Forum dla programistów", a nie "Forum dla ofiar systemu szkolnictwa".

0

dla Twojej wiadomości to przeniesiono mnie do klasy informatycznej i czy mi sie to podoba czy nie to musze zaliczyc to.. mam do Jeśli tego nie potrafisz to nie pisz..
PS. ofiara moze jestes ty. pozdro.

0

Polecam świetny kurs, do wieczora się nauczysz: http://www.pascal.eu.org/

0

Dzieki. i mam pytanie.

zad4.

program repea;
uses crt;
var
x:integer;
begin
clrscr;
repeat
writeln('Wpisz dowolna liczbe cakowita');
readln(x);
writeln('Liczba musi byc dodatnia');
readln(x);
until x>0
end.

co mam zle.? chodzi o to ze zdanie "liczba musi byc dodatnia wyskakiwalo tylko jak jest x<0.
i czy reszta jest dobrze .?

0

zamiast samego

writeln('Liczba musi byc dodatnia');
readln(x);

sprawdzenie warunku:

if x < 0 then
   writeln('Liczba musi byc dodatnia');

rób wcięcia, umieszczaj kod w znacznikach (kolorowanie składni)

NIe kopiuj, próbuj sam pisać...

0

Dzięki ; )

a w pętli while.?

program whil;
uses crt;
var
x:integer;
begin
clrscr;
x:=>0
while x>0 do
begin
writeln('wpisz liczbe dodatnia');
readln(x);
if x<0 then
writeln('wpisz liczbe dodatnia');
readln(x);
end;
readln;
end.

nie śmiga, nie wiem jak X zaznaczyć zeby działało jak poprzednie.. co jest źle.?

0

rób wcięcia, umieszczaj kod w znacznikach (kolorowanie składni)!!!!

Co to jest: x:=>0, gdzie średnik?
Spróbuj przez analogię do poprzedniego, zobacz czym różni się konstrukcja repeat...until od while.

0 
program whil;
uses crt;
var
x:integer;
begin
clrscr;
x:=1;
while x>=0 do
begin
writeln('wpisz liczbe');
readln(x);
if x<0 then
writeln('wpisana liczba musi byc dodatnia');
readln(x);
end;
readln;
end.

nie wiem dokladnie jak to kolorowac. sorki.
program śmiga jak powinien ale czy jest poprawnie napisany.?
Dzięki ;)

0

Może być... Rób wcięcia (spacja, tab) - nie tylko dlatego, żeby tutaj było czytelniej, ale to swojego rodzaju podstawa.

0

Podpowiesz moze jaką instrukcja mam napisac zad. 1,2,5.?

w 5 bedzie to case x of.?

0

w 5 case, 1 i 2 to proste sumowanie/iloczyn w pętli - radź sobie ;)

0

1,2 to pętle for. 5 możesz zrobić za pomocą if'a/case'a.

0

Na pascalu się zbytnio nie znam uczę się tylko na własną rękę C++.
Zrobiłem te zadania w C++ jak chcesz możesz sobie przełożyć kod na pascala :P

 #include <iostream>
using namespace std;


void One(); // Program wczytujący N liczby rzeczywistych i wyznaczający sumę tych liczb.
void Two(); // Program wczytujący N liczby rzeczywistych i wyznaczający iloczyn tych liczb.
void Three(); // Program w petli while czeka na liczbe dodatnia. Upomina przy wpisaniu liczby ujemnej.
void Four(); // Oceny slownie, punkty ze sprawdzianu.
// **********************************************************************
int main()
{
	unsigned short int Wybor;
	cout << "Zadania od poczatku\n" << endl;
	cout << "1. Program wczytujacy N liczby rzeczywistych i wyznaczajacy sume tych liczb." << endl;
	cout << "2. Program wczytujacy N liczby rzeczywistych i wyznaczajacy iloczyn tych liczb." << endl;
	cout << "3. Program w petli while czeka na liczbe dodatnia. Upomina przy wpisaniu liczby ujemnej." << endl;
	cout << "4. Oceny slownie, punkty ze sprawdzianu." << endl;
	cout << "Twoj wybor to: ";
	cin >> Wybor;
	cout << "\n";
		switch(Wybor)
		{
		case 1: One(); break;
		case 2: Two(); break;
		case 3: Three(); break;
		case 4: Four(); break;
		default: cout << "Nie ma takiej opcji!" << endl;
		}
		cout << "\n";
	system("pause");
}
//********************************************************************
void One() 
{
	unsigned short int IloscLiczb;
	double Suma = 0,Liczba;
	cout << "Podaj ilosc liczb: ";
	cin >> IloscLiczb;
	cout << "\n";
		for(int i = 1; i <= IloscLiczb; i++)
		{
			cout << "Podaj liczbe: ";
			cin >> Liczba;
			Suma += Liczba;
		}
		cout << "\n";
		cout << "Suma podanych liczb to: " << Suma << endl;
}
//**********************************************************************
void Two() 
{
	unsigned short int IloscLiczb;
	double Liczba,Iloczyn = 1;
	cout << "Podaj ilosc liczb: ";
	cin >> IloscLiczb;
	cout << "\n";
		for(int i = 1; i <= IloscLiczb; i++)
		{
			cout << "Podaj liczbe: ";
			cin >> Liczba;
			Iloczyn *= Liczba;
		}
		cout << "\n";
		cout << "Iloczyn podanych liczb to: " << Iloczyn << endl;
}
//****************************************************************************************
void Three()
{
	short int Liczba,COS = 1;
	while(COS)
	{
		cout << "Podaj liczbe dodatnia calkowita: ";
		cin >> Liczba;
		cout << "\n";
		if(Liczba < 0)
		{ cout << "Prosilem o liczbe calkowita! Popraw sie! " << endl; }
		else 
		{ cout << "ok" << endl; break; }
	}
}
//*********************************************************************************
void Four()
{
	unsigned short int p_ilosc;
	cout << "Podaj ilosc pkt ze sprawdzianu: ";
	cin >> p_ilosc;
	cout << "\n";
		if(p_ilosc < 39)
		{ cout << "Ocena: JEDEN!" << endl; }
		else if((p_ilosc >= 40) && (p_ilosc <= 59))
		{ cout << "Ocena: DWA!" << endl; }
		else if((p_ilosc >= 60) && (p_ilosc <= 74))
		{ cout << "Ocena: TRZY!" << endl; }
		else if((p_ilosc >= 75) && (p_ilosc <= 89))
		{ cout << "Ocena: CZTERY!" << endl; }
		else if((p_ilosc >= 90) && (p_ilosc <= 100))
		{ cout << "Ocena: PIEC!" << endl; }
		else if((p_ilosc < 0) || (p_ilosc > 100))
		{ cout << "Min pkt to '0' a Max to '100' Nie blaznuj!" << endl; }
}
//********************************************************************************

Zapewniam że all działa ;p

0

sami dowcipnisie tutaj.... :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1