Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Нарисуйте блок-схемы к задачам.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ProstoKuzia ProstoKuzia вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.05.2012
По умолчанию Нарисуйте блок-схемы к задачам. - 11.05.2012, 20:52

Нарисуйте плз блок-схемы к задачам.

Условие 1:
Дан двумерный массив. Выдать номер строки, в которой находится
максимальное количество нулей. Результат запишите в файл.


Код программы:
program zadacha_2;
uses crt;
var
a: array [1..5, 1..5] of integer;
b: array [1..5] of integer;
i, j, k, z, z1, z2, max,l:integer;
r:file;
g:text;
begin
clrscr;
randomize;
for i := 1 to 3 do
for j := 1 to 3 do
a[i, j] := random(5);
for i := 1 to 3 do
begin
for j := 1 to 3 do
write(a[i, j]:3);
writeln
end;
z:=0;
z1:=0;
z2:=0;
for k:=1 to 3 do
if a[1,k]=0 then z:=z + 1;
for k:=1 to 3 do
if a[2,k]=0 then z1:=z1 +1;
for k:=1 to 3 do
if a[3,k]=0 then z2:=z2+1;
max := 0;
b[1]:=z;
b[2]:=z1;
b[3]:=z2;
for k:= 1 to 3 do
if b[k]>max then begin max := b[k];
l:=k;
end;
writeln('Nomer stroki s samim bolshim kol. nulej - ',l);
assign (r ,'O:\zadacha_2.txt');
rewrite(r);
assign (g,'O:\zadacha_2.txt');
rewrite(g);
writeln(g,l);
readkey;
close(r);
close(g);
end.

Условие 2:
Ввести фамилию, имя и отчество учащегося, разделенные пробелами.
Напишите программу, печатающую фамилию ученика и его инициалы.


Код программы:
program zadacha_3;
uses crt;
type cpicok=record
a:string;
b:string;
c:string;
e:string;
d:string;
i:integer;
end;
var f:cpicok;i:integer;
begin
clrscr;
writeln ('Vvedite familiu');
readln (f.a);
writeln ('Vvedite imia');
readln (f.b);
writeln ('Vvedite otchestvo');
readln (f.c);
clrscr;
write (f.a,' ');
write (f.b[1],'.');
write (f.c[1],'.');
writeln;
readkey;
end.


Условие 3:
Создать модуль U6, который содержит следующие функции:
a. Функция Рr(integer, integer), которая возвращает произведение всех чисел, которые лежат в заданном промежутке;
b. Процедуру U, которая увеличивает число на 5, если оно положительное, иначе уменьшает его на 3.
Написать программу, которая подключает разработанный модуль и демонстрирует работу функции и процедуры.


Код программы:
Unit u6;
Interface
function pr(a,b:integer):integer;
procedure u(var a:integer);
Implementation
function pr(a,b:integer):integer;
var p,i:integer;
Begin
p:=1;
For i:=a to b do
p:=p*i;
pr:=p;
End;
Procedure u(var a:integer);
Begin
if a > 0 then a:=a+5
else a:=a-3;
End;
End.

Uses u6,crt;
Var
a,b,k:integer;
Begin
clrscr;
writeln('Vvedite tri chesla:');
readln(a,b,k);
Writeln('Otvet:');
writeln(pr(a,b));
u(k);
writeln(k);
readln;
End.

Написать программу, которая печатает все перестановки чисел 1..n по одному разу используя рекурсивную функцию.
Блок схема:

Условие 4:
Написать программу, которая печатает все перестановки чисел 1..n по одному разу используя рекурсивную функцию.


Код программы:
program zadacha_5;
uses crt;
const n=4;
var a: array[1..n] of integer;
b: integer;
procedure gen(l,r:integer);
var i,v:integer;
begin
if (l=r) then begin
for i:=1 to n do write(a[i],' ');
writeln;
end else begin
for i := l to r do begin
v:=a[l]; a[l]:=a[i]; a[i]:=v;
gen(l+1,r);
v:=a[l]; a[l]:=a[i]; a[i]:=v;
end;
end;
end;
begin
for b:= 1 to N do A[b]:=b;
gen( 1,n );
readkey;
end.

