Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal База данных магазина https://www.cyberforum.ru/ pascal/ thread1152559.html
здравствуйте, мне срочно нужна курсовая работа на тему база данных магазина....
Pascal Нарисовать блок-схему
Здравствуйте, мне нужна блок схема этой программы. Спасибо) program Biblioteka; uses crt; type spisok = record name: string; avtor: string; izdat: string; god: integer; datapost: integer;
Pascal Удалить из матрицы A(m*n) строку, содержащую наибольшее количество нулевых элементов Удалить из матрицы A(m*n) строку, содержащую наибольшее количество нулевых элементов. https://www.cyberforum.ru/ pascal/ thread1152412.html Pascal Квадратная матрица https://www.cyberforum.ru/ pascal/ thread1152357.html
Дана действительная квадратная матрица порядка n. Требуется найти наибольший по модулю элемент матрицы и построить новую матрицу порядка n-1 путем удаления строки и столбца исходной матрицы, на пересечении которых находится этот элемент. Программа в отладочном режиме должна показывать исходное и результирующее состояние матрицы.
Pascal Подсчитать количество гласных букв в строке
Дана символьная строка. Подсчитать сколько раз в ней встречается гласные буквы (у,е,ы,а,о,э,я,и,ю)
Pascal Заменить все элементы массива больше z на z. подсчитать количество замен. https://www.cyberforum.ru/ pascal/ thread1152151.html
Дан массив из 10 целых чисел и целое число z. Заменить все элементы массива больше z на z. подсчитать количество замен.
Pascal Переведите код с С++ на Pascal https://www.cyberforum.ru/ pascal/ thread1151811.html
#include <iostream>; #include <string>; #include <conio.h>; using namespace std; const int RANK = 8; //Шаг 1. string FromDecimalToBinary(string, int); string FromBinaryToDecimal(string);
Переписать текст в файл output. dat, заменив прописные буквы заглавными в словах, содержащих "запрещенные" слоги Pascal
решите пожалуйста задачу) Файл Input.dat содержит несколько строк текста. Слова в тексте могут разделяться пробелами и знаками препинания. Переписать текст в файл output.dat, заменив прописные буквы заглавными в словах , содержащих "запрещенные" слоги. Список "запрещенных" слогов находится в файле errors.dat
Pascal На автозаправочных станциях (АЗС) продается бензин с маркировкой 92, 95 и 98. В городе N был проведен мониторинг цен Помогите написать программный код пожалуйста. ________________________________________________________________________________________________________ На автозаправочных станциях (АЗС) продается бензин с маркировкой 92, 95 и 98. В городе N был проведен мониторинг цены бензина на различных АЗС. Напишите эффективную по времени работы и по используемой памяти программу (укажите используемую версию... https://www.cyberforum.ru/ pascal/ thread1151778.html Pascal Найти в строке определенную последовательность символов и заменить ее другой https://www.cyberforum.ru/ pascal/ thread1151751.html
Найти в строке определенную последовательность символов и заменить ее другой. Пример: "Мама!!Дома!!" заменяем на "Мама??Дома??"
Pascal Почему зацикливается программа?
program pro1; type m=array of integer; var ma:m; s,s2,s3:string; j,i,kj,kols:integer; f,a,b,c,d,y,y11: boolean; procedure Pars1(s1: string;var s2: string); var n1,n2:Integer; begin n1:=ma;
Pascal Обработка одномерного массива с использованием процедур и функций Помогите решить задачку пожалуйста(( Нужно решить её двумя способами: первый способ-с использованием процедур и функций С ПАРАМЕТРАМИ, второй способ- С ИСПОЛЬЗОВАНИЕМ ПРОЦЕДУР И ФУНКЦИЙ без ПАРАМЕТРов. Из массива удалить четные элементы, стоящие после максимального. Пример: из массива A: 2 7 4 6 5 должен получиться массив A: 2 7 5. Заранее спасибо) https://www.cyberforum.ru/ pascal/ thread1151618.html
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16844 / 6723 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
20.04.2014, 21:52 0

Составить блок схему вычисления значения функции, а затем составить программу - Pascal - Ответ 6065330

20.04.2014, 21:52. Показов 4425. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено NESQ5551 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function f(x: Integer): Integer;
begin
    if x > 3 then
        f := x * x + 5
    else
        f := 8;
end;
var
  x: Integer;
begin
    writeln('Введите x..');
    readln(x);
    writeln('Результат: ', f(x))
end
http://ideone.com/cT6kr7
Блок-схема http://jsfiddle.net/KOPOJI/nnzM7/embedded/result/
Составить блок схему вычисления значения функции, а затем составить программу

Код блок-схемы
HTML5
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
<div id="block">
    <div class="begin-end">Begin</div>
    <div class="arrow"></div>
    <div class="io">x</div>
    <div class="arrow"></div>
    <div class="if">x > 3</div>
    <div class="arrow"></div>
    <div class="if-true">
        Yes
        <div class="arrow"></div>
        <div class="assign">f := x * x + 5</div>
    </div>
    <div class="if-false">
        No
        <div class="arrow"></div>
        <div class="assign">f := 8</div>
    </div>
    <hr>
    <div class="clear"></div>
    <hr>
    <div class="arrow"></div>
    <div class="io">f</div>
    <div class="arrow"></div>
    <div class="begin-end">End</div>
</div>
CSS
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
div {
    border:1px solid #000;
    width: auto;
    max-width:250px;
    margin:10px auto;
    text-align:center;
    padding:5px
}
#block {
    border:none;
    max-width:600px;
    margin: 10px auto;
}
.arrow {
    border:none;
    margin:0 auto;
    width:10px;
}
.begin-end {
    border-radius:25px;
}
.io {
    border-top-left-radius: 50px;
    border-bottom-right-radius: 50px;
}
.if {
    margin-right: 205px;
    margin-top: 35px;
    width: 80px; 
   height: 80px; 
   -webkit-transform: rotate(-45deg);
   -moz-transform:    rotate(-45deg);
   -ms-transform:     rotate(-45deg);
   -o-transform: rotate(-45deg);
   transform: rotate(-45deg);
   -webkit-transform-origin: 0 100%;
   -moz-transform-origin: 0 100%;
   -ms-transform-origin: 0 100%;
   -o-transform-origin: 0 100%;
   transform-origin: 0 100%;
}
.if-true, .if-false, .clear {
    border:none;
}
.if-true {
    float:left;
}
.if-false {
    float:right;
}
.clear {
    clear:both
}
Уж извините, что несколько неловкая блок-схема вышла...

Вернуться к обсуждению:
Составить блок схему вычисления значения функции, а затем составить программу Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2014, 21:52
Готовые ответы и решения:

Составить блок-схему и программу вычисления значения функции + написать программу
Прошу решить в качестве проверки. Нужно сдать в понедельник. Буду очень благодарен! Заранее...

Составить блок-схему алгоритма и программу для вычисления функции
Нужна помощь в решении Составить блок-схему алгоритма и программу для вычисления по формуле для...

Составить блок-схему и программу для вычисления значений функции
Составить блок-схему и программу для вычисления значений функции p=\begin{cases}1 &amp; \text{, if...

Составить блок-схему и программу для вычисления значений функции
Составить блок-схему и программу для вычисления значений функции p=\begin{cases}1 &amp; \text{, if...

6
20.04.2014, 21:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2014, 21:52
Помогаю со студенческими работами здесь

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

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

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

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

Составить блок схему алгоритма и программу для вычисления функции по формуле с двойной точностью
Добрый день! Не могли бы помочь с ДЗ в универе, Turbo Паскаль не учила теперь страдаю ... никак не...

Составить блок схему алгоритма и программу для вычисления функции по формуле с двойной точностью
Добрый день! Не могли бы помочь с ДЗ в универе, Turbo Паскаль не учила :( теперь страдаю ... никак...

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