Языки и технология программирования. Начальный курс \Pascal\
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
to 10 do
begin
writeln('эээээээ ',i,' эээээ: ');
readln(x);
if x>0 then kn:=kn+1 {эээээээээээ ээээээээээ ээ 1}
end;
writeln('ээ эээээ ',kn,' эээээээээээээ эээээ.');
readln
end.
ээээээ: ээээээээээ эээээ ээ 'Z' ээ 'A'.
program cycle_for2;
var c:char;
begin
for c:='Z' downto 'A' do write(c);
readln
end
ээээээ: эээээээээ N-э эээээ ээээээээээ. эээээ ээээээээээ ээээээээ эээээээээ эээээээ: F(0)=F(1)=1; F(i+1)=F(i)+F(i-1); эээ i>=1. эээ ээээээ ээээээээээ ээ ээээээээээээ ээээээээ.
program Fib;
var a,b,c:word; i,n:byte;
begin
write('эээээээ эээээ эээээ ээээээээээ ');
readln(N);
a:=1; {a=F(0), a эээээээээээээ F(i-2)}
b:=1; {b=F(1), b эээээээээээээ F(i-1)}
for i:=2 to N do
begin
c:=a+b; {c эээээээээээээ F(i)}
a:=b; b:=c; {э ээээээээ a э b эээээээ эээээээээ ээээ эээээ}
end;
writeln(N,'-э эээээ ээээээээээ =',b); {эээ N>=2 b=c}
readln
end.
эээээ э ээээээээ.
ээээ эээээээ ээээээээээ эээээ ээээээээээ эээээ, ээ ээээээээээээ эээээ э ээээээээ. э эээээээ эээээээ эээ ээээ эээээ ээээээ. эээээ While ээээээээ эээээээ э ээээ-ээээээээ. эээ эээээ эээ
WHILE ;
ээээ While ээээээээээ ээээээээээ ээээээ (ээээээээ ээээээээээ) эээээээээ ээээ эээээээ ээээээээээ эээээээээ, эээээээ э эээээээээ эээээ. эээээээээ ээээээээ эээээээээээ эээээээээ эээээээээээ э ээээээ ээээээ ээээээээ, ээ ээээ эээээ эээээ ээ эээээээээээ ээ ээээ. эээээ эээээээ, э ээээ эээээ ээээээээээ эээээээээ - эээ эээээээ эээээээээээ ээээээ э эээээ.
ээээээ эээээээ ээээээ э ээээээээ - эээ эээээ Repeat. ээ ээээээээ эээээээ э ээээ-ээээээээ. эээ эээээ эээ
REPEAT
UNTIL
ээээээээ Repeat ээээээээээ эээээээээээээ ээээээээээ ээээээээээ ээээээээээ ээ эээ эээ ээээ ээ ээээээ ээээээээ эээээээ, эээээээ э Until-эээээ. ээээ эээээ эээээээээээ эээээээээээ ээээ ээ ээээ эээ. эээээ эээээээ, э ээээ эээээ ээээээээээ эээээээээ - эээ эээээээ ээээээ ээ эээээ.
эээ ээээээээ эээээээээээ ээээээээээ эээээ эээээээ эээээээээ ээээээээээээ эээээээээ Continue э Break. эээээээээ Continue ээээээээ эээээээээ эээээээээ эээ эээээ, ээээээээ ээээээээээ ээ эээээээээ. эээээээээ Break эээээээээ эээээээээээ эээээ ээ эээээ.
ээээээээээээ: эээ ээээ, эээээ ээээээээ ээээээээээээ эээээээээ ээээээээээ ээээээээээ эээээээээ ээ ээээээ ээээ эээээ ээээээээ ээээ ээ эээээ ээээээээээ, ээээээээ э эээээээ эээээ. эээээ ээээээ ээ эээээ ээ эээээээ ээээээээ (э ээээээээээээээ ээээээээ and, or, xor) эээ эээээээ ээээээээээ ээээээээ ээээ, ээ ээээээ эээээээ ээээ ээээээээ.
ээээээ: ээээ эээээээээээээээ ээээээээээээ эээээ ээээээээ э ээээээээээ. эээээээээ ээээээээээээ эээ ээээээ ээээ э эээээ ээээ эээээ.
program cycle_while;
var x,y,sum:real; otv:char;
begin
sum:=0;
otv='э';
while (otv='э') or (otv='э') do
begin
write('эээээээ эээээ x,y > 0 ');
readln(x,y);
writeln('ээ ээээээээээээ = ',x*y:8:3);
sum:=sum+x+y;
write('эээээээээ эээээээээ (э/э)? ');
readln(otv);
end;
writeln('эээээ эээээ = ',sum:8:3);
readln
end.
ээээээ: э эээ ээ ээээээ эээээ ээээээээээээ ээээээ ээээ э ээээээээ:
program cycle_repeat;
var x,y,sum:real; otv:char;
begin
sum:=0;
repeat
write('эээээээ эээээ x,y > 0 ');
readln(x,y);
writeln('ээ ээээээээээээ = ',x*y:8:3);
sum:=sum+x+y;
write('эээээээээ эээээээээ (э/э)? ');
readln(otv);
until (otv='э') or (otv='э');
writeln('эээээ эээээ = ',sum:8:3);
readln
end.
ээээээ: ээээээээээ эээээээээээ ээээээ ээээээээ ээээ эээээ эээээ э эээээээ эээээээээ эээээээ.
program Evklid;
var a,b,c:integer;
begin
write('эээээээ эээ эээээ эээээ : ');
readln(a,b);
while b<>0 do
begin
c:=a mod b;
a:=b;
b:=c;
end;
writeln('ээээээээээ эээээ ээээээээ = ',a);
readln
end.
ээээээээээээээээ ээээ ээээээ
э эээээ эээээээ ээээээээээээ ээээээээ ээээээээ эээээ эээээ, эээээээ эээээээ ээээээээ эээээээээээээээээ эээ эээээээээээээээ. ээ эээээ эээээээээ ээ ээээээ эээээээээээ э эээээ эээээээээ эээээ. ээээээээ эээээ эээээ ээээээээээ э эээээээ TYPE. эээээ эээээ эээээ э эээээээ Var эээээээээ ээээээээээ ээээ эээээ. эээээ, эээээ эээээ эээээээээ эээээ эээ эээ ээээээээ ээээээээээ э эээээээ Var. э ээээ эээээ ээ ээээээээээ эээээээээ ээээээээээээээээ ээээ:
- эээээээээээээ эээ,
- эээ-ээээээээ,
- эээээээ,
- ээээээ.
эээээээээээээ эээ
эээээээээээээ эээ ээээээээ эээээээээээээ эээ ээээээээ, эээээээ ээ эээээ ээээээээ. ээээээ ээээээээ ээээээ ээээээээ эээээээээээээээ (ээээээ эээээ эээээээ эээээ) э эээээээээээээ э эээээээ эээээээ эээээ эээээээ. ээээээээээ эээээээээ э ээээээээээээ ээ эээээ 65536. эээээээ э ээээээээ ээээээээээ ээээээээээээээ ээээ эээээээээ. ээээээээээээ эээ ээээээээ ээээээээээ (ээээээ эээээ ээээ ээээээ), эээээээ э ээээээээээ ээээээ ээээ эээээ эээээээээ эээээээ Ord, Pred, Succ. эээээээ Ord ээээээээээ ээээээээээ эээээ ээээээээ эээээээ э ээээ.
ээээээ: ээээээээээ эээээээээээээ эээээ.
Type Colors = (Red,Green,Blue);
Numbers = (Zero,One,Two,Three,Four,Five);
var c:Colors; n:Numbers;
begin
c:=Red; write(Ord(c)); {0}
n:=Four; write(Ord(n)); {4}
c:=Succ(c); {c=Green}
for n:=One to Five do write(Ord(n)); {12345}
end.
эээээээ ээээээээ, эээ эээээээээээ ээээ byte, word, char э boolean эээээ эээээ эээээээ ээээээээээ