Widok

Zadania w Pascalu

Nauka Temat dostępny też na forum:
Może ktoś wie jak zrobić te zadania. Dal nie których mogą być banalne, ale dla mnie. Ja dipiero zaczynam programowanie.

zadanie1. Napisać program, ktory sprawdza, czy liczba 'n'
podana z klawiatury jest kwadratem innej liczby naturalnej,
tzn, czy istnieje taka liczba naturalna 'k', że n= k2

zadanie2. zmodyfikowac go tak, by liczyl ile razy powtarzana byla petla 'repeat...until'}

program repeat1;

var
ch:char;
begin
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch)
until(ch='k');
end.

zadanie 3. zmodyfikowac go tak, by zwracal zarowno iloczyn, jak i sume podawanych liczb

program iloczn1;
var
loczyn,ostatnia,i,ilosc:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
ostatnia:=1;
for i:=1 to ilosc do
begin
write(' Podaj kolejna liczbe: ');
readln(ostatnia);
iloczyn:=iloczyn*ostatnia;
end;
writeln('iloczyn wczytanych liczb wynosi', iloczyn);
writeln;
writeln;
writeln(' wcisnij ');
readln;
end.

z góry dzięki
popieram tę opinię 0 nie zgadzam się z tą opinią 0
Cześć!!
Jeżeli chodzi o zadanie 2
program repeat1;

var
ch:char; i:integer;
begin
i:=0
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch);
i:=i+1;
until(ch='k');
writeln('Pętla była wykonana ',i,' razy')
end.

Powinno działać
popieram tę opinię 0 nie zgadzam się z tą opinią 0
Zadanie 3
program iloczn1;
var
loczyn,ostatnia,i,ilosc,suma:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
ostatnia:=1;
suma:=0
for i:=1 to ilosc do
begin
write(' Podaj kolejna liczbe: ');
readln(ostatnia);
iloczyn:=iloczyn*ostatnia;
suma:=suma+ostatnia;
end;
writeln('iloczyn wczytanych liczb wynosi', iloczyn);
writeln;
writeln('suma podanych liczb wynosi: ',suma);
writeln(' wcisnij ');
readln;
end.

To też powinno działać
Jakznajdę chwilę czasu to spojrzę na ten pierwszy program, ale w zamian mam prośbę pomóż mi znaleźć odpowiedzi do kursu fundamentals of unix!!
To jest dla mnie bardzo ważne
popieram tę opinię 0 nie zgadzam się z tą opinią 0

Inne tematy z forum Nauka

Jakie rozwiązania płatnicze wybrać dla przedsiębiorstw finansowych? Odpowiedzi tutaj. (3 odpowiedzi)

Witam wszystkich! Zależy mi na platformie do wygodnych operacji finansowych. Czy ktoś poleca...

kadry i płace, księgowość - nauka (3 odpowiedzi)

Powiedzcie mi, jak najlepiej nauczyć się kadr i płac oraz księgowości samemu w domu? Idę co...

(rodzice ucznia kl. 1) - opinia (3 odpowiedzi)

Dzień dobry. Myślę, że nie ma co wiele opisywać z naszej i syna strony, iż w przypadku naszego...

do góry