fortodo
Pascal for to do. :for < >:=<_> to <_> do <>;
for, to, do (, , );
< > , integer (byte);
<_> : , integer (byte);
<_> : , integer (byte);
<> , ( ).
for to do:
1 , .2 , . . <_>:= <_> + 1. .3 , . 4 , . . <_>:= <_>.
, for to do <_> − <_> + 1 . , :for < >:=<_> downto <_> do <>;
-1.
− Turbo Free Pascal , , .
3. , -3 6 0,3, ..
Program prim_f;
var x, y: real;
begin
x:=-3;
n:=round((6-(-3))/0.3)+1;
for i:=1 to n do
begin
y:=cos(exp(x*ln(5))/abs(x+2));
writeln('x=',x:4:2,' y=',y:7:3);
x:=x+0.3
end;
end.
()
Program summa;
Var
a: array [1..10] of integer;
i: integer;
Begin
Write (10 );
For i:=1 to 10 do Readln(a[i]);
writeln ( );
For i:=1 to 10 do write (a[i], );
Writeln;
end.
()
Program Lab5_1;
Const Predel=65;
Var M:array[1..Predel, 1..Predel] of real;
i,n:integer;
Begin
writeln( (n>0)(n<=,Predel,:);
readln(n);
writeln( :);
For i:=1 to n do
For j:=1 to n do
Begin
write(M[,i,,,j,]=);
readln(M[i,j])
end;
End.
|
|
1. .
2.
3. ,
4.- . .
5. ()
6. ()
7. ()
8. ()
9. ()
10. ()
11.() () 12. ()
13.
14. max ()
15. min ()
16. () 17. ()
18. ()
19. ()
20. max ()
21. ()
22. () 23. . .
24. . ( . ) 25. . . ( 26. () 27. (read,readln) 28. IF( )
29. CASE ( ) 30. (WHILE) 31. (REPEAT..) 32. (FOR.) 33. (WRITE,WRITELN.)
34. 35. () 36. IF()
37. CASE()
38. , ()
39. , ()
40. , (
41. ()
42. ()