| Автор | Задачка... |
|---|
Вот собсно нужно сделать на языке паскаль
В текстовом файле дано целое число N вывести номер строки, содержащей минимальные элементы, номер строки, содержащей наибольшее количество 0 и массив в котором эти 2 строки поменять местами |
| какбэ жду |
| Как бэ с 0 делаешь оператор if 0 than x=x+1 |
| какбэ жди дальше:) |
:))
var N:string;
Danunafik:boolean;
redlain(N)
begin
case N of:
1.begin
if n = "В текстовом файле дано целое число?" then flag:=true else Danunafik:=true.
end.
if Danunafik = true then wraitlain(":)") else Danunafig := True
end.
end. |
какбэ жду
это уже не просьба, а приказ или задание. |
для ГОЛОВОРУКИЙ:
как минимум синтаксис не правилен))) |
| Когда ж наконец перестанут пичкать школьников неактуальными языками!? Еще небось и DOS изучают... |
8
таки в технаре на 2 курсе поит-а изучают. |
таки в технаре на 2 курсе поит-а изучают.
А я в 10 классе=) Самому пришлось решать... Если интересно могу решение выложить. |
Задачка для пятого класса.
Че тут интересного |
Когда ж наконец перестанут пичкать школьников неактуальными языками!? Еще небось и DOS изучают...
Угу... даёшь в школу Хаскель со всем вагоном теории лямбда-исчисления!) |
для Йопсель:
Ну и чтож ты её не решил то?
Хоть "описать или определить" двухмерный массив сможешь? |
А чо. паскаль как 1 язык для изучения программирования самое то.
Читал задачку. Нейкая хрень
В текстовом файле дано целое число N ну задано число.
Откуда остальные данные брать-то? О_о |
для Ins1der:
Нужно свормировать двемерный массив с рандомными числами или их можно поместить в тот же файл. |
| двемерный очепятка :) двумерный |
для mc_Grifon:
содержащей минимальные элементы - что подразумевается под этой фразой? Может быть, минимальный элемент (1) всего массива? |
какбэ жду
Во первых: Условие не понятно.
вывести номер строки, содержащей минимальные элементы
??? - минимальные элементы чего?
Какго типа данные кроме цифр есть в текстовом файле
Во вторых: задачка попахивает не самым быстрым решением, и следовательно не самым дешевым, и думаю что без фразы о хорошем материальном вознаграждении(реальными денюшками) тебе вряд-ли кто-то предложит дельную помощь
-
есть куча сайтов с проф программистами в паскале, готовыми решить любую задачку, некоторые даже за бесплатно решают(проверено) - тебе наверно туда надо обратится |
var a: array [1..100, 1..100] of integer;
f: text;
n, m: integer; {размерности массива}
i, j: integer;
min, min_line: integer;
max, max_line, max_hp: integer;
hp: integer;
begin
{чтение данных}
assign(f, 'input.txt');
reset(f);
m := 0;
while not Eoln(f) do begin
Inc(m);
Read(f, a[1, m]);
end;
Readln(f);
n := 1;
while not Eof(f) do begin
Inc(n);
for j := 1 to m do
Read(f, a[n, j]);
Readln(f);
end;
close(f);
Writeln;
{поиск минимального элемента}
min := a[1, 1];
min_line := 1;
for i := 1 to n do
for j := 1 to m do
if (a[i, j] < min) then begin
min := a[i, j];
min_line := i;
end;
Writeln('Минимальный элемент ', min);
{поиск строчки с максимальным количеством 0}
max := 0;
max_line := 1;
for j := 1 to m do
if (a[1, j] = 0) then
Inc(max);
for i := 2 to n do begin
max_hp := 0;
for j := 1 to m do
if (a[i, j] = 0) then
Inc(max_hp);
if (max_hp > max) then begin
max := max_hp;
max_line := i;
end;
end;
Writeln('Больше всего нулей в строке ', max_line);
{меняем строки местами}
for j := 1 to m do begin
hp := a[min_line, j];
a[min_line, j] := a[max_line, j];
a[max_line, j] := hp;
end;
{выводим результат}
Writeln('Результирующий массив');
for i := 1 to n do begin
for j := 1 to m do
Write(a[i, j] : 5);
Writeln;
end;
end. |
