Turbo Pascal

Glu4it

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

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

Cris

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

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

Вкладення

LaGoS

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

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

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

Meiji

here
Помогите плз с 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]

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

Cris

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

DrapokyR

-\Banned-/
Помогите умые программисты:))

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 ещё не учили).
 
Останнє редагування:
A

AkeL.php

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