Люди добрые пожалуйста помогите!!! - Форум
Пятница, 09.12.2016, 10:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Люди добрые пожалуйста помогите!!! (совсем ничего не понимаю в этом.пожалуйста окажите милость)
Люди добрые пожалуйста помогите!!!
zaka789Дата: Вторник, 10.11.2009, 19:28 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
cry cry cry
кажется что надо блок схему составить а потом на паскале сделать
Прикрепления: 1795133.jpg(65Kb)


Сообщение отредактировал zaka789 - Вторник, 10.11.2009, 19:44
 
PASCAL26Дата: Среда, 11.11.2009, 14:36 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
вторую могу прогу написать

пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
zaka789Дата: Среда, 11.11.2009, 16:06 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Quote (PASCAL26)
вторую могу прогу написать


большое спасибо брат. напиши пож_ста
 
PASCAL26Дата: Среда, 11.11.2009, 20:36 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
zaka789, только ты проверь
Code

program m1;
const
n=12;
var
a,b,z:array[1..n]of real;
i,j:integer;
k,l:real;
begin
for i:=1 to n do read(a[i]);{ввод данных}
for i:=1 to n do read(b[i]);
for i:=1 to n do begin
l:=i;
z[i]:=a[i]-b[i]*sin(i); {так же?}
for j:=1 to n do             {условие}
if z[i]>z[j] then  begin
k:=z[i];      {тут замена методом "пузыря"}
z[i]:=z[j];
z[j]:=k;
end;
end;
for i:=1 to n do
write(z[i]);    {Вывод данных}
end.

проверено в ABC pascal

Добавлено (11.11.2009, 20:36)
---------------------------------------------
zaka789, ну как пошло


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно


Сообщение отредактировал PASCAL26 - Среда, 11.11.2009, 20:36
 
zaka789Дата: Понедельник, 16.11.2009, 23:52 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
еще как пошло smile smile smile спасибо.

Добавлено (16.11.2009, 23:52)
---------------------------------------------
больше никто не знает sad ? там остались еще задачи,а мне позарез нужно.
Знающие братья откликнитесь пожалуйста

 
PASCAL26Дата: Вторник, 17.11.2009, 14:31 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
zaka789, вот первая
[code]
var
a:array[1..4,1..4]of real;
i,j:integer;
p:real;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for j:=1 to 4 do
begin
p:=a[3,j];
a[3,j]:=a[4,j];
a[4,j]:=p;
for i:=1 to 4 do
for j:=1 to 4 do
write(a[i,j]);
end.


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
zaka789Дата: Вторник, 17.11.2009, 15:03 | Сообщение # 7
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
уже во второй раз спасаешь брат,спасибо biggrin
 
PASCAL26Дата: Вторник, 17.11.2009, 17:40 | Сообщение # 8
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
zaka789, 3
Code

var
a:array[1..10,1..20]of real;
b:array[1..15,1..10] fo real;
i,j:integer;
s:real;
begin
for i:=1 to 10 do
  for j:=1 to 20 do
   read(a[i,j]);{Ввод массива а}
s:=0;
for i:=1 to 15 do
  for j:=1 to 10 do
   read(b[i,j]);{ввод массива b}
for i:=1 to 10 do
for j:=1 to  20 do begin
if a[i,j]>0 then
s:=s+a[i,j];
write('сумма положительных элементов ',i,'ой строки равна ',s); {сумма массива а}
s:=0;
end;
for i:=1 to 15 do
for j:=1 to  10 do begin
if b[i,j]>0 then
s:=s+b[i,j];
write('сумма положительных элементов ',i,'ой строки равна ',s);
s:=0;
end;
end.


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
zaka789Дата: Вторник, 24.11.2009, 23:01 | Сообщение # 9
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
осталась всего одна задача,кто поможет?
 
PASCAL26Дата: Среда, 25.11.2009, 10:12 | Сообщение # 10
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
zaka789, не я с геометрией не дружу

пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
zaka789Дата: Среда, 25.11.2009, 13:19 | Сообщение # 11
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
PASCAL26, все равно большое спасибо тебе за твой труд smile smile smile
 
ИванДата: Четверг, 03.12.2009, 16:26 | Сообщение # 12
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
PASCAL26, помоги пжлст
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Люди добрые пожалуйста помогите!!! (совсем ничего не понимаю в этом.пожалуйста окажите милость)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016