Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
02.10.2013, 21:15   #1
rty747
Новичок
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 11
найти ошибку / Pascal (Паскаль)

Помогите плиз найти ошибку
Код 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.
02.10.2013, 21:15
AdAgent
Объявления
02.10.2013, 21:33   #2
Orisa
Новичок
10 / 10 / 0
Регистрация: 28.09.2013
Сообщений: 26
найти ошибку

Цитата Сообщение от rty747 Посмотреть сообщение
a:integer;
поменяй на a:char;
Другие темы раздела
Минимальный элемент массива после максимального Pascal
Здравствуйте, прошу помочь с задачей: "Не меняя порядка следования других элементов поставить минимальный элемент массива после максимального". Заранее спасибо.
Хотябы как начать? Pascal
Помогите решить или хотябы обьясните как и что с этим делать надо
03.10.2013, 08:42   #3
nikita19
Новичок
9 / 9 / 0
Регистрация: 02.10.2013
Сообщений: 48
найти ошибку / Pascal (Паскаль)

Вроде так


Код 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.
03.10.2013, 08:42
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
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 и далее в выходной файл нужно вывести номер ряда где больше всего нулей
Pascal (Паскаль) Генрисон 29.01.2014 17:54
Pascal ABC Найти разность между MAX и MIN элементами массива. Найти ошибку
найти разность между MAX и MIN элементами массива PROGRAM massraznost; var A :array of integer; k,i,s,r :integer; BEGIN k:=0; s:=0; for i:=1 to 10 do begin A:=random(10);
Pascal ABC Vallery55 20.01.2014 21:58
Pascal Программа пишет ошибку!! Помогите найти ошибку
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); M:=0; For i:=1 To N Do s:=M+((cosN-1)(cosM+1)); Writeln ('s=', s : 6); end.
Pascal (Паскаль) spiridon 30.09.2011 18:01
C# WinForms Не могу найти ошибку в программе(для просмотра картинок):кнопка НАЗАД не работает(не становится активной) Найдите ошибку.
C# Windows Forms hike7 28.10.2010 08:34
Опции темы

Текущее время: 20:31. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.