Кому порешать задачи - пишите сюда

[Glu4it]

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

 

[Stasian]

hariks,
спасибо за задачу!

 

[Michael]

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

на каком языке?

 

[Glu4it]

паскаль

 

[Stasian]

Пожалуйста помогите решить задачки!

Язык: Паскаль.
Тема: Двумерный массив
Условие: В заданной матрице заменить К-юстрокуи L -йстолбец нулями, кроме
элемента, расположенного на их пересечении.

Язык: Паскаль
Тема: Строки
Условие: Дана строка, состоящая из слов, разделенных пробелами. Напишите
программу, удаляющуюлишниепробелы. Пробелсчитаетсялишним, еслион
стоитвначалестроки; стоитвконцестроки; следуетзапробелом.


Заранее благодарен!

 

[Fassy]

Очень-очень нужно.Пожалустааа!
Язык - паскаль
тема - записи
условие
ввести массив записей фамилия\адрес.отсортровать по фамилии.пользователь вводит фамилию адрес и программа сама вставляет это в нужное место ивыводит на экран

Зарание спасибо

 

[Glu4it]

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

 

[Anita]

Язык: Паскаль.
Тема: Двумерный массив
Условие: В заданной матрице заменить К-юстрокуи L -йстолбец нулями, кроме
элемента, расположенного на их пересечении.


Program help;
var A:array [1..10,1..10] of integer;
k,l,m,n,i,j:integer;
begin
writeln ('radkiv');
readln(n);
writeln('stovpciv');
readln(m);
writeln ('k');
readln(k);
writeln('l');
readln(l);
for i:=1 to n do
for j:=1 to m do
begin
writeln ('vvedite A[',i,',',j,']=');
readln (A[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:6);
writeln
end;
for i:=1 to n do
for j:=1 to m do
begin
if (A[i,j]=A[i,l]) or (A[i,j]=A[k,j]) then if A[i,j]<>A[k,l]
then A[i,j]:=0
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:6);
writeln
end;
readln
end.

 

[Anita]

проверенно-работает

с удовольствием попробую решить задачи на масивы, операторы выбора, подпрограмы (процедуры и функции), циклов и прочее

к сожалению только начинаю осваивать паскаль, поэтому больше ничем не смогу помочь

 

[Stasian]

проверенно-работает

с удовольствием попробую решить задачи на масивы, операторы выбора, подпрограмы (процедуры и функции), циклов и прочее

к сожалению только начинаю осваивать паскаль, поэтому больше ничем не смогу помочь
11.12.2008 17:24
Спасибо, Anita, огромное, всего наилучшего в изучении паскаля!