Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
rty747
Новичок
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 11
02.10.2013, 22: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.
AdAgent
Объявления
02.10.2013, 22:15     найти ошибку
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.10.2013, 22:15     найти ошибку
Посмотрите здесь:

Pascal Программа пишет ошибку!! Помогите найти ошибку
Turbo Pascal Помогите найти ошибку в коде. Найти сумму ряда
Free Pascal Найти в файле минимальное и максимальное числа и записать их в файл (Найти ошибку)
Pascal ABC Найти разность между MAX и MIN элементами массива. Найти ошибку
Pascal Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Pascal ABC Нужно найти ошибку в задании: Найти сумму n первых натуральных четных чисел
Pascal Найти фамилию и имя студента 2-го курса, который учится хуже остальных. Найти ошибку в коде
Pascal Найти восьмую степень числа, исопльзуя только умножение за три операции. Найти ошибку
Orisa
Новичок
10 / 10 / 1
Регистрация: 28.09.2013
Сообщений: 26
02.10.2013, 22:33     найти ошибку   #2
Цитата Сообщение от rty747 Посмотреть сообщение
a:integer;
поменяй на a:char;
nikita19
Форумчанин
13 / 13 / 1
Регистрация: 02.10.2013
Сообщений: 57
03.10.2013, 09: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, 09:42     найти ошибку
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 14:31. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика