Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.06.2009, 19:44   #1
AnjelikA
Новичок
Джуниор
 
Регистрация: 14.06.2009
Сообщений: 4
Радость помогите написать програмку на паскале

напишите плиз програмку на паскале, я студентка первого курса технического вуза, так што как нибудь по проще)) Дан двухмерный массив 5*5, вводимый с клавиатуры. Умножить все элементы в четных строках на 2, а в нечетных на 3, Вывести оба массива на экран
AnjelikA вне форума Ответить с цитированием
Старый 15.06.2009, 00:52   #2
VadEr
Форумчанин
 
Аватар для VadEr
 
Регистрация: 24.03.2009
Сообщений: 375
По умолчанию

Код:
const n=5;
var
  mas:array[1..n,1..n] of integer;
  i,j:byte;
begin
  writeln('Введите элементы массива');
  for i:=1 to n do
      for j:=1 to n do
        readln(mas[i,j]);
{выводим начальный массив}
  writeln('Массив до:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(mas[i,j]);
      writeln;
    end;
{преобразования}
  for i:=1 to n do
      for j:=1 to n do
        if i mod 2 = 0 then {если строка четная}
           mas[i,j] := mas[i,j]*2
        else mas[i,j] := mas[i,j]*3; {если строка не четная}
{выводим преобразованный массив}
  writeln;
  writeln('Массив после:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(mas[i,j]);
      writeln;
    end;
  readln
end.
VadEr вне форума Ответить с цитированием
Старый 15.06.2009, 09:19   #3
AnjelikA
Новичок
Джуниор
 
Регистрация: 14.06.2009
Сообщений: 4
Подмигивание

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

ОоОчень нужно
Изображения
Тип файла: jpg Безымянный.jpg (2.0 Кб, 150 просмотров)

Последний раз редактировалось Stilet; 15.06.2009 в 12:36.
AnjelikA вне форума Ответить с цитированием
Старый 15.06.2009, 12:37   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Хых... Анимация пошла )
Тут уже обсуждалось как нарисовать машину на паскале и заставить ее ехать по экрану. Рули поиском.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.06.2009, 13:26   #5
AnjelikA
Новичок
Джуниор
 
Регистрация: 14.06.2009
Сообщений: 4
По умолчанию

(((ничего найти не могу.....мальчики, ну напишите((
AnjelikA вне форума Ответить с цитированием
Старый 15.06.2009, 13:47   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Анжелика,
Вот примеры:
http://www.programmersforum.ru/showt...EE%E1%E8%EB%FC
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.06.2009, 22:02   #7
AnjelikA
Новичок
Джуниор
 
Регистрация: 14.06.2009
Сообщений: 4
По умолчанию

я в этом совсем не бум бум((( ну напишите плиз(( мне нужен именно грузовой, мне завтра надо допуск получить до экзамена((а в среду экзамен(((очень прошу
AnjelikA вне форума Ответить с цитированием
Старый 15.06.2009, 22:27   #8
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

художник из меня конечно...
Код:
uses
	graph,crt;
	
var
	gd,gm:integer;
	x,xmax:integer;
begin
	detectgraph(gd,gm);
	initgraph(gd,gm,'');
	x := 0;
	xmax := getmaxx div 2;
	setcolor(2);
	while (x <= xmax) do begin
		cleardevice;
		rectangle(100+x,100,180+x,150);
		rectangle(100+x,150,250+x,160);
		rectangle(195+x,115,250+x,150);
		rectangle(230+x,120,245+x,130);
		circle(120+x,155,15);
		circle(230+x,155,15);
		delay(50);
		inc(x);
		if (x = xmax) then x := 0;
	end;
	readln;
	closegraph;
end.
***
наверное лучше чуть увеличить шаг и задержку, чтобы от мерцания немного избавиться...
Uguu~
__STDC__ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите пожалуйста написать програмку для вычисления квадратного корня ! срочно !!! ylvia Помощь студентам 7 20.02.2012 19:29
Помогите написать програмку на Delphi Lisa_01 Помощь студентам 5 15.01.2009 21:12
помогите написать програмку. Kashp Помощь студентам 14 03.09.2007 10:54
Требуется написать маленькую програмку mivang Фриланс 2 02.04.2007 16:15