Автор: Nox 21.09.2003 23:57
Ладно извените.Пожалусто обясните что такое масивы?
???
Автор: AlaRic 22.09.2003 0:24
Урок 11 http://pascal.dax.ru/?lessons&id=1&page=11
Автор: Nox 23.09.2003 22:34
Помогите пожалуста как написать ету прогу без масивов
Код
Program A;
uses crt;
var
a:array[1..10] of real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do read(a[i]);
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:=a[i];
writeln('Равно: ',round(min));
readkey
end.
И еще посмотрите по етой ссылке http://home.interstar.com.ua/~music/Zadacha_Paskal.htm задания и проверте правельно рещена задача
Код
Program b;
var
a,f:real;
begin
writeln(‘Введите a и x’);
readln(a,x);
if a>=2 then
f:=exp(6*ln(x))-a;
else
if (a>0) and (a<2) then
f:=2ax+abs(a-1);
else
if a<=0 then
f:=sqrt(f);
writeln(‘f =’,f);
end.
Автор: APAL 24.09.2003 11:46
Цитата
Помогите пожалуста как написать ету прогу без масивов
Program A;
uses crt;
var
a:array[1..10] of real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do read(a[i]);
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:=a[i];
writeln('Равно: ',round(min));
readkey
end.
Ну например так:
Код
Var m,min : real;
i : Byte;
Begin
writeln('Введите 10 чисел');
for i:=1 to 10 do
Begin
read(m);
if i=1 then min:=m else
If m<min then min:=m;
End;
writeln('Равно: ',round(min));
Readln;
End.
Автор: nonename13 20.10.2003 0:08
Задача по уроку 14.
Мигающие огни по прямоугольнику 40 на 10.
Помогите с рисованием правого столбца, а то он не меняется по одному символу, а моргает весь. :-/ Надеюсь, понятоно.