Уважаемые пользователи сайта. Я понимаю что все хотят бесплатно получить решения, я выкладываю их как только у меня есть свободное время. Не ленитесь и пишите ниже в комментариях свои решение к задачам и я их опубликую. Не забудьте указать номер задачи!
4001. Площадь комнаты
ОтветитьУдалитьvar
k:Integer;
a:array[1..20,1..20]of Char;
x,y:Integer;
i,j,n:Integer;
procedure zamena(x,y:integer);
begin
if a[x+1,y]='.' then
begin
k:=k+1;
a[x+1,y]:='*';
zamena(x+1,y);
end;
if a[x-1,y]='.' then
begin
k:=k+1;
a[x-1,y]:='*';
zamena(x-1,y);
end;
if a[x,y+1]='.' then
begin
k:=k+1;
a[x,y+1]:='*';
zamena(x,y+1);
end;
if a[x,y-1]='.' then
begin
k:=k+1;
a[x,y-1]:='*';
zamena(x,y-1);
end;
end;
begin
Assign(Input,'Input.txt');
Reset(Input);
Assign(Output,'Output.txt');
Rewrite(Output);
readln(n);
for i:= 1 to n do
begin
for j:=1 to n do
read(a[i,j]);
Readln;
end;
Readln(x,y);
k:=1; a[x,y]:='*';
zamena(x,y);
Writeln(k);
Close(Input);
Close(Output);
end.
Результат по тестам:
Удалить1. Ошибка выполнения 2. Ошибка выполнения 3. Ошибка выполнения 4. Ошибка выполнения 5. Ошибка выполнения 6. Ошибка выполнения 7. Ошибка выполнения 8. Ошибка выполнения 9. Ошибка выполнения 10. Ошибка выполнения 11. Ошибка выполнения
#include
Удалить#include
#include
#include
#include
#include
#include
using namespace std;
int k;
char a[20][20];
int x,y,i,j,n;
void zamena(int x,int y)
{
if( a[x+1][y]=='.')
{
k=k+1;
a[x+1][y]='*';
zamena(x+1,y);
}
if (a[x-1][y]=='.')
{
k=k+1;
a[x-1][y]='*';
zamena(x-1,y);
}
if (a[x][y+1]=='.')
{
k=k+1;
a[x][y+1]='*';
zamena(x,y+1);
}
if( a[x][y-1]=='.')
{
k=k+1;
a[x][y-1]='*';
zamena(x,y-1);
}
}
int main()
{
cin>>n;
for (i= 1;i<=n;i++)
{
for( j=1;j<=n;j++)
cin>>a[i][j];
}
cin>>x>>y;
k=1; a[x][y]='*';
zamena(x,y);
cout<<k<<endl;
return 0;
}
Харош. Ты дебил
УдалитьВсе работает. Спасибо за сотрудничество! Выкладываю на блог!
ОтветитьУдалитьПоставьте +Использовать файлы для ввода/вывода , тогда заработает...
Задача №115:
ОтветитьУдалитьprogram Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,i:integer;
f:array[1..100] of integer;
begin
assignfile(input,'input.txt');
assignfile(output,'output.txt');
reset(input);
rewrite(output);
readln(n);
f[1]:=2;
f[2]:=4;
for i:=3 to n do
f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
closefile(input);
closefile(output);
end.
Ну от навіщо створювати подібні сайти. Дайте людям самим щось вивчити, а не тільки засвоїти навички copy-paste.
ОтветитьУдалитьТак ніхто і не примушує людей сюда заходити!
ОтветитьУдалить976. Флойд - существование
ОтветитьУдалитьС#
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
namespace _976
{
class Program
{
static void Main(string[] args)
{
int n;
StreamReader stream = new StreamReader("input.txt");
n = Convert.ToInt32(stream.ReadLine());
double[,] matrix = new double[n, n];
double[,] a = new double[n, n];
string[] x;
double inf = 10 ^ 10;
double b;
for (int i = 0; i < n; i++)
{
x = stream.ReadLine().Split(' ');
for (int j = 0; j < n; j++)
{
b = Convert.ToDouble(x[j]);
matrix[i, j] = b;
if (b == 0)
a[i, j] = 0;
else a[i, j] = 1;
}
a[i, i] = 1;
}
for (int k = 0; k < n; k++)
{
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
if (a[i,k]==1 && a[k,j]==1 && (a[i,j]==0 || (matrix[i,j] > (matrix[i,k]+ matrix[k,j]))) )
{
a[i, j] = 1;
matrix[i, j] = matrix[i, k] + matrix[k, j];
}
}
}
}
for (int k = 0; k < n; k++)
{
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
if (matrix[k, k] < 0 && a[i, k] > 0 && a[k, j] > 0)
a[i, j] = 2;
}
}
}
StreamWriter sw = new StreamWriter("output.txt");
for (int i = 0; i < n; i++)
{
string s=Convert.ToString( a[i,0])+ ' ';
for (int j = 1; j < n; j++)
{
if (j != (n - 1))
s += Convert.ToString(a[i, j]) + ' ';
else s += Convert.ToString(a[i, j]);
}
sw.WriteLine(s);
}
sw.Close();
}
}
}
Спасибо! Засчитано
УдалитьРезультат по тестам:
1. Засчитано 2. Засчитано 3. Засчитано 4. Засчитано 5. Засчитано 6. Засчитано 7. Засчитано 8. Засчитано 9. Засчитано 10. Засчитано 11. Засчитано 12. Засчитано 13. Засчитано 14. Засчитано 15. Засчитано 16. Засчитано 17. Засчитано 18. Засчитано 19. Засчитано 20. Засчитано
3. Спичечная модель
ОтветитьУдалитьunsigned quad_edges_count(unsigned N){
unsigned delta_N, N_prev, edge_size;
unsigned range, result;
edge_size = (unsigned)sqrt((long double)N);
range = (edge_size + 1)*(edge_size + 1) - edge_size * edge_size;
N_prev = edge_size * edge_size;
result = 2*(N_prev + edge_size);
delta_N = N - edge_size * edge_size;
if(delta_N == 0)
return result;
unsigned count_3 = 1 + ((delta_N < (range / 2) + 1) ? 0 : 1);
unsigned count_2 = delta_N - count_3;
result += 3 * count_3 + 2 * count_2;
return result;
}
algoholic.in.ua/solutions
ОтветитьУдалитьСвежие решения задач появляются здесь
2098. Перевертач
ОтветитьУдалитьvar
i, n: integer;
a: array[0..100] of integer ;
begin
readln(n);dec(n);
for i := 0 to n do
begin
read(a[i]);
end;
for i := 0 to n do
write(a[n - i], ' ');
end.
1458 Футбол
ОтветитьУдалить#include
using namespace std;
int main() {
int n;
cin >> n;
int arr[n];
for (int i = 0; i < n; ++i) {
cin >> arr[i];
}
if (n == 1){
cout << arr[0];
return 0;
}
if (n%2) {
cout << arr[n/2-1]<< " ";
for (int i = 0; i<n/2-1; i++) {
cout << arr[i] << " ";
}
cout << arr[n/2] << " ";
for (int i = n/2+2; i<n; i++) {
cout << arr[i] << " ";
}
cout << arr[n/2+1]<< " ";
} else {
cout << arr[n/2-1]<< " ";
for (int i = 0; i<n/2-1; i++) {
cout << arr[i] << " ";
}
for (int i = n/2+1; i<n; i++) {
cout << arr[i] << " ";
}
cout << arr[n/2]<< " ";
}
}
Этот комментарий был удален автором.
ОтветитьУдалить