0 / 0 / 1
Регистрация: 24.12.2010
Сообщений: 31
1

Составить блок схемы.

22.01.2011, 16:58. Показов 781. Ответов 2
Метки нет (Все метки)

Добрый день, очень прошу помочь с составление блок схем для следующих задач:

1)Определить, сколько элементов массива больше, чем число 3
Листинг программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program Zadanie1;
uses crt;
var x,y,k:integer;
var max:integer;
var s:integer;
var tyty:integer;
var a:array [1..6] of integer;
i:byte;
begin
clrscr;
for i:=1 to 6 do readln(a[i]);
writeln('Wi4iclyaem');
readln;
max:=a[1];
k:=1;
tyty:=0;
for i:=2 to 6 do
if a[i]>max then begin max:=a[i];
k:=i; end;
for i:=1 to 6 do
 if a[i]>3 then begin tyty:=tyty+1;end;
textcolor(green);
writeln('skolko 4isel bolshe 3');
readkey;
writeln(tyty);
readln;
end.

2) задание.
Найти сумму элементов первой и третьей строк матрицы.
Листинг программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Zadanie2;
uses crt;
var x,y,k,m,b,mm,my:integer;
var max:integer;
var s:integer;
var a:array [1..3,1..2] of integer;
i,g:byte;
begin
clrscr;
textcolor(red);
writeln('Wwedite massiv a-stroki i a-stolbci');
for i:=1 to 3 do
for g:=1 to 2 do readln(a[i,g]);
textcolor(green);
for i:=1 to 3 do begin
for g:=1 to 2 do write(a[i,g],' ');
writeln; end;
{podc4et summi elementow w massiwe};
for i:=1 to 3 do begin for g:=1 to 2 do if i=1 then s:=s+a[i,g];end;
for i:=1 to 3 do begin for g:=1 to 2 do if i=3 then mm:=mm+a[i,g];end;
my:=s+mm;
writeln('Summa 1 i 3= ',my);
readln;
end.

3) Задание 3
Пусть А - двумерный массив целых чисел размерности N*N. Найти число строк с отрицательной суммой элементов.
Листинг програмы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Zadanie3;
uses crt;
var repka,w,e,r,t,y:real;
var max:real;
var s,ss,sss:integer;
var a:array [1..3,1..3] of integer;
i,g,q:byte;
begin
clrscr;
textcolor(red);
w:=0;
writeln('Wwedite massiv a-stroki i a-stolbci');
for i:=1 to 3 do
for g:=1 to 3 do readln(a[i,g]);
textcolor(green);
for i:=1 to 3 do begin
for g:=1 to 3 do write(a[i,g],' ');
writeln; end;
{podc4et summi elementow w massiwe};
for i:=1 to 3 do begin for g:=1 to 3 do
s:=s+a[i,g];
if s<0 then begin q:=q+1;end;s:=0;end;
writeln('kolwo strok',q);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2011, 16:58
Ответы с готовыми решениями:

Составить блок-схемы
Составить блок-схемы для следующих задач: 1.Богатый дядюшка подарил мне 1 доллар в мой первый...

Составить блок схемы
spasite

Составить блок-схемы
пожалуйста помогите составить блок-схемы Задание 1 Program Naiti_korni; Uses CRT; Var...

Составить блок схемы к программам
program z7; uses crt; var n,a,k,s,i,b: integer; begin clrscr; write('Vvedite chislo'); ...

2
151 / 149 / 44
Регистрация: 09.02.2010
Сообщений: 407
22.01.2011, 19:08 2
Deatrocker, держи
Вложения
Тип файла: zip Desktop.zip (200.6 Кб, 18 просмотров)
0
0 / 0 / 1
Регистрация: 24.12.2010
Сообщений: 31
22.01.2011, 19:52  [ТС] 3
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2011, 19:52

Составить блок-схемы(графически)
Помогите, уже не знаю куда деться. Решил к профессионалам обратится. Нужны графические блок схемы

Составить блок-схемы к нескольким программам
Помогите с блок-схемами к этим кодам: 1) uses crt; function F(x:real):real; begin...

Составить блок-схемы к нескольким программам
помогите пожалуйста составить блок-схемы к этим программам. Program Max1; const...

Составить блок-схемы к нескольким программам
Если кому не лень, помогите пожалуйста с блок схемами! Хотя бы к некоторым задачам! Задача 1 ...

Составить блок схемы к четырем задачам
помогите составить блок схемы к четырем задачам. 1. Const ax=0; ay=1; bx=3; by=1; cx=4;...

Составить блок схемы к трем задачам
Добрый день, прошу составить блок схемы, от них зависит аттестация, очень прошу помочь. Задание...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.