Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
RuslanNew
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 1
1

Блок схемы и программы

17.12.2014, 23:53. Просмотров 869. Ответов 1
Метки нет (Все метки)

1. Разработать блок-схему и программу решения задачи: напечатать ряд из повторяющихся чисел 100.
2. Разработать блок-схему и программу, которая осуществляет ввод с клавиатуры целого числа N и подсчитывает сумму всех целых чисел от 1 до N для положительных чисел и от -1 до N для отрицательных чисел.



помогите пожалуйста,желательно СРОЧНО!
завтра сдавать
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2014, 23:53
Ответы с готовыми решениями:

блок схемы на программы
помогите построить блок схему на программу пожалуйста... 1) Program Zadanie1; uses crt; var...

блок схемы на программы строки
если не трудно помогите построить блок схему... Program z; uses crt; var a,b: string; begin...

построить блок-схемы
Здравствуйте, помогите построить 3 блок-схемы алг цел ПоискМеста( арг цел таб а(0:n),цел i нач...

Проверьте блок-схемы
1) uses crt; var a,b,c,d:real; begin writeln('Введите переменную a'); ...

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

1
Portoble
32 / 32 / 45
Регистрация: 01.11.2014
Сообщений: 155
Записей в блоге: 4
18.12.2014, 15:13 2
Лучший ответ Сообщение было отмечено RuslanNew как решение

Решение

Задача №1.
Pascal
1
2
3
4
5
6
7
8
9
uses crt;
const
n= ;
var
i,x:ineteger;
Begin
 for i:=1 to n do
  write(n,' ');
end.
Комментарий: в строчке где ''n= ;'' пробел замените нужным кол-вом повторений в ряду.

Задача №2
Замечание: Наверное не "от -1 до N", а "от -1 до -N"
Вариант №1 (С вашим условием):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
n,i:integer;
sum1,sum2:integer;
Begin
 write('Введите число N: ');
  readln(N);
 n:=abs(n);
 for i:=1 to n do
  sum1:=sum1+i;
 for i:=-1 to n do
  sum2:=sum2+i;
 writeln('Сумма положительных: ', sum1);
 writeln('Сумма отрицательных: ', sum2);
End.
Вариант №2 (С использованием моего замечания):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
n,i:integer;
sum1,sum2:integer;
Begin
 write('Ââåäèòå ÷èñëî N: ');
  readln(N);
 n:=abs(n);
 for i:=1 to n do
  sum1:=sum1+i;
 n:=n-n-n;
 for i:=-1 downto n do
  sum2:=sum2+i;
 writeln('ÑóììГ* ïîëîæèòåëüГ*ûõ: ', sum1);
 writeln('ÑóììГ* îòðèöГ*òåëüГ*ûõ: ', sum2);
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2014, 15:13

Построение Блок-схемы
Прошу помогите составит блок-схему к задаче по графику uses graphABC; function F(x:real):real;...

создание блок-схемы
помогите пожалуйста составить блок-схему к этой программе: program z1; var...

Составить блок схемы
помогите составить блок схему. не понимаю их. Вводится последовательность ненулевых чисел, 0-...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru