Turbo Pascal

[Glu4it]

Задача такова:так есть новая задача. нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану. вот собственно и все

очень прошу помощи

 

[Cris]

Задача такова:так есть новая задача. нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану. вот собственно и все

очень прошу помощи

ну вот я случайно нашол какбы - на экране куб его можно поворачивать клавишами курсора)) разберешся - допишеш)

 

[LaGoS]

Помогите плз с 2-мя задачками:
1. Дан массив d[5]. Поменять местами максимальный и минимальный элементы в массиве. Элементы массива вводит пользователь. Вывести на экран массив после обмена. Контрольный пример:
5 41 7 3 13
5 3 7 41 13

2. Дан массив d[5]. Посчитать сколько минимальных элементов в массиве. Элементы массива вводит пользователь. Контрольный пример:
2 10 2 2 100
Количество минимальных элементов = 3

Заранее большое спс!

 

[Meiji]

Помогите плз с 2-мя задачками:
1. Дан массив d[5]. Поменять местами максимальный и минимальный элементы в массиве. Элементы массива вводит пользователь. Вывести на экран массив после обмена. Контрольный пример:
5 41 7 3 13
5 3 7 41 13

2. Дан массив d[5]. Посчитать сколько минимальных элементов в массиве. Элементы массива вводит пользователь. Контрольный пример:
2 10 2 2 100
Количество минимальных элементов = 3

Заранее большое спс!

1.

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.

2.

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.

 

[[Spider]]

ну вот я случайно нашол какбы - на экране куб его можно поворачивать клавишами курсора)) разберешся - допишеш)

На том же таки форуме описан этот же код и без использования встроенного ассемблера — думаю, немногие его знают, а те, которые знают, наверное не задают вопросов на этом форуме . Так что лучше было бы привести тот второй вариант листинга, это по крайней мере облегчило бы понимание алгоритма программы.

 

[Cris]

да я тот форум уж еи непомню случайно нашол)))) я просто искал разные способы запуска графифи в паскале)

 

[[Spider]]

да я тот форум уж еи непомню случайно нашол))))

You must be registered for see links

 

[DrapokyR]

Помогите умые программисты)

1. Скласти програму знаходження довжини коля

2. Скласти програму знаходження площi трапецii

3. Скласти програму знаходження обьему акварiуму (довжину сторiн обрати самостiйно)

ПомогитЕ) а то Турбен в голову не лезит

 

[Пух]

Помогите умые программисты)

1. Скласти програму знаходження довжини коля

2. Скласти програму знаходження площi трапецii

3. Скласти програму знаходження обьему акварiуму (довжину сторiн обрати самостiйно)

ПомогитЕ) а то Турбен в голову не лезит

омг
1.

program kryg;
uses crt;
var s,r:real;
begin
clrscr;
writeln("Введите радиус круга");
readln(r);
s:=2*r*pi;
writeln("Длина круга равна: ",s);
end.

2.

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.

3ю сам напишешь...
п.с. нет проверки на правильность введенных данных(стороны должны быть больше нуля). Не думаю что на таком уровне оно нужно(+скорей всего if else ещё не учили).

 

[AkeL.php]

1 задача, длина окружности = 2*pi*R