ну вот я случайно нашол какбы - на экране куб его можно поворачивать клавишами курсора)) разберешся - допишеш)Задача такова:так есть новая задача. нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану. вот собственно и все
очень прошу помощи
1.Помогите плз с 2-мя задачками:
1. Дан массив d[5]. Поменять местами максимальный и минимальный элементы в массиве. Элементы массива вводит пользователь. Вывести на экран массив после обмена. Контрольный пример:
5 41 7 3 13
5 3 7 41 13
2. Дан массив d[5]. Посчитать сколько минимальных элементов в массиве. Элементы массива вводит пользователь. Контрольный пример:
2 10 2 2 100
Количество минимальных элементов = 3
Заранее большое спс!
Uses
crt;
Var
arr:array[1..5] of integer;
min,max,minpos,maxpos,temp,i:integer;
Begin
writeln;
for i:=1 to 5 do
read(arr[i]);
min:=arr[1]; max:=arr[1];
minpos:=1; maxpos:=1;
for i:=1 to 5 do
if arr[i]>max
then
begin
max:=arr[i];
maxpos:=i;
end
else
if arr[i]<min
then
begin
min:=arr[i];
minpos:=i;
end;
temp:=arr[minpos];
arr[minpos]:=arr[maxpos];
arr[maxpos]:=temp;
writeln;
for i:=1 to 5 do
write(arr[i],' ');
readkey;
end.
uses crt;
var
arr:array[1..5] of integer;
min,count,i:integer;
begin
writeln;
for i:=1 to 5 do
read(arr[i]);
min:=arr[1];
for i:=1 to 5 do
if arr[i]<min
then
min:=arr[i];
for i:=1 to 5 do
if arr[i]=min
then
inc(count);
writeln;
writeln('kol-vo min vxogd. = ',count);
end.
На том же таки форуме описан этот же код и без использования встроенного ассемблера — думаю, немногие его знают, а те, которые знают, наверное не задают вопросов на этом форуме . Так что лучше было бы привести тот второй вариант листинга, это по крайней мере облегчило бы понимание алгоритма программы.ну вот я случайно нашол какбы - на экране куб его можно поворачивать клавишами курсора)) разберешся - допишеш)
да я тот форум уж еи непомню случайно нашол))))
омгПомогите умые программисты)
1. Скласти програму знаходження довжини коля
2. Скласти програму знаходження площi трапецii
3. Скласти програму знаходження обьему акварiуму (довжину сторiн обрати самостiйно)
ПомогитЕ) а то Турбен в голову не лезит
2.program kryg;
uses crt;
var s,r:real;
begin
clrscr;
writeln("Введите радиус круга");
readln(r);
s:=2*r*pi;
writeln("Длина круга равна: ",s);
end.
3ю сам напишешь...program trap;
uses crt;
var a,b,h,s:real;
begin
clrscr;
writeln("Введите большую основу");
readln(a);
writeln("Введите меньшую основу");
readln(b);
writeln("Введите высоту");
readln(h);
s:=0.5*(a+b)*h;
writeln("Площадь равна: ",s);
end.