Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
rty747
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 11
02.10.2013, 21:15     найти ошибку #1
Помогите плиз найти ошибку
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
Помогите найти ошибку в коде. Найти сумму ряда Turbo Pascal
Free Pascal Найти в файле минимальное и максимальное числа и записать их в файл (Найти ошибку)
Pascal ABC Найти разность между MAX и MIN элементами массива. Найти ошибку
Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде Pascal
Нужно найти ошибку в задании: Найти сумму n первых натуральных четных чисел Pascal ABC
Найти фамилию и имя студента 2-го курса, который учится хуже остальных. Найти ошибку в коде Pascal
Найти восьмую степень числа, исопльзуя только умножение за три операции. Найти ошибку Pascal

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Orisa
10 / 10 / 1
Регистрация: 28.09.2013
Сообщений: 26
02.10.2013, 21:33     найти ошибку #2
Цитата Сообщение от rty747 Посмотреть сообщение
a:integer;
поменяй на a:char;
nikita19
13 / 13 / 2
Регистрация: 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     найти ошибку
Ответ Создать тему
Опции темы

Текущее время: 19:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru