Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50

Помогите! В чём моя ошибка?

31.08.2011, 19:08. Показов 839. Ответов 11
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Я не могу понять. Вот вроде программа. Но она не выводит значения вариантов, а только то, что после else.
И помогите мне загрузить сюда скрин, а не ссылку на него =)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 31.08.2011, 19:08
Ответы с готовыми решениями:

Pascal, в чем моя ошибка
var y,x:real; i:integer; begin writeln('введите x'); readln(x) i:=99; y:=sqrt(sin(i*x)); while i<>1 do begin i:=i-1; ...

Pascal Где моя ошибка?
Условие задачи Ввести целое n , если n > 0, вывести значения F – факториалов от 1 до n в каждой строке в количестве раз равном...

Не могу понять в чем моя ошибка
Что нужно сделать: Дано натуральное число n. Вычислить 2/1+3/2+4/3+...+n+1/n program nat4isl; uses crt; var n,i,s,a:real; begin ...

11
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:30
А зачем нужен скрин, если можно просто скопировать код, вставить в окно сообщений и обрамить тегами PASCAL, типа так

Pascal
1
2
3
4
5
6

var x,e,s,p:real;
    k:integer;
begin
write('tochnost e=');
readln(e);
write('x=');readln(x);
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:33
А как загрузить файл, в том числе изображение, написано тут (ссылка под окном сообщений).
https://www.cyberforum.ru/abou... 03521.html
Но код не надо скрином.
Миниатюры
Помогите! В чём моя ошибка?  
0
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50
31.08.2011, 19:33  [ТС]
Что значит обрамить тегами паскаль? Я просто новичок))
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:35
Вставляешь код, выделяешь и в тулбаре(над окном сообщений) нажимаешь кнопку PASCAL
0
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50
31.08.2011, 19:37  [ТС]
Вот так?
Pascal
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

Program Ne_poimu;
 
Uses CRT;
 
Procedure Verno;
          Begin
               ClrScr;
               Writeln('Âåðíî!');
          end;
 
Procedure NeVerno;
          Begin
               ClrScr;
               Writeln('Íå âåðíî!');
          end;
 
Procedure Siuda;
          Begin
               ClrScr;
               Writeln('Íåò òàêîãî.');
          end;
 
Var x:integer;
Begin
     Repeat
           Readln(x);
           If x=1 Then Neverno;
           If x=2 Then Verno else Siuda;
     Until x=2;
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:37
А писать нужно
Pascal
1
2
3

if x=1 then  Neverno
else if x=2 then Verno
else Siuda;
1
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50
31.08.2011, 19:37  [ТС]
Опять нет..(
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:38
Цитата Сообщение от Allpowerful Посмотреть сообщение
Вот так?
Ты видимо настолько глуп, что тег цитаты ([DUOTE]) не отличаешь от тега [PASCAL]
0
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50
31.08.2011, 19:46  [ТС]
ДА да!! Точно! получилось! Спасибо большое о магистр ABC!)))

Добавлено через 2 минуты
Называть моряка глупым, потому что он не умеет пользоваться бигуди глупее мне кажется...

Добавлено через 5 минут
И я, по-моему, написал, что я новичёк...
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.08.2011, 19:51
Но ведь тег PASCAL так и подписан, как его можно спутать? Если моряк не может отличить коробку с надписью Бигуди от коробки с надписью Конфеты, то как его назовет жена?
0
2 / 2 / 0
Регистрация: 31.08.2011
Сообщений: 50
31.08.2011, 19:58  [ТС]
Да тут не видно было где что написано! Вообще не заметно! Мелкими шрифтами каракули! Потом я уже догадался, что это языки программирования и начал там искать паскаль.. только сейчас нашёл..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 31.08.2011, 19:58
Помогаю со студенческими работами здесь

Где моя ошибка не могу найти
пишет что Program2.pas(23) : Нельзя изменять значение переменной цикла внутри этого цикла program b; type anketa=record f:string; ...

Я написала программу, но не получается. в чем моя ошибка?
даны целые числа x..x,y..y. вычислите u: u=\begin{cases}\sum_{i=1}^{20}x_i^2 & \text{, if } \sum_{i=1}^{20}x_iy_i\ >\ 0\\\\...

Посмотрите пожалуйста мою программу. В чем моя ошибка?
Даны e,n массивы a(n), b(n). Вычислить S=(x+2)/(x^2+5^2)+(x+7)/(x^2+6^2)+(x+12)/(x^2+7^2)+... где x=max(a1,a2,...,an,b1,b2,...,bn) ...

в чём ошибка
program sum(input,output); {$N+} var a,b: Comp; begin assign(input,'input.txt'); reset(input); ...

В чём ошибка?
program Main(input, output); procedure B; begin A end; procedure A; begin Writeln('A') end; begin


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru