Question

Napisz program/przedstaw algorytm, który:

1) sprawdzi czy dana liczba jest liczbą pierwszą

2) sprawdzi czy podane słowo jest palindromem

3) rozwiąże układ równań liniowych (metodą wyznaczników):

( cyfry to indeks dolny dotyczący a,b,c)

4) który skróci ułamek podany na wejściu jako para liczb (pierwsza to licznik a druga- mianownik. Wynik powinien być napisany w postaci a:b gdzie a i b to nowy licznik i mianownik po skróceniu.

5) Który wypisze wszystkie dzielniki całkowite liczby całkowitej danej na wejściu

6) Który wypisze na ekranie tabliczkę mnożenia w postaci:

http://republika.pl/blog_ya_920600/5059938/tr/tabliczka_mnozenia.jpg

(taka jak ta, ale bez 0 ) i do nieskonczoności

Zadanie jest na poniedziałek, więc proszę o rozwiąznie zadania do poniedziałku. Jego forma jest dowolna: może być napisana w programie Pascal, albo po prostu przedstawiona. Oczywiście daję najlepszą odpowiedź. Proszę o pomoc ;)

Answer 1

1) Palindormy

program palindromy;
uses Crt;
var wyraz: string;
l,j: integer;
jest: boolean;

begin

ClrScr;

jest:=TRUE;

Writeln('Podaj wyraz');
Readln(wyraz);

l:=length(wyraz);

for j:=1 to l div 2 do

if wyraz[j]<>wyraz[l-j+1] then

jest:=FALSE;     

if jest then
Writeln('Podany wyraz jest palindromem')

else
Writeln(' Podany wyraz nie jest palindromem');

repeat until KeyPressed;
end.

-------------------------------------------------------------------

2) Liczby pierwsze:

Program pierwszosc;
uses CRT;
var liczba: integer;
j: integer;
jest: boolean;


begin

CLRSCR;

Write(' Podaj liczbe: '); Read(liczba);

jest:=TRUE;

for j:=2 to round(sqrt(liczba)) do
if liczba mod j=0 then jest:=FALSE;

if jest then Write(liczba,' jest to liczba pierwsza')
else Write(liczba,' nie jest to liczba pierwsza');

repeat until keypressed;

end.

-------------------------------------------------------------------

3) Dzielniki:

Program pierwszosc;
uses CRT;
var liczba: integer;
j: integer;

begin

CLRSCR;

Writeln('Podaj liczbe: '); Read(liczba);

for j:=1 to liczba do
if liczba mod j=0 then Writeln(j);

repeat until keypressed;
end.

 

-------------------------------------------------------------------

4) Ulamek:

 

Program skrac;
uses CRT;
var a,b,pom: integer;
j: integer;

begin

CLRSCR;

Write('Podaj licznik: '); Read(a);
Write('Podaj mianownik: '); Read(b);

if a>b then pom:=a
else pom:=b;


for j:=2 to pom do
begin

if (a mod j=0) and (b mod j=0) then
begin

a:=a div j;
b:=b div j;

end;

end;

Write('Ulamek: ',a,'/',b);

repeat until keypressed;
end.