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

Co robicie w domu podczas w kwarantanny? (5 odpowiedzi)

Skończyły mi się już pomysły na to co mogę robić w wolnym czasie. Mieszkam z narzeczonym w...

Szkoła Sokrates - proszę o opinie!! (22 odpowiedzi)

Czy może ktoś coś wie jak w tej szkole? Nie mogę znaleźć żadnych opinii.dziękuję

Język Japoński (5 odpowiedzi)

Wysoka jakość usług. Nauczyciele posiadają BARDZO dużą wiedzę na temat języka oraz kultury i są...

do góry