Составить блок-схему по коду

@LastChance · Регистрация: 12.02.2014

Author24 — интернет-сервис помощи студентам

Приветствую. Ребята, помогите, написал код, но не получается блок-схему сделать. Точнее уверен в неправильно своей. Вот код:

Pascal

program ex;
uses crt;
var i,j,g,x1,x2:integer;
function zada4a:integer;
begin
for i:=1 to 5 do
x1:=(i+5)+x1;
for j:=1 to 4 do
x2:=x2*(j+2);
g:=x1+x2;
zada4a:=g;
end;
begin
clrscr;
x2:=1;
writeln('G = ',zada4a);
readln;
end.

@Puporev · 27.07.2015, 19:53

Не понял зачем здесь функция..

Pascal

program ex;
var i,x1,x2:integer;
begin
x1:=0;
for i:=1 to 5 do
x1:=(i+5)+x1;
x2:=1;
for i:=1 to 4 do
x2:=x2*(i+2);
writeln('G = ',x1+x2);
end.

@LastChance · 27.07.2015, 19:58 **[ТС]**

Условие такое: написать, используя функцию.

@Puporev · 27.07.2015, 20:05

Ну тогда будет 2 схемы, 1 для функции+1 для основной программы.

Pascal

program ex;
uses crt;
function G:integer;
var i,x1,x2:integer;
begin
x1:=0;
for i:=1 to 5 do
x1:=(i+5)+x1;
x2:=1;
for i:=1 to 4 do
x2:=x2*(i+2);
G:=x1+x2;
end;
begin
clrscr;
writeln('G = ',G);
readln;
end.

@LastChance 0 / 0 / 1 Регистрация: 12.02.2014 Сообщений: 7
	27.07.2015, 19:58 [ТС]	3
	Условие такое: написать, используя функцию. 0

	27.07.2015, 20:05

Опции темы

Составить блок-схему по коду

Решение