Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
rty747
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 11
#1

найти ошибку - Pascal

02.10.2013, 21:15. Просмотров 225. Ответов 2
Метки нет (Все метки)

Помогите плиз найти ошибку
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program 1;
var
f,r:real;
a:integer;
label m1,m2;
begin
writeln('Enter a:');
readln(a);
case a of
'1': goto m1;
'2': goto m1;
'3': goto m1;
'4': goto m1
else goto m2;
end;
m1: writeln ('enter f');
readln(f);
r:=exp (sqrt(1+sin(f)));
writeln (r);
m2: writeln ('parol nevirniy');
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.10.2013, 21:15     найти ошибку
Посмотрите здесь:

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде - Pascal
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два числа m и n и далее в выходной...

Не могу найти ошибку. Нажимаю на клавишу, выдает ошибку - PascalABC.NET
uses ABCObjects,GraphABC; const Image_0 = '0_765e9_6a3e424a_S.png'; var p:PictureABC;speed:integer; procedure...

Программа пишет ошибку!! Помогите найти ошибку - Pascal
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); M:=0; For i:=1 To N ...

Найти в файле минимальное и максимальное числа и записать их в файл (Найти ошибку) - Free Pascal
В файле input.txt записаны числа, сколько их – неизвестно. Найти минимальное и максимальное числа и записать их в файл output.txt. У...

В заданном одномерном массиве найти наименьшее из нечётных чисел, найти ошибку - Pascal
Условие В заданном одномерном массиве N<=40 найти наименьшее из нечётных чисел . Вот моя программа ,но она не правильно...

Найти восьмую степень числа, исопльзуя только умножение за три операции. Найти ошибку - Pascal
Дано число a. Используя только умножение, получить значение a8 за три операции. нужен ввод 2-ой переменной или другая формула.(иначе...

Найти фамилию и имя студента 2-го курса, который учится хуже остальных. Найти ошибку в коде - Pascal
Здравствуйте. Условие: Сведения о студентах содержат следующую информацию: фамилия, имя, курс, оценки по предметам (математика,...

Не могу найти пожалуйста найти ошибку - Pascal
Я ничего не понимаю в паскале, сделал по примеру.. Найдите ошибку плз, пишет unknow identifier само задание: Дан массив А, состоящий...

Найти ошибку - Turbo Pascal
program laba11; uses Graph; type TBuffer = array of integer; const

Найти ошибку - Free Pascal
program laba11; uses Graph; type TBuffer = array of integer; const


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Orisa
10 / 10 / 1
Регистрация: 28.09.2013
Сообщений: 26
02.10.2013, 21:33     найти ошибку #2
Цитата Сообщение от rty747 Посмотреть сообщение
a:integer;
поменяй на a:char;
nikita19
13 / 13 / 3
Регистрация: 02.10.2013
Сообщений: 57
03.10.2013, 08:42     найти ошибку #3
Вроде так


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
program task;
uses crt;
var
f,r:real;
a:char;
 
label m1,m2;
begin
writeln('Enter a:');
readln(a);
case a of
'1': goto m1;
'2': goto m1;
'3': goto m1;
'4': goto m1
else goto m2;
end;
m1: writeln ('enter f');
readln(f);
r:=exp (sqrt(1+sin(f)));
writeln (r);
m2: writeln ('parol nevirniy');
readln;
end.
Yandex
Объявления
03.10.2013, 08:42     найти ошибку
Ответ Создать тему
Опции темы

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