--> Archiwum Forum
R.W.G. [ Junior ]
Turbo Pascal-zadania (help)
Mam do was gorącą proźbę. Na jutro muszę zrobić pięć z tych zadań (obojętnie które). Z pascala jestem cienki bolek i sam sobie nie poradze. I tu właśnie jest ta proźba. Czy mógłby ktoś zrobić te zadania. Wspulnymi siłami zobimy to raz, dwa. Pomocyyyyyy.....
Zadanie 1.
Napisz program, który dla dowolnej liczby naturalnej m>3 wypisuje wszystkie trójki liczb naturalnych (k,n,l) spełniające warunek: k<n<l<m.
Zadanie 2.
Napisz program, który dla dowolnej liczby naturalnej n, znajduje największą liczbę naturalną k , taką że 2 do potęgi k dzieli n.
Zadanie 3.
Wydrukuj znaki cyfr l,2,...9 w kolejnych wierszach w taki sposób, aby znak i liczba znaków w wierszu
były równe numerowi wiersza
l
22
........................
999999999
Zastosuj instrukcje iteracyjne (pętle) do drukowania kolejnych wierszy i kolejnych znaków w wierszu.
Zadanie 4.
Napisz program, który dla dowolnej liczby naturalnej m>2 wypisuje wszystkie pary liczb naturalnych (k,n) spełniające warunek: k<n<m.
Zadanie 5.
Poprzez wielokrotne użycie instrukcji READLN wprowadzamy
do programu duży skończony ciąg liczb (ilość wprowadzanych liczb jest z góry podana na początku programu). Napisz program, który sprawdza czy wszystkie liczby poprzedzające pierwszą liczbę ujemną tworzą ciąg malejący.
Zadanie 6.
Napisz program, który dla dowolnych dwóch liczb naturalnych m i n, znajduje i wypisuje wszystkie wspólne dzielniki pierwsze tych liczb.
Zadanie 7.
Napisz program SUMACYFR, który oblicza, dla dowolnej liczby całkowitej, sumę cyfr tej liczby, np. 123 = 6. Przyjmijmy: 1<= n < 10000
Zadanie 8.
Napisz program, który w dowolnym skończonym ciągu temperatur wprowadzanych z klawiatury znajduje największy skok temperatur, tzn. największą, co do wartości bezwzględnej, różnicę pomiędzy kolejnymi wyrazami ciągu.
Zadanie 9.
Dla n kolejnych liczb całkowitych ( od 1) wyświetl na ekranie ich sumę.
Zadanie 10.
Napisz program, który wczyta n liczb oblicza ich 2 oraz 3 potęgę, wyświetla na ekranie: numer liczby, liczbę oraz jej 2 i 3 potęgę. Program powinien wyświetlać też odpowiednie komunikaty dla użytkownika oraz pytać czy powtórzyć obliczenia.
Lukxxx [ Pretorianin ]
program zadanie3;
var i,j:Word;
begin
--For i:=1 to 9 do
--begin
----For j:=1 to i do
------Write(i);
----WriteLn
--end
end.
wszystkie - zastap spacjami lub znakami tabulacji
Kijano [ Konsul ]
Zadanie 7.
uses crt;
var
c:char;
i,x:integer;
begin
clrscr;
repeat
---c:=readkey;
---write(c);
---Val(c,i,i);
---x:=x + i;
until (c = #13);
Writeln('Suma cyfr liczby wynosi : ',x);
Readln();
end.
Didier z Rivii [ life 4 sound ]
program zad1;
var
m : integer;
begin
repeat
--writeln('Podaj liczbe naturalna wieksza niz 3');
--readln(m);
until (m >3);
writeln(m-3,' ',m-2,' ',m-1);
end;