Условие 5:
Создайте целочисленный массив А[1..15] с помощью генератора случайных чисел с элементами от –15 до 30 и выведите его на экран. Отсортировать по возрастанию методом «пузырька» и вывести полученный массив на экран.


Код программы:
uses crt;
Var a:array[1..15] of integer; i,j:integer;
buf:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do
begin
a[i]:=random(30)-15;
write(a[i]:5);
end;
for i:=1 to 15-1 do
for j:=i+1 to 15 do
if a[i]>a[j] then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
writeln('Masiv posle sortirovki: ');
for i := 1 to 15 do
write(a[i]:5);
readln;
end.

Условие 6:
Нарисовать движущуюся фигуру с помощью модуля CRT. Движение осуществляется снизу вверх.


Код программы:
program elka;
uses crt,graph;
var
gd:integer;
gm:integer;
i,j:integer;
begin
gd:=Detect;
InitGraph(gd,gm,'egavka.bgi');
For j:=1 to 500 do
begin
SetColor(2);
line(500,400-j,450,450-j);
line(500,400-j,550,450-j);
line(450,450-j,550,450-j);
line(475,450-j,425,500-j);
line(525,450-j,575,500-j);
line(425,500-j,575,500-j);
line(450,500-j,400,550-j);
line(550,500-j,600,550-j);
line(400,550-j,600,550-j);
line(475,550-j,475,600-j);
line(525,550-j,525,600-j);
line(475,600-j,525,600-j);
delay(2000);
setColor(0);
line(500,400-j,450,450-j);
line(500,400-j,550,450-j);
line(450,450-j,550,450-j);
line(475,450-j,425,500-j);
line(525,450-j,575,500-j);
line(425,500-j,575,500-j);
line(450,500-j,400,550-j);
line(550,500-j,600,550-j);
line(400,550-j,600,550-j);
line(475,550-j,475,600-j);
line(525,550-j,525,600-j);
line(475,600-j,525,600-j);
end;
readln;
closegraph;
end.

Заране ооочень благодарен!
Ответить с цитированием
  (#2 (permalink)) Старый
Paster Fob Paster Fob вне форума
Member
 
Аватар для Paster Fob
 
Сообщений: 225
Сказал(а) спасибо: 1
Поблагодарили 31 раз(а) в 31 сообщениях
Регистрация: 18.11.2010
По умолчанию 12.05.2012, 20:41

diamFC - блок-схема за пять минут
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите составить блок-схемы dearkato Pascal 1 18.09.2011 22:26
Программирование в Qbasic создание блок схемы Skay27rus Visual Basic 2 28.06.2011 19:55
Пожалуйсто нарисуйте маленькую блок-схему imported_k3na4 Pascal 1 19.05.2011 20:54
Создание блок схемы Lis4.6 Delphi 1 17.05.2011 02:53
Построение блок-схемы hanont Pascal 2 12.05.2011 22:07
задачи и блок-схемы( FoXy Pascal 0 17.10.2010 16:02
Зачем нужны блок-схемы Gock Вопросы начинающих программистов 8 30.01.2010 04:32
Создание блок-схемы для кода Aram Вопросы начинающих программистов 1 21.11.2006 00:32
Рисование схемы Насси или блок схемы Pytnik_ C++ Builder 1 10.05.2006 17:19
Блок-схемы как их создавать Al'varis Pascal 1 08.06.2005 23:54
Блок-схемы описание стандарта OKey Общие вопросы создания ПО 2 22.05.2004 10:34
Как строить блок схемы в С++ Anonymous Офтопик 4 20.12.2003 02:14



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов