refresh cnucok 7bit.forum нacлeдuть
  РегистрацияПользователиАдминистраторы и модераторыПоискЧасто задаваемые вопросы На главную

7bit.forum » Техника » Обмен опытом » Лаба по паскалю. » Привет, незнакомец [войти|регистрация]
Распечатать страницу
Понравилась тема? Поделитесь с друзьями! Тема закрыта
Автор
Сообщение « Предыдущая тема | Следующая тема »
Imm
Imm - мужик
Легендарный студент ИТМО




Группа: VIP-Пользователи

Дата регистрации: 22.12.2003
Сообщения: 2030
Кто?: Студент СПбГУ (физфак)

Репутация пользователя :
+877 -379 = 498
Рейтинг сообщения:
+0 -0 = 0
балл   балл


Angry Лаба по паскалю. На верх страницы

Короче пишу такую х*йню, потому что меня за*бал DJ Runet. Я ему написал лабу, а он п*здит что она не правильная. Короче дан двумерный массив. Надо найти сумму элементов тех строк в которых есть отрицательные элементы. Оформить в виде функции. Вот код программы с коментариями. А теперь DJ Runet скажи что там тебе бабуля говорила...

цитата:

program lab05;
uses crt;
const m=7;n=5; <- Задаем размеры матрицы m - число столбцов n - строк
type matrix = array[1..m,1..n] of integer; <- создаем тип "Матрица" var A: matrix;
i,j:integer;
f: text;


Function summa(M: matrix; cols,rows: integer): integer; <- Функция суммы.
В скобках задаем параметры передаваемые подпрограмме
M - матрицаь, cols и rows - размеры матрицы

var i,j,sum,x: integer; <- переменные подпрограммы.
begin
sum:=0;
for j:=1 to rows do begin <- проходимся по строкам
for i:=1 to cols do <- проходимся по элементам строки
if M[i,j] < 0 then begin <- если элемент меньше нуля то:
for x:= 1 to cols do inc(sum,M[x,j]); <- складываем все элементы
i:= cols
end;
end;
summa:=sum; <- передача суммы всех строк значению функции
end;

BEGIN
clrscr;
Randomize;
assign(f,'results.txt');
rewrite(f);
writeln(f,' Исходная матрица');
далее мы присваеваем каждому элементу матрицы A случайное число и выводим в файл for j:= 1 to n do begin
for i:= 1 to m do begin
A[i,j]:=random(14)-4;
write(f,A[i,j]:3);
end;
writeln(f);
end;
Сделали writeln(f);
write(f,'Сумма элементов строк в которых есть ');
write(f,'отрицательные элементы равна ',summa(A,m,n),'.');
в строке над этой мы использовали такую штуку: summa(A,m,n)
Где A - матрица, m и n - размеры матрицы.
Эти значения передаются функции summa, которая возвращает сумму
элементов строк в которых есть отрицательные элементы.
close(f);
END.

<-- Результаты выполнения программы -->

Исходная матрица
-2 3 6 7 3 0 5
-3 -1 0 -2 7 -4 1
-1 0 5 8 6 7 0
3 -2 1 -4 2 9 8
5 -4 1 0 1 8 4

Сумма элементов строк в которых есть отрицательные элементы равна 77.

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)

Сообщение отредактировано 1 раз(а), редактировал Imm , 07.01.2004 в 10:07.

07.01.2004 10:07 Imm оффлайн Послать письмо Imm Искать сообщения : Imm Добавить Imm в адресную книгу
DJ RUnet
DJ RUnet - мужик
Барон Килобайт I-степени




Группа: Пользователи

Дата регистрации: 05.01.2004
Сообщения: 257
Кто?: Студент, группа 2222

Репутация пользователя :
+40 -37 = 3
Рейтинг сообщения:
+0 -0 = 0
балл   балл


Attention На верх страницы

она сказала что ты i c j перепутал т.е. считал не считал не строк а столбцы

__________________
Уходя - гасите всех.

07.01.2004 18:49 DJ RUnet оффлайн Послать письмо DJ RUnet Искать сообщения : DJ RUnet Добавить DJ RUnet в адресную книгу
Stan F
Stan F - мужик
Его Величество Администратор


Группа: Администраторы

Дата регистрации: 14.11.2003
Сообщения: 5148
Кто?: ФЮРЕР

Репутация пользователя :
+1897 -840 = 1057
Рейтинг сообщения:
+0 -0 = 0
балл   балл


На верх страницы

ИМХО тривиальная задачка. Вот только объясните лентяю, не фтыкавшему в прогу и не знающему Паскаль: а нафига козе баян - нафига случайные числа? Tongue

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

07.01.2004 23:16 Stan F оффлайн Сайт Stan F Искать сообщения : Stan F Добавить Stan F в адресную книгу
DJ RUnet
DJ RUnet - мужик
Барон Килобайт I-степени




Группа: Пользователи

Дата регистрации: 05.01.2004
Сообщения: 257
Кто?: Студент, группа 2222

Репутация пользователя :
+40 -37 = 3
Рейтинг сообщения:
+0 -0 = 0
балл   балл


На верх страницы

тебе этого не понять

да, Immoralis, кстати она сказала чтобы числа сразу задавали и чтоб не во всех строках должны быть отрицательные числа

__________________
Уходя - гасите всех.

08.01.2004 00:16 DJ RUnet оффлайн Послать письмо DJ RUnet Искать сообщения : DJ RUnet Добавить DJ RUnet в адресную книгу
Stan F
Stan F - мужик
Его Величество Администратор


Группа: Администраторы

Дата регистрации: 14.11.2003
Сообщения: 5148
Кто?: ФЮРЕР

Репутация пользователя :
+1897 -840 = 1057
Рейтинг сообщения:
+0 -0 = 0
балл   балл


На верх страницы

Да, Паскаль для меня сложный слишком Crying

avtomat jid fuck ass !!!

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

08.01.2004 00:27 Stan F оффлайн Сайт Stan F Искать сообщения : Stan F Добавить Stan F в адресную книгу
Юрик
Юрик - мужик
Его Величество Администратор




Группа: Администраторы

Дата регистрации: 21.06.2004
Сообщения: 3340
Кто?: Выпускник

Репутация пользователя :
+3212 -428 = 2784
Рейтинг сообщения:
+0 -0 = 0
балл   балл

МОИ ФОТКИ!


На верх страницы

цитата:
она сказала что ты i c j перепутал т.е. считал не считал не строк а столбцы

Я такого не заметил.. впаривать надо уметь, дружок Big Grin
у меня подозрение, что ты не до конца ознакомился с алгоритмом лабы... тетя-препод глюконула, а ты не смог ее на путь истинный наставить...

теперь о косяках
цитата:
i:= cols

так цикл не завершают..
Хороший препод за такое задницу надерет Big Grin (хоть это и работает)
надо писать, например break..

цитата:
и чтоб не во всех строках должны быть отрицательные числа

Верное замечание...

__________________
Xριστος ανεστη εκ νεκρων
Θανατω θανατον πατησας.
Και τοις εν τοις μνημασι
Ζωην χαρισαμενος.

08.01.2004 00:49 Юрик оффлайн Искать сообщения : Юрик Добавить Юрик в адресную книгу
DJ RUnet
DJ RUnet - мужик
Барон Килобайт I-степени




Группа: Пользователи

Дата регистрации: 05.01.2004
Сообщения: 257
Кто?: Студент, группа 2222

Репутация пользователя :
+40 -37 = 3
Рейтинг сообщения:
+0 -0 = 0
балл   балл


Frown На верх страницы

я то в паскале не рублю них поэтому на её восклицания У ТЯ НЕПРАВИЛЬНО я ни чё не могу сказать как толко согласиться и сказать "ладно, я дома посмотрю шо неправильно - исправлю и потом принесу"
вот так!

__________________
Уходя - гасите всех.

08.01.2004 00:57 DJ RUnet оффлайн Послать письмо DJ RUnet Искать сообщения : DJ RUnet Добавить DJ RUnet в адресную книгу
Stan F
Stan F - мужик
Его Величество Администратор


Группа: Администраторы

Дата регистрации: 14.11.2003
Сообщения: 5148
Кто?: ФЮРЕР

Репутация пользователя :
+1897 -840 = 1057
Рейтинг сообщения:
+0 -0 = 0
балл   балл


На верх страницы

Можно в принципе и не про дома говорить, а щас разберемся и отходить Pleased
а потом с программированием преподы сами часто туго догоняют, давно подмечено. Приходилось иной раз с пеной у рта доказывать, особенно если препод этого в жизни не видел Cool

