Fexclub.su Технологии Программирование и исходники

Pascal (вопросы, задачи, лабораторные работы)

Страница 4 из 55 1  2  3  4  5  6  7  8 / 14 / 24 / 54 / Последняя »
STR@HHи|{ 28.05.2013, 16:09
Про код я так сказал потомучто было похоже.
Вот програмка для ленивых, с первым запуском кода создаёт ехе.
Шахтёр 29.05.2013, 01:26
потом compile/compile и вуаля. :)
вроде так.
Спасибо,сработало!
VBr 31.05.2013, 16:36
Помогите срочно:(задача:в одномерном массиве элементы между макс и мин заменить на нули и вывести получившийся массив
Sidius 31.05.2013, 16:49
Помогите срочно:(задача:в одномерном массиве элементы между макс и мин заменить на нули и вывести получившийся массив

Находишь минимальный, находишь максимальный. Их индексы. Заменяешь. В чем сложность, не понятно..
VBr 31.05.2013, 17:00
да вот нашол всё а как заменить между ними не включая их и вывести массив новый?
Ep1cus 31.05.2013, 17:42
to VBr

uses crt;
const n=15;
var
i, min, max, minIndex, maxIndex : integer;
k : array [1..n] of integer;
begin
clrscr;
randomize;
for i := 1 to n do begin
k[i] := random(20);
Write(k[i],' ');
end;
ReadLn;
min := k[1];
for i := 1 to n do
if min > k[i] then begin
min := k[i];
minIndex := i;
end;
WriteLn('minimum: ',min);
ReadLn;
max := k[1];
for i := 1 to n do
if max < k[i] then begin
max := k[i];
maxIndex := i;
end;
WriteLn('maximum: ',max);
ReadLn;
if minIndex < maxIndex then
for i := minIndex + 1 to maxIndex - 1 do
k[i] := 0
else
for i := minIndex - 1 downto maxIndex + 1 do
k[i] := 0;
for i := 1 to n do begin
Write(k[i],' ');
end;
ReadLn;

end.

Вот.
VBr 31.05.2013, 20:29
ОГРОМНОЕ СПАСИБ!!
VBr 31.05.2013, 21:43
а вдругой задаче мне надо мах элемент заменить на противоположный, всё сделал но только вот новый массив вывести не могу что куда надо присвоить не разберусь:(
var i, max:integer;
a: array [1..10] OF INTEGER;
begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(20);
write(a[i],' ');
end;
max:=a[i];
for i:=1 to 10 do
if max<a[i] then
max:=a[i];
writeln('max:',max);
readln;
for i:=1 to 10 do
max:=-max;
write('-max:',-max);
write(a[i],' ');
end;
readln;
end.
Ep1cus 31.05.2013, 22:40
Что значит мах элемент заменить на противоположный? Что за противоположный?
LiN 31.05.2013, 22:43
Что значит мах элемент заменить на противоположный? Что за противоположный?

отрицательный ..надо просто на -1 умножить))
Ep1cus 31.05.2013, 22:49
Курить.

uses crt;
var i, max, buff : integer;
a: array [1..10] OF INTEGER;
begin
clrscr;
randomize;
for i:= 1 to 10 do begin
a[i]:= random(20);
write(a[i],' ');
end;
max:=a[i];
for i:=1 to 10 do
if max<a[i] then begin
max:=a[i]; buff := i;
end;
ReadLn;
WriteLn(' max: ',max);
WriteLn('-max: ',-max);
Readln;
max := -max;
a[buff] := max;
for i:=1 to 10 do
Write(a[i],' ');
ReadLn;
end.
winner.777 28.06.2013, 02:42
Помогите пожалуйста. Надо решить задачу:
С клавиатуры вводятся два целых числа a и b. Найдите сумму квадратов чисел от a до b.
a= -4
b= 7
S= 170

Вот мое решение , но че-то не так:

Var
a, b, i, s : Integer;
Begin
Write('vvedite a i b: ');
Read(a, b);
s:= 0;
For i:= a to b Do
Begin
s :=sqr(i) + sqr(i+1);
End;
WriteLn('s: ',s);
End.
winner.777 28.06.2013, 02:46
И еще с одной помогите пож.
Напишите программу , которая выводит все совершенные числа , не превосходящие 10000.
6
28
...
Ep1cus 28.06.2013, 03:41
В первой задаче даже не стал разбираться - у тя фигня какая то в коде, легче заного написать.

По первой задаче:
uses crt;
var a, b, s, i : integer;
begin
clrscr;
WriteLn ('Enter A:');
ReadLn(a);
WriteLn ('Enter B:');
ReadLn(b);
if a > b then begin
WriteLn('Error. A > B.');
ReadLn;
Exit;
end;
s := 0;
for i := a+1 to b-1 do begin
s:= s + sqr(i);
end;
WriteLn('Summa kvadratov - ',s);
ReadLn;
End.

По второй задаче:

Какой там алгоритм? Т.е как ты предлагаеш находить все делители числа и потом проверять число на совершентсво? Не превышающих 10000 чисел только четрые - 6, 28, 496, 8128.
Формула Дирихле для числа делителей находит только число делителей, но не их значения. Хз че там делать...
winner.777 28.06.2013, 03:50
ты сам тестировал ее? ничего не верно!
Страница 4 из 55 1  2  3  4  5  6  7  8 / 14 / 24 / 54 / Последняя »
Похожие темы
С++ (вопросы, задачи, лабораторные работы)
Лабораторные работы Си Си++ Pascal 100р
Задачи по информатике (Pascal)
Готовые лабораторные работы
помощь в программировании / лабораторные работы, etc