Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Samir
0 / 0 / 0
Регистрация: 29.01.2016
1

Pascal

25.12.2008, 20:38. Просмотров 506. Ответов 3
Метки нет (Все метки)

Помогите решить очень прошу.
Кто какие сможет, за ранее спасибо.
0
Миниатюры
Pascal  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2008, 20:38
Ответы с готовыми решениями:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и...

Нужен Turbo pascal или Free pascal на русском
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По...

Чем отличаются Turbo Pascal и Pascal ABC?
Чем отличаются турбо паскаль и abc? Просто у меня windows7 последняя теперь...

Pascal
Помогите! пожалуйста, составить две программы на Pascal 1) Дана...

3
GalaX
698 / 570 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
25.12.2008, 21:14 2
есть то, что ты уже пытался сделать?
0
Samir
0 / 0 / 0
Регистрация: 29.01.2016
26.12.2008, 01:57 3
Эти задачи вообще без понятие как сделать, а так 8 других сделал, просто завтра зачет, не знаю что делать вот и сюда обратился за помощью.

Добавлено через 4 часа 36 минут 44 секунды
помогите плиззз
0
GalaX
698 / 570 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
26.12.2008, 14:36 4
19
Код
array_count := 10;
min := a[1, 1];
min2 := a[array_count, 1];
for i:=1 to array_count do begin
	if a[i, i]<min then
		min := a[i, i];
	if a[array_count-i+1, i]<min2 then
		min2 := a[i, i];
end;
sum := 0;
sum2 := 0;
for i:=1 to array_count do begin
	if a[i, i]=min then
		inc(sum, min);
	if a[array_count-i+1, i]=min2 then
		inc(sum2, min2);
end;
writeln('Сумма минимальных главной = ', min);
writeln('Сумма минимальных побочной = ', min2);
Добавлено через 5 минут 5 секунд
24
Код
n := 1;
sum := 1;
for i:=2 to 10 do begin
	n := n * 2;
	inc(sum, n);
end;
writeln('Сумма = ', sum);
Добавлено через 4 минуты 16 секунд
25
Код
function sum(n : integer) : integer;
var c, s : integer;
begin
	s := 0;
	for c:=1 to n do
		inc(s, c);
	sum := s;
end;
...
summa := 0;
for i:=2 to 10 do
	inc(summa, sum(i));
writeln('Сумма = ', summa);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2008, 14:36

Os на pascal
очень хочу os на паскале

Pascal
пожалуйста напишите программу: написать программу вычисления произведений всех...

Pascal
Нужна помощь. Что нужно прописать в коде программы что бы программа после...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru