Синтаксис делфи чем то от паскаля отличается? Ну конечно если грубо сравнивать только простые вычисления и работу с массивами.
Написал: Neformat
17.05.2010 / 18:24
EZHIK (Сегодня / 14:12)
5. СП подсчёта чисел наименьших по модулю элементов массива.
Наименьших по модулю, что значит наименьших? 10 самых наименьших? Или наименьших в каком то интевале?
---
С тебя магарыч, второе задание накидаю, как домой прийду.
Написал: Neformat
17.05.2010 / 18:23
1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)
program visavi;
uses CRT;
var
q,c,d,n,i,j:integer;
A:array [1..100] of integer;
B:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
write('Введите C: ');
readln(c);
write('Введите D: ');
readln(d);
j:=0;
for i:=1 to n do
begin
if (A[i]>=C) and (A[i]<=D) then
begin
j:=j+1;
B[j]:=A[i];
end;
end;
writeln;
writeln('Массив элементов из интервала CD:');
for i:=1 to j do
begin
write(B[i], ', ');
end;
writeln;
q:=B[1];
for i:=2 to j do
begin
if B[i]>q then q:=B[i];
end;
writeln('Максимум в интевале CD: ',q);
readln;
end.
3. СП вычисления разности между max и min элементом массива.
program visavi;
uses CRT;
var
z,p,q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
writeln;
q:=A[1];
for i:=2 to n do
begin
if A[i]>q then q:=A[i];
end;
p:=A[1];
for i:=2 to n do
begin
if A[i]<p then p:=A[i];
end;
writeln('Максимум: ',q);
writeln('Минимум: ',p);
z:=q-p;
writeln;
writeln('Результат: ',z);
readln;
end.
4. СП замены в массиве нулевых элементов массива на квадрат певого элемента
program visavi;
uses CRT;
var
q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
writeln;
q:= A[1]*A[1];
writeln('Старый массив:');
for i:=1 to n do
begin
write(A[i], ', ');
end;
writeln;
for i:=1 to n do
begin
if A[i]=0 then A[i]:=q;
end;
writeln('Новый массив:');
for i:=1 to n do
begin
write(A[i], ', ');
end;
readln;
end.
Создай ярлык с адресом %windir%\System32\notepad.exe C:\Windows\System32\drivers\etc\hosts
Почисти все в открытом файле, перезагрузись. И запомни под админом сидеть на винде - зло.
Написал: Neformat
17.05.2010 / 16:50
147, так любой менеджер на компе юзать можно, и хранить в нем все можно, сервер/логин, единственное пароль сохранять не рекомендуется.
Написал: Neformat
17.05.2010 / 13:21
