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

Glu4it

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

Michael

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

Stasian

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

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

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


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

Fassy

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

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

Glu4it

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

Anita

There is no place like 12
Язык: Паскаль.
Тема: Двумерный массив
Условие: В заданной матрице заменить К-юстрокуи 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

There is no place like 12
проверенно-работает

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

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

Stasian

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

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

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