__________________

Последний рассвет
Тонкая нить и
Холодная сталь
Поможет забыть мне
Сотрёт глубину
Исчезнет печаль
Прольётся внутри
Моя мёртвая кровь
Развеет твой крик

08.01.2004 01:21 Stan F оффлайн Сайт Stan F Искать сообщения : Stan F Добавить Stan F в адресную книгу
Imm
Imm - мужик
Легендарный студент ИТМО




Группа: VIP-Пользователи

Дата регистрации: 22.12.2003
Сообщения: 2030
Кто?: Студент СПбГУ (физфак)

Репутация пользователя :
+877 -379 = 498
Рейтинг сообщения:
+0 -0 = 0
балл   балл

Автор темы Автор темы Imm


Angry На верх страницы

fastkill, по поводу break согласен. Что-то я сглюканул.
2Runet
Возьми подправь числа сам какие хочешь, только от -4 до 9. И еще скажи бабуле чтоб она шла нах... Я ей все свои лабы сдал с таким же методом задавания элементов массива. Дура она короче...

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)

08.01.2004 07:02 Imm оффлайн Послать письмо Imm Искать сообщения : Imm Добавить Imm в адресную книгу
keepout
keepout - мужик
Сэр Байт II-степени




Группа: Пользователи

Дата регистрации: 07.01.2004
Сообщения: 56
Кто?: Студент, группа 3101

Репутация пользователя :
+0 -0 = 0
Рейтинг сообщения:
+0 -0 = 0
балл   балл


Lamp На верх страницы

Re: насчет случайных чисел

Конечно, когда тестишь прогу вводить матрицы типа 5х5 впадлу -для этого можно использовать Random. Но когда сдаешь, не поленись, введи руками ( Преподы это ОЧЕНЬ любят) Big Grin

__________________
В правде нет страха...
Правда и страх несовместимы...
Д. С. Лихачёв

08.01.2004 14:25 keepout оффлайн Послать письмо keepout Искать сообщения : keepout Добавить keepout в адресную книгу
DJ RUnet
DJ RUnet - мужик
Барон Килобайт I-степени




Группа: Пользователи

Дата регистрации: 05.01.2004
Сообщения: 257
Кто?: Студент, группа 2222

Репутация пользователя :
+40 -37 = 3
Рейтинг сообщения:
+0 -0 = 0
балл   балл


На верх страницы

цитата:
Immoralis пишет
fastkill, по поводу break согласен. Что-то я сглюканул.
2Runet
Возьми подправь числа сам какие хочешь, только от -4 до 9. И еще скажи бабуле чтоб она шла нах... Я ей все свои лабы сдал с таким же методом задавания элементов массива. Дура она короче...


ну тогда поправь мне и пришли на мыло
с уже введенными числами и с нориально завершённым циклом!

__________________
Уходя - гасите всех.

09.01.2004 00:58 DJ RUnet оффлайн Послать письмо DJ RUnet Искать сообщения : DJ RUnet Добавить DJ RUnet в адресную книгу
Imm
Imm - мужик
Легендарный студент ИТМО




Группа: VIP-Пользователи

Дата регистрации: 22.12.2003
Сообщения: 2030
Кто?: Студент СПбГУ (физфак)

Репутация пользователя :
+877 -379 = 498
Рейтинг сообщения:
+0 -0 = 0
балл   балл

Автор темы Автор темы Imm


На верх страницы

Сделал... Тема закрыта.

__________________
Серьёзное лицо это ещё не признак ума, все глупости на Земле совершаются именно с этим выражением лица... Улыбайтесь, господа, улыбайтесь! ...
(из к/ф "Тот самый Мюнхгаузен". сценарий Г. Горина)

09.01.2004 05:12 Imm оффлайн Послать письмо Imm Искать сообщения : Imm Добавить Imm в адресную книгу
Понравилась тема? Поделитесь с друзьями!
Тема закрыта
Чтобы отвечать на сообщения и создавать новые темы, необходимо зарегистрироваться. Присоединяйся к нам! :-)
Перейти:

Все вопросы, связанные с деятельностью сайта и форума решаются с руководителем проекта.

powered by [censored] forum
7bit.team © 2001-2016