- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
program matr;
uses
crt;
var
mas:array [1..100] of integer;
i,n,imin,imax,min,max,razn:integer;
begin
clrscr;
imax:=1;
imin:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
mas[i]:=random(10)-5;
write(mas[i]:4);
if mas[i]>mas[imax] then
begin
imax:=i;
end
else
if (mas[i]<mas[imin]) then
begin
imin:=i;
end;
end;
writeln;
writeln('MAX[',imax,']:=',mas[imax]);
writeln('MIN[',imin,']:=',mas[imin]);
razn:=mas[imax]+mas[imin];
writeln('Сумма MAX и MIN:=',razn);
end.
Написано by "ТАМБОВСКИЙ ВОЛК. Профессионал".
Знатное говнецо нынче пишут "профессионалы".
http://www.programmersforum.ru/showthread.php?t=98747
Follow us!
ЗЫ смешное только это
if mas[i]>mas[imax] then
begin
imax:=i;
end
else
if (mas[i]<mas[imin]) then
begin
imin:=i;
end;
Если бы он не был в том же цикле, что и чтение генерация - докопаться, имхо, вообще было бы не к чему.
+ задача:
>>В компьютер вводится N вещественных чисел. Составить программу в паскале, выводящую на экран сумму наименьшего и наибольшего из них.
Названия и разметка - это еще не повод выкладывать на гк. Все так пишут по началу. Типичный лабокод.
> решение с массивом, хотя он нахуй тут не нужен
Да мало ли. У нас вот если лаба называлась "работа с массивом", то хоть убейся, а массив поюзай. Хотя большинство таких лаб вполне решались однопроходно с парой буферных переменных.
> вводится
Ну тупо решили не ту задачу. Что ж теперь, все некорректно решенные лабы выкладывать?
P.S. Я вообще против лаб на гк, если в них нет никакой изюминки. А в этой лабе ее нет - типичный унылый код студента начальных курсов.
А ведь можно было из этой пары переменных массив сделать...
int mas[2];
Пытался связкой EnumWindows/EnumChildWindows/GetWindowText, но это ничего не дало. Наверно, надо открывать процесс и читать его память. Но как это сделать, есть у кого наброски?
Для конкретных можно поискать какие-нибудь оконные сообщения, по которым они отдают куски своего текста (item'ы у списка и т.п.). Для стандартных виндовых, скорее всего, ты их даже найдешь.
Если sysListView32 засабклассен от настоящего виндового списка - он должен понимать команды от оного.
Как в отладчике запустить режим, чтобы смотреть, какие api вызывает прога?
Насчет api - х.з., например поставить бряки на все используемые прогой api. Но руками это делать - неблагодарное дело, ибо у типичной гуишной проги их сотни... Да и вызывает она их очень часто...
Меня только один нюанс интересует: руками или скриптом?
Это вин и социальная инженерия. Единственный способ взбесить технаря с ГК. У меня от этого багор перфекциониста.
Когда я вижу [i]та[b]кой[/i] текст , я лютую, думая "А нахера он подчёркивает? Это ж фейл. Красивее было просто написать большими красными буквами, так верстают только мудаки!"
Чёрт, страницу обновил, а ссылку на пост не запомнил.
P.S. Таки не удалил тот файл, где у меня хранится эталонный trollface из палаты мер и весов trollface, где я заменил пробелы на табы, чтобы было удобнее вайпать.
Ну взбесить, не взбесить, но тут прям чеховское
«В человеке должно быть все прекрасно: даже то как он срёт и вайпает.»
> Причём руками — это ещё не самый плохой вариант: http://youtu.be/sfz13Ss-Fbg
> Зная стертора\конардо - вполне реалистичный сценарий.
http://govnokod.ru/15709#comment250022
Стертор у нас пианист, а линии - это же нотный стан. Концерт для трололо с оркестром.
♫ х ♫ ♯♪ у ♪ ♪ ♪ й ♫
http://absentis.livejournal.com/109414.html