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

@CentSergey · Регистрация: 09.03.2013

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var x1,x2,z,y,c,n: real;
begin 
writeln ('введите x1 x2' );
readln (x1,x2);
y:=8*x1;
z:=2*x2;
n:=z+y;
if n>=200  then c:=(z+y)-(3*(z+y)/100);
if n>=500 then c:=(z+y)-(5*(z+y)/100);
if n>=800  then c:=(z+y)-(7*(z+y)/100);
if n>=1000 then c:=(z+y)-(5*(z+y)/100);
writeln (c);
end.

@Samhain · 06.10.2013, 14:24

CentSergey,

@Samhain · 06.10.2013, 14:26

CentSergey, но правильнее было бы сделать немного иначе

Pascal
1
2
3
4
if n>=1000 then c:=(z+y)-(5*(z+y)/100)
else if n>=800 then c:=(z+y)-(7*(z+y)/100)
     else if n>=500 then c:=(z+y)-(5*(z+y)/100)
          else if n>=200 then c:=(z+y)-(3*(z+y)/100);

@True_LyaLya · 08.10.2013, 16:28

Сообщение от Samhain

CentSergey, но правильнее было бы сделать немного иначе

Pascal
1
2
3
4
if n>=1000 then c:=(z+y)-(5*(z+y)/100)
else if n>=800 then c:=(z+y)-(7*(z+y)/100)
     else if n>=500 then c:=(z+y)-(5*(z+y)/100)
          else if n>=200 then c:=(z+y)-(3*(z+y)/100);

Нет, не правильней.
В исходном коде переменная "с" может измениться до 4 раз. В вашем случае она измениться максимум 1 раз.

@Samhain · 08.10.2013, 16:36

Сообщение от True_LyaLya

переменная "с" может измениться до 4 раз

True_LyaLya, может, но зачем ей меняться? В исходном коде на выходе получим то С, при котором выполняется условие последним. (В моем варианте то, которое выполниться первым). Зачем тратить время на проверку всех условий, если например наше n больше 1000? Проверили один раз, посчитали и вывели результат.

@True_LyaLya · 08.10.2013, 16:41

Сообщение от Samhain

True_LyaLya, может, но зачем ей меняться? В исходном коде на выходе получим то С, при котором выполняется условие последним. (В моем варианте то, которое выполниться первым). Зачем тратить время на проверку всех условий, если например наше n больше 1000? Проверили один раз, посчитали и вывели результат.

Например затем, что начальное "с" ничем не задано и в вашем случае вариант с ошибкой более вероятен чем с предыдущей.

@Samhain · 08.10.2013, 16:46

Korolkovkirill, можно заменить циклы

Pascal
1
for i:=1 to 27 do write ('-');

на

Pascal
1
writeln('---------------------------');

@Samhain · 08.10.2013, 16:49

Сообщение от True_LyaLya

что начальное "с" ничем не задано

в моем, куске кода, который так тревожит Вас, С определено ровно столько же? сколько и в исходном коде. Но не спорю, что стоит добавить проверку на n<200.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	06.10.2013, 14:24
	CentSergey, Миниатюры 1