| Cad1L | Дата: Вторник, 27.03.2012, 14:55 | Сообщение # 1 |
 Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| 1. Лінійні алгоритми.
program rabbit;
Uses Crt;
var i,k:integer;
function rab(n:integer):integer;
begin
if n=0
then rab:=1
else
if n=1
then rab:=2
else rab:=rab(n-2)+rab(n-1)
end;
begin
ClrScr;
writeln('BBeDuTe KoJIu4eCTBo MeC9IzeB');
readln(i);
k:=rab(i)*2;
writeln('4uCJIo KPoJIuKoB 4epe3 ',i, ' MeC9IzeB PaBHo ', k);
readln;
end.
2. Алгоритми галуження.
Program z2;
uses crt;
var x,y:integer;
begin
writeln('Vvedite x i y');
readln(x,y);
if (x>0) and (y>0) then writeln('V 1 chetverty');
if (x<0) and (y>0) then writeln('V 2 chetverty');
if (x<0) and (y<0) then writeln('V 3 chetverty');
if (x>0) and (y<0) then writeln('V 4 chetverty');
readkey
end.
3. Алгоритми циклічної структури.
program z3;
uses crt;
var i,j,a,b:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
if ((a mod 2)=0) or ((a mod 3)=0) or ((a mod 5)=0) then writeln('Eto chislo ne prostoe')
elsey writeln('Eto chislo prostoe');
readkey;
end.
4. Масиви.
program z14;
{YnJIoTHuTb JIuHeuYbl MaCCuB yDaJIuB HyJIu u CDBuHyB BJIEBo oCTaJIbHbIe eJIM.}
uses crt;
var m,i,k:longint; a:array[1..100]of longint;
begin
clrscr;
write('BBeDuTe koJI-Bo TaBJIuzu: ');readln(k);
for i:=1 to k do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to k do
begin
write('a[',i,']=');readln(a[i]);
end;
m:=0;
for i:=1 to k do
if a[i]=0 then inc(m)
else a[i-m]:=a[i];k:=k-m;
for i:=1 to k do write(a[i],' ');readln;
end.
m:=0;
for i:=1 to k do
if a[i]=0 then inc(m)
else a[i-m]:=a[i];k:=k-m;
for i:=1 to k do write(a[i],' ');readln;
end.
прикрепил файлы.задание просто написано неправиль слова или пропущены знаки припенания.
|
| |
|
|
| diamFC | Дата: Среда, 28.03.2012, 18:56 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Для этих программ вы можете сами бесплатно построить блок-схемы с помощью программы diamFC.
|
| |
|
|
| Cad1L | Дата: Среда, 28.03.2012, 20:30 | Сообщение # 3 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| да для первый двух получилось а для 2 последних преподы говарят неправельно
|
| |
|
|
| diamFC | Дата: Среда, 28.03.2012, 21:54 | Сообщение # 4 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Что же там не правильно? В четвертой цикл сделан не с гробами? Гробов в Екселе нету, к сожалению.
А в третьей все те же операторы, что и во второй и первой...
|
| |
|
|
Программа для построения БЛОК-СХЕМ!!!
