| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Greif
Administrator
Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Piotrowice k.Oświęcimia
|
 Wysłany: Sob 21:29, 20 Sty 2007 Temat postu: Kolokwium grupy 3 |
|
|
Pytania gr.3
| Cytat: | A.
1. Napisz deklaracje dla:
- zmiennych rzeczywistych (typu rzeczywistego),
- zmiennych znakowych (typu znakowego),
- tablicy jednowymiarowej,
2. Napisz instrukcję, wypisywania na ekranie monitora kwadratów liczb od 1 do 10.
3. Napisz instrukcję realizującą następujące zadanie:
Jeśli x≠0, to y=a/x
Jeśli x=0, to y=b.
4. Zdefiniuj funkcję, która oblicza wartość następującego wyrażenia:
y=x3-x+1 (x do potęgi 3)
5. Jaki jest wynik działania następującego ciągu instrukcji, tzn. ile będzie wynosiło k? Przedstaw obliczenia na kartce.
n:=0;
k:=1;
repeat
while k:=2*k+1;
n:=n+1;
until n=5
|
| Cytat: | B.
1. Zadeklaruj:
a. typ rekordowy o nazwie Pracownik zawierający pola, imię, lata pracy,
b. zmienną typu Pracownik,
c. typu znakowego
d. tablicę reprezentującą tablicę jednowymiarową, której elementem są łańcuchy znaków.
2. Napisz instrukcję wypisywania na ekranie monitora liczb od 1 do 10
3. Jaki jest wynik działania następującego ciągu instrukcji, tzn. ile będzie wynosiło k?
n:=0;
k:=1;
repeat
k:=k+n;
n:=n+1;
until n=4
4. Napisz instrukcję realizującą:
Jeśli d<0, wypisz brak rozwiązania
Jeśli d≥0, wypisz instnieją pierwiastki
5. Zdefiniuj funkcję, która oblicza wartość następującego wyrażenia:
y=x2+1 (x do kwadratu)
|
Jeżeli ktoś z Was umie to napisać, to proszę bardzo, piszcie...
Proszę tylko, żeby pisać np. Ad.A3 albo Ad.B4 i dopiero pomysł na rozwiązanie. Chodzi o porządek, swoje posty możecie edytować lub całkiem usunąć. Usunąć tylko pod warunkiem, że nikt na niego jeszcze nie odpowiedział (jak tak, to pisać do mnie). Wszystko jest w FAQ.
Jak się odrobię, to może coś sam napiszę...
Jak zwykle, fragmenty programów obejmujemy znacznikiem CODE 
Pozdrawiam
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
 |
|
|
 |
