Нужно срочное решение этих задач - Форум
Пятница, 09.12.2016, 06:50
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужно срочное решение этих задач (PASCAL)
Нужно срочное решение этих задач
WARRIORДата: Вторник, 16.03.2010, 17:55 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Nod found 404

Сообщение отредактировал WARRIOR - Вторник, 16.03.2010, 17:57
 
JewellirkaДата: Вторник, 30.03.2010, 23:08 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Пожалуйста,помогите нарисовать блок-схему.НУЖНО ОЧЕНЬ СРОЧНО,КЗАВТРЕШНЕМУ УТРУ.В 6.00 ПО МОСКВЕ КРАЙНИЙ ДЛЯ МЕНЯ СРОК.ПОЖАЛУЙСТА,ПОМОГИТЕ...

uses crt;
const N=5;
var
s,n2,n1,j,i,m: integer;
c,a:array [1..100,1..100] of integer;
begin
clrscr;
writeln('матрица в');
writeln('задать № 1-ой строки');
readln(n1);
writeln('задать № 2-ой строки');
readln(n2);
for i:=1 to N do begin
for j:= 1to N do begin
a[i,j]:=random(5);
write( a[i,j]:3);
end;
writeln;
end;
writeln('готовая матрица');

for j:=1 to N do begin
m:=a[n1,j]; a[n1,j]:=a[n2,j]; a[n2,j]:=m;
end;
for i:=1 to N do begin
for j:= 1to N do begin
write( a[i,j]:3);
end;
writeln;
end;
readln;

writeln('матрица с');
for i:=1 to N do begin
for j:=1 to N do begin
if i>=j then c[i,j]:=a[i,j] else c[i,j]:=0;
write( c[i,j]:3);
end;
writeln;
end;
readln;

s:=0;
for i:=1 to N do begin
for J:=1 to N do
if c[i,j]>0 then s:=s+c[i,j];
end;
writeln('сумма положительных элементов =',s);
readln;
end.

 
ignorerДата: Среда, 31.03.2010, 12:06 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
а можно вопрос: а нельзя было в 5 часов утра написать это задание, чтоб мы вообще не успели? я если б ещё днём увидел бы это задание, так помог бы.
 
JewellirkaДата: Среда, 31.03.2010, 18:34 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Я бы с удовольтвием бы написала ее пораньше,но сама увидела задание за час до...
Ну а это блок-схему сделали мне за 20 минут...
 
ignorerДата: Среда, 31.03.2010, 23:26 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
жесть! вот это скорость! я за 20 минут бы и 1 программу не сделал (если на компьютере) smile надо будет потренироваться на досуге.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужно срочное решение этих задач (PASCAL)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016