![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Kleopatra |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: gulnaz Репутация: ![]() ![]() ![]() |
1)4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150.
2). Вычислить значение функции |
alex 10 |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Исходный код uses crt; var s,ch1,ch2,ch3,ch4,ch,k5:real; d:boolean; begin d:=true; while d=true do begin write('введите число'); readln(ch1); write('введите 2-е число'); readln(ch2); if ch1>ch2 then writeln('введите число'); readln(ch1); write('введите 2-е число'); readln(ch2); if ch2<=ch1 then begin write(' программа закончена'); d:=false; end; if ch1>105 then s:=s+ch1; if ch2>105 then s:=s+ch2; writeln(s); end; end. |
Федосеев Павел |
![]()
Сообщение
#3
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: ![]() ![]() ![]() |
alex 10, sorry
Раз уж ты помогаешь, то и сам учись. Я бы посоветовал тебе воспользоваться форматтером исходного кода, а конкретно JCF (JEDI Code Format) - что и где взять, посмотри здесь, и здесь. По-русски требования к оформлению кода. В своё время я выработал иной стиль оформления и строго его придерживался, но лень вкупе с автоматическими форматтерами победили - теперь придерживаюсь стиля Borland. Вот смотри, как твоя программа стала выглядеть после JCF: program tak; И сразу бросается в глаза цикл while, цель которого в рамках ТЗ (тех. задания) непонятна - согласно заданию всё должно быть иначе: 1. Ввод 1-го числа - ch1 2. Ввод 2-го числа - ch2 3. Если ch1>ch2, то ввести ch3 4. Если все введённые числа больше 150, то вычислить сумму введённых чисел - s и вывести её на экран. То есть ты решил несколько иную задачу... |
alex 10 |
![]()
Сообщение
#4
|
Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Программу писал в спешке...Вот и вышла работающая,но неаккуратная программа.
|
Федосеев Павел |
![]()
Сообщение
#5
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: ![]() ![]() ![]() |
![]() Ну не торопись... Ведь помогаешь ты менее знающему и, вдобавок, тренируешься для себя. |
alex 10 |
![]()
Сообщение
#6
|
Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
да, я уже понял, что торопиться не надо !
|
![]() ![]() |
![]() |
Текстовая версия | 25.06.2024 3:59 |