Greif
Administrator
Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Piotrowice k.Oświęcimia
|
| Wysłany: Wto 1:32, 23 Sty 2007 Temat postu: |
|
|
A1 - Autor: mogur
| Kod: | var x:real;
zn:char;
a:array[1..n] of integer |
A2 - Autor: Greif
Tyle chyba by wystarczyło, chociaż nie wiem, czy begin i end nie są potrzebne
| Cytat: | for k:=1 to 10 do
writeln(k*k); |
Program:
| Kod: | Program petla_for;
var k:integer;
begin
for k:=1 to 10 do
writeln(k*k);
readln;
end. |
A3 - Autor: mogur
| Kod: | program gr3A3;
var x,y,a,b:real;
begin
writeln(' wpisz x: ');
readln(x);
if x<>0 then
writeln(' y=a/x');
if x=0 then
writeln(' y=b');
readln;
end. |
Autor: zmoniasta
| Kod: | if x<>0 then
y:=a/x;
if x=0 then
y:= b; |
Autor: Greif
Chyba da się prościej:
| Kod: | | if x<>0 then y:=a/x else y:= b; |
I program:
| Kod: | Program Gr3A3;
var a,b,x,y:real;
begin
a:=1;
b:=2;
write('Podaj x = ');readln(x);
if x<>0 then y:=a/x else y:= b;
writeln(y:5:3);
readln {bez średnika też może być}
end. |
A4 - Autor: mogur
| Kod: | function row_lin3A4 (x:real):real;
begin
y:=(x*x*x)-x+1;
end; |
A5 - Autor: zmoniasta
| Cytat: | 1) k=2*1+1=2
2) k=2*2+1=5
3) k=2*5+1=11
4) k=2*11+1=23
5) k=2*23+1=47 |
===============
B1 - Autor: mogur
| Kod: | A: type dane=rekord
imie:string[12];
lat:string[2];
end;
spis=array[1..n] of dane;
B: var pracownik:spis
C: var zn:char;
D: type karty=array[1..10] of string[15];
var naz:karty; i:byte; |
Autor: zmoniasta
| Kod: | type
pracownik=rekord
Imie:string[30];
lata_pracy:integer;
end;
var
zmienna1:pracownik;
zmienna2:char;
zminna3 = array[1..100] of string[10]; |
B2 - Autor: Greif
Analogicznie do A2
| Cytat: | for k:=1 to 10 do
writeln(k); |
Program:
| Kod: | Program petla_for;
var k:integer;
begin
for k:=1 to 10 do
writeln(k);
readln;
end. |
B3 - Autorzy: zmoniasta, mogur
| Cytat: | k=1+0=1
k=1+1=2
k=2+2=4
k=4+3=7 |
Program mogura:
| Kod: | program gr3B3;
var k,n:integer;
begin
n:=0;
k:=1;
repeat
k:=k+n;
n:=n+1;
until n=4;
writeln('W w wyniku działania tej instrukcji k=',k);
readln
end. |
Program wypisuje cyfrę 7.
B4 - Autor: zmoniasta, mogur
| Kod: | if d<0 then
writeln(‘brak rozwiązania’);
else
writeln(‘istnieją pierwiaski’); |
I program:
| Kod: | program gr3B4;
var d:real;
begin
writeln(' wpisz d: ');
readln(d);
if d<0 then writeln(' brak rozwiązania')
else writeln(' istnieją pierwiastki');
readln;
end. |
B5 - Autor: mogur
| Kod: | function row3B5 (x:real):real;
begin
y:=x*x+1; { lub y:=Sqr(x)+1 }
end; |
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
moniaskor
Początkujący
Dołączył: 21 Sty 2007
Posty: 12
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Pią 20:15, 26 Sty 2007 Temat postu: ???? |
|
|
> 1) k=2*1+1=2 <
?????????
Zad A5 - hm, może to ze mną coś nie tak jednak.
Pomijam już samą treść tego zadania. Jak to moi uczniowie mawiają: "no, nie kapce" 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
mogur
Coś już napisał
Dołączył: 15 Sty 2007
Posty: 41
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Alwernia
|
| Wysłany: Pią 21:02, 26 Sty 2007 Temat postu: |
|
|
A 5 )
Jaki jest wynik działania następującego ciągu instrukcji, tzn. ile będzie wynosiło k? Przedstaw obliczenia na kartce.
n:=0;
k:=1;
repeat
while k:=2*k+1;
n:=n+1;
until n=5
ponieważ instrukcja dopóki ma składnię
while wyrażenie do instrukcja
a w zadaniu nie ma „do” to znaczy, że jest jakaś pomyłka
(pisałem już gdzieś o tym, to jest ta druga pomyłka)
to być może powinno wyglądać tak:
n:=0;
k:=1;
repeat
k:=2*k+1;
n:=n+1;
until n=5
| Kod: | program gr3A5;
var k,n:integer;
begin
n:=0;
k:=1;
repeat
k:=2*k+1;
n:=n+1;
until n=5;
writeln(k:3);
readln
end.
|
Na ekranie pokazuje się wynik: 63. Jeżeli jest błąd to nie wiem gdzie?
a z wyliczeń wychodzi mi:
1) k=2*1+1=3
2) k=2*3+1=7
3) k=2*7+1=15
4) k=2*15+1=31
5) k=2*31+1=63
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
moniaskor
Początkujący
Dołączył: 21 Sty 2007
Posty: 12
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Pią 21:44, 26 Sty 2007 Temat postu: |
|
|
No i o to chodziło - teraz mamy wspólną wersję tego niezbyt udanie sformułowanego zadania:)
Dużo ludzi z Waszej grupy dzie na egzamin 2 lutego?
pozdrowionka
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
mogur
Coś już napisał
Dołączył: 15 Sty 2007
Posty: 41
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Alwernia
|
| Wysłany: Pią 21:46, 26 Sty 2007 Temat postu: |
|
|
raczej nie mało
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
moniaskor
Początkujący
Dołączył: 21 Sty 2007
Posty: 12
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Pią 21:48, 26 Sty 2007 Temat postu: |
|
|
Ale damy radę. Pozdrowionka dla kujonów, którzy nie mają szczęścia uczestniczyć w tym wydarzeniu.
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
mogur
Coś już napisał
Dołączył: 15 Sty 2007
Posty: 41
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Alwernia
|
| Wysłany: Pią 21:59, 26 Sty 2007 Temat postu: |
|
|
NA PEWNO! POWODZENIA !!!
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
Greif
Administrator
Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Piotrowice k.Oświęcimia
|
| Wysłany: Sob 0:25, 27 Sty 2007 Temat postu: |
|
|
Witamy aktywną koleżankę  , to o kujonach było do mnie 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
moniaskor
Początkujący
Dołączył: 21 Sty 2007
Posty: 12
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Sob 13:15, 27 Sty 2007 Temat postu: |
|
|
Z tego co widziałam na liście to więcej takich kujonów mamy w grupie 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
mogur
Coś już napisał
Dołączył: 15 Sty 2007
Posty: 41
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Alwernia
|
| Wysłany: Nie 23:53, 28 Sty 2007 Temat postu: |
|
|
B3
| Kod: |
n 1 n=0 k=1+0=1
n 2 n=0+1=1 k=1+1=2
n 3 n=1+1=2 k=2+2=4
n 4 n=2+1=3 k=4+3=7
|
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
