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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2009, 19:15   #1
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию помогите пожалуйста

помогите сделать 2 задачки к завтрашней лабе по инфе, они для понимающих не сложные, но я балбес и вааще не понимаю такие задачи

1.
Тема: «Использование операторов цикла в языке Паскаль.»

Все исходные значения, в случае необходимости, запрашиваются у пользователя. Результат вычислений вывести на экран.
http://s53.radikal.ru/i140/0905/00/bcdacc355fdb.jpg

2.
Тема: «Работа со статическими массивами на языке Паскаль.»

Все массивы являются статическими. Программа должна предусматривать быструю смену размерности рабочих массивов с внесением минимальных изменений в код программы. Для заполнения значений исходного массива допускается использование генератора случайных чисел. Исходные данные вывести на экран. Результат вычислений вывести на экран.
http://s54.radikal.ru/i145/0905/c2/f1e3f1d6bd82.jpg

оч прошу помогите пожалуйста
Neytron вне форума Ответить с цитированием
Старый 07.05.2009, 19:22   #2
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

1.
Код:
var
   mul:real;
   i,n:integer;
begin
   writeln('Enter N: ');
   readln(n);
   mul := 1;
   for i:=0 to n-1 do 
      mul := mul*(1+6*i)/(2+6*i);
   writeln(mul:0:10);
end.
2. Например так.. лениво думать
Код:
const
	n=12;
type
	matrix=array[1..n,1..n] of integer;
var
	i,j:integer;
	A:matrix;
begin
	for i:=1 to n do begin
		for j:=1 to n do begin
			A[i,j] := j-i+1;
			if (A[i,j] < 0) then A[i,j] := 0;
			write(A[i,j]:3);
		end;
	writeln;
	end;
	readln;
end.
А зачем генератор случайных чисел, если нужно матрицу заполнить определенным образом?
Uguu~

Последний раз редактировалось __STDC__; 07.05.2009 в 19:41.
__STDC__ вне форума Ответить с цитированием
Старый 07.05.2009, 19:48   #3
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

не знаю, а в первой программе " writeln('Enter N: '); " так нада писать эт место или чет тут нада изменить?
Neytron вне форума Ответить с цитированием
Старый 07.05.2009, 20:15   #4
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

Можешь написать
Код:
writeln('Введите Нэ: ');
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 07.05.2009, 22:50   #5
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

эм, у меня в 1ой лабе при выполнение просит ввести N, я ввожу, но больше ничего не происходит
Neytron вне форума Ответить с цитированием
Старый 07.05.2009, 23:08   #6
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

происходит... нажми alt-f5.. или добавь перед последним эндом readln;
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 07.05.2009, 23:12   #7
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

при добваление readln; можно ввести 2 числа N, но при нажатии alt-f5 показывает протс то что я ввел
Neytron вне форума Ответить с цитированием
Старый 07.05.2009, 23:15   #8
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

при добавление readln; программа просто ожидает нажатия клавиши перед окончанием.. при нажатии alt-f5 просто появляются предыдущие результаты.. не понимаю, как сдавать лабы будешь? Вас там совсем не спрашивают что ли? просто код показываешь и все?
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 07.05.2009, 23:32   #9
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

ага, прост прогу показать и вывод, потом дадут задание, но ток оно простое, тип защита лабы
Neytron вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44