Как написать программу по блок схеме паскаль

Помогите пожалуйста написать программу по блок схеме

Последний раз редактировалось BlacKlow; 03.04.2011 в 20:11 .
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Регистрация: 03.04.2011
Сообщений: 3
Форумчанин

Регистрация: 12.02.2011
Сообщений: 808

блок схема точно правельная??
в первом цикле нечего не выполняеться..
и в конце что происходит с F непонятно..
дай лутше задание)

Терпение!Дежурный экстрасенс скоро свяжется с вами!
Последний раз редактировалось Dvoishnik; 03.04.2011 в 20:29 .
Регистрация: 03.04.2011
Сообщений: 3

Эту схему составлял учитель по программированию, дал мне ее на занятии, сказал написать по ней программу, но я не смог написать

Форумчанин
Регистрация: 12.02.2011
Сообщений: 808

progran ds; uses crt; var k, n, i:integer; a:arrey[1..100] of integer f:boolen; begin clrscr; write(‘введите n ‘); readLN(n); k:=1; f:=false;
а дальше начинаеться бред.
Терпение!Дежурный экстрасенс скоро свяжется с вами!

Источник: www.programmersforum.ru

Урок 5. Составление блок-схем алгоритмов. Программирование на Pascal / Паскаль. Уроки по информатике

Написать программу по блок-схеме — Turbo Pascal (31997)

Вот моя задача, по которой нужно создать алгоритм задачи.. Я написал(а), но, не могу понять, что к чему дальше.

Program Calculate_function; Var x, y, z: Integer; Begin if(xz) then write(‘y = ‘ y ); else y:=z*2; write(‘y=’y); write(‘z=’z); end; end.

Код к задаче: «Написать программу по блок-схеме»

Листинг программы

program Calculate_function; var x, y, z: integer; begin write(‘введите x, y, z: ‘); readln(x, y, z); if (x < z) then begin if x = 10 then x := x — 4 else x := 5; writeln(x) end else begin if y <>z then y := z * 2; writeln(y) end; writeln(z); readln end.

Источник: studassistent.ru

Написать программу по блок схеме Паскаль АВС Сделайте пожалуйста Очень нужно

Var
Y, Z: array[1..10000] of integer;
n, i, k: integer;
Begin
Write(‘n = ‘);ReadLn(n);
For i := 1 to n do
Begin
Write(‘Y[‘,i,’] = ‘);ReadLn(Y[i]);
End;
k := 0;
For i:= 1 to n do
if (Y[i] < 0) then
Begin
k := k+1;
Z[k] := Y[i];
End;
For i:= 1 to n do
if (Y[i] > 0) then
Begin
k := k+1;
Z[k] := Y[i];
End;
For i:= 1 to n do
if (Y[i] = 0) then
Begin
k := k+1;
Z[k] := Y[i];
End;
Write(‘Y:’);
For i:= 1 to n do
Write(‘ ‘,Y[i]);
WriteLn;
Write(‘Z:’);

Создания блок-схемы при помощи кода

For i:= 1 to n do
Write(‘ ‘,Z[i]);
End.

Амина Гульматова Отвечено 22 сентября 2019

• ‘ data-html=»true»> Поделиться
• Комментариев (0)

Источник: matfaq.ru