Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
7 / 5 / 2
Регистрация: 04.02.2013
Сообщений: 1,467
1

составьте блок-схему для данной программы:

18.05.2013, 20:19. Показов 553. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var
  i,n,k,max: Integer;
BEGIN
Writeln('wwedite 10 chisel: ');
k:=0;
max:=-MaxInt;
For i:=1 to 10 do
begin
  Readln(n);
  If n<0 Then
  begin
    k:=k+1;
    If n>max Then
    max:=n;
  end
end;
If k=0 Then
Writeln('otricatelnih nima')
Else
Writeln('naibolshee = ',max);
Readln
END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2013, 20:19
Ответы с готовыми решениями:

Составьте блок-схему программы вычисления значения по указанной формуле
Добрый день! Ребята помогите пожалуйста чайнику с заданием по домашнему заданию по Turbo Pascal. ...

Блок-схема для данной программы
Помоги составить блок схему для данной программы. Program Zadacha; uses crt; var ...

Составьте блок-схему и программу, для вычисления значений функции у в зависимости от заданного с клавиатуры значения аргумента х
3. Составьте блок-схему и программу, для вычисления значений функции у в зависимости от заданного...

Составьте блок-схему алгоритма и программу для вычисления значений функции в зависимости от заданного с клавиатуры значения аргумента х.
1. Составьте блок-схему алгоритма и программу для вычисления значений функции в зависимости от...

1
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.05.2013, 20:22 2
Определить наибольшее значение среди отрицательных чисел
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2013, 20:22

Составить блок-схему для программы
Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного...

Построить блок-схему для программы
Program LAB4V16; uses crt; const AlphBg ='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; AlphSm...

Составить блок-схему для программы
Program lolka; Uses crt; Var a:array of integer; i,j,n,c:integer; Begin clrscr; read(n);...

Составить блок-схему для программы
Последовательность действительных чисел оканчивается нулем. Найти количество членов этой...

Создать блок-схему для программы
var a: array of integer; i,n,k,p: integer; Begin readln(n); p:=1; for i:=1 to n do ...

Написать блок-схему для программы
program tochka; const R=1; a=1; var x,y:real; begin writeln('Введите через пробел...


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

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

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