Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 6
1

=( блок схемы

24.10.2010, 16:02. Показов 803. Ответов 7
Метки нет (Все метки)

Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как разобраться не могу а их надо сдать уже завтро =((

1 ая =)
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
28
uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-5;
  write(a[i]:5:1);
 end;
writeln;
writeln;
writeln('Измененный массив:');
for i:=1 to n do
 begin
  if a[i]<0 then a[i]:=a[i]+0.5
  else a[i]:=0.1;
  write(a[i]:5:1);
 end;
readln
end.
2ая =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,b,i,k:integer;
begin
clrscr;
write('Введите число-предполагаемую сумму цифр трехзначного числа A=');
readln(a);
write('Введите число для проверки кратности B=');
readln(b);
k:=0;
for i:=100 to 999 do
if((i div 100)+(i div 10 mod 10)+(i mod 10)=a)and(i mod b=0)then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких чисел нет!');
readln
end.
3 =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,max:real;
    n,i:integer;
begin
clrscr;
write('Сколько чисел ввести? n=');
readln(n);
writeln('Введите ',n,' отрицательных чисел:');
readln(max);
for i:=2 to n do
 begin
  readln(a);
  if a>max then max:=a;
 end;
if max>=0 then write('Вы вводили неотрицательные числа')
else write('Максимальное=',max:0:1);
readln
end.
4 ая =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<0 then n:=abs(n);
k:=0;
while n>0 do
 begin
  n:=n div 10;
  k:=k+1;
 end;
write('Количество цифр=',k);
readkey
end.
5 ая =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses crt;
Var t,y,i:integer;
Begin
ClrScr;
t:=1;
Repeat
y:=t*9 div 5 + 32;
Writeln('t= ',t,'  y=',y);
t:=t+1;
if t mod 20=0 then readln
Until t>100;
Readln
End.
6 ая =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
a,b,c:integer;
begin
clrscr;
readln(a);
readln(b);
if a mod b = 0 then writeln('da')
 else writeln('net');
 readkey;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2010, 16:02
Ответы с готовыми решениями:

Блок-схемы
Как составить блок схему???подскажите плизззззззззззззз program 3; uses crt; var y,b,x,c: real;...

Блок схемы
Ребят сделайте блок схемы на эти программки в Word, а то нам преподаватель плохой по...

блок схемы
Всем доброго времени суток. Посоветуйте пожалуйста программу, которая могла бы составить блок-схему...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...

7
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 16:29 2
через пять минут залью схемы.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 16:35 3
вот схемы.Добавляй блок описания переменных,и константы.
Миниатюры
=( блок схемы   =( блок схемы   =( блок схемы  

=( блок схемы   =( блок схемы  
Изображения
 
1
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 6
24.10.2010, 16:42  [ТС] 4
ой =) спасибочки а что за константы ???
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 16:44 5
Pascal
1
const nmax=100;
1
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 6
24.10.2010, 16:56  [ТС] 6
ааа спасибочки а куда ех встовлять ?)))
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 17:01 7
после начала.
1
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 6
24.10.2010, 18:52  [ТС] 8
что то я запуталась не могли бы вы выложить исправленные блок схемы пожаалуйста

Добавлено через 1 час 24 минуты
нууу помогите плииз

Добавлено через 14 минут
помогите блондинке
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2010, 18:52

Блок-схемы.
у меня к вам такая просьбочка... помогите блок-схему нарисовать к программе: Program P3; Const...

блок схемы!
приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как :( program...

Блок-схемы
Помогите сделать схемы, заранее большое спасибо)))

Блок схемы
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru