Разбор решений, Для тех, кто сечет в ПАСКАЛЕ Опции

[BreakMaster]

эх... я если честно, сам не разобрался с тем решением... а из новых могу выложить кое-что поинтереснее: попались в электронном виде задачи с мировой олимпиады по инфе. правда на английском.

[Bourn]

ну выложи решение, и не важно разоьрался с ним ты или нет
ну и задачки, английский то мы знаем

[BreakMaster]

за эти задачи вообще никакой ответственности не несу

Прикрепленные файлы

 megarules.rar ( 4.36 килобайт ) Кол-во скачиваний: 126

 

[Darth_Beleg]

Супер задачи:
http://acm.sgu.ru/
megarules как раз оттуда

[BreakMaster]

Ну что, выбираем задачу, начинаем обсуждать?

[Darth_Beleg]

Задача 100, a+b

[gamecreator]

Задача 100, a+b

112. a^b-b^a

зы.

Код

#include<iostream.h>
void main()
{
   int a, b;
   cin>>a>>b;
   cout<<a+b;
}

[Bourn]

нее... так не пойдет давайте из архива...

[gamecreator]

нее... так не пойдет давайте из архива...

Ну тогда А. Это задача о простых числах?

[Darth_Beleg]

Скорее это задача о факторизации. Причем очень простая.
Задачи со 113 по 120.

[Darth_Beleg]

Расколол задачу C. Она неимоверно простая.

[krasotka]

Добрые люди, помогите мне пожалуйста, решите задачу! Я в Паскале не соображаю. Ну вот задали, а сделать надо. Прошу Вас!
Вот задача: Даны две вещественные матрицы А(N*M), В(N*M). Получить матрицу С(N*M), каждый элемент которой равен сумме элементов i-строки матрицы А, которые отсутствуют в j-м столбце матрицы В. Использовать подпрограммы проверки наличия числа в j-м столбце матрицы В, вычисления суммы, формирования новой матрицы. Блок-схема.
Очень на Вас надеюсь!

[Bourn]

2 krasotka
а пример можно?(махинаций с матрицами)

[Druin]

Да епрст... вот за что я не люблю програмирование, так что 99% времени занимает расшифровка самого задания...

[Bourn]

Проверяем работоспособность программы!

Код

program CreateC;

const N=4;M=4;

var
a,b,c:array[1..N,1..M] of double;

procedure ReadM;
var x,y:integer;
begin
Writeln('Enter array of A:');
for x:= 1 to N do
for y:= 1 to M do
read(a[x,y]);
Writeln('Enter array of B:');
for x:= 1 to N do
for y:= 1 to M do
read(b[x,y]);
end;

procedure WriteC;
var x,y:integer;
begin
for x:= 1 to N do
for y:= 1 to M do
if y<M then write(c[x,y]) else writeln(c[x,y]);
read(x);
end;

function CheckB(e:double;j:integer):double;
var x:integer;
bol:shortint;
begin
bol:=0;
for x:=1 to M do if b[x,j]=e then if bol=0 then begin bol:=1;CheckB:=0; end;
if bol=0 then CheckB:=e;
end;

function Summa(i:integer):double;
var x,y:integer;
s:double;
begin
for y:=1 to M do s:=s+CheckB(a[i,y],y);
Summa:=s;
end;

procedure MakeC;
var x,y:integer;
begin
for x:= 1 to N do
for y:= 1 to M do
c[x,y]:=Summa(x);
end;

begin
ReadM;
MakeC;
WriteC;
end.

[BreakMaster]

Все правильно, имхо.
Только в функции Summa переменную s обнулять нужно вначале.
И еще я не понял зачем нужно read(x)

[Bourn]

Все правильно, имхо.
Только в функции Summa переменную s обнулять нужно вначале.
И еще я не понял зачем нужно read(x)

для задержки, delay не пашет

[Druin]

Кнэчно делай работать не будет... библиотеку тыж не подключил... кажись crt...

[krasotka]

Вот пример с матрицами:

A=
1 2 3
4 5 1


B=
1 2 5
2 3 1

C=
c11 c12 c13
... ... ...

Т. е. с11=2+3 (т.к 1 есть в j-м столбце матрицы В); с12=1+3 (т.к. 2 есть есть в j-м столбце матрицы В) и т. д
Если кто-нибудь знает как нарисовать блок-схему к моей задаче, то сбросте мне на: anad11@mail.ru Плиз!!!

[Druin]

Если я правильно понял, то с11=3 (бо 2 есть тоже в j-м столбце)