Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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.
AdAgent
Объявления
02.10.2013, 21:15
Orisa
Новичок
10 / 10 / 0
Регистрация: 28.09.2013
Сообщений: 26
02.10.2013, 21:33
  #2
Цитата Сообщение от rty747 Посмотреть сообщение
a:integer;
поменяй на a:char;
nikita19
Новичок
9 / 9 / 0
Регистрация: 02.10.2013
Сообщений: 48
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Нужно найти ошибку в задании: Найти сумму n первых натуральных четных чисел
Найти сумму n первых натуральных четных чисел
Pascal ABC Андрей Дружинин 11.02.2014 09:47
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
Free Pascal Найти в файле минимальное и максимальное числа и записать их в файл (Найти ошибку)
В файле input.txt записаны числа, сколько их – неизвестно. Найти минимальное и максимальное числа и записать их в файл output.txt. У меня всегда в текстовом файле output.txt выводит результат:...
Free Pascal CAZEB 08.01.2013 13:58
C++ найти слова повторяющиеся более одного раза, не могу найти ошибку
#include <iostream> using namespace std; void obr1(char **s, char **mas, int n, int m) { int i; int k; char *tm; for(i = 0; i < n; i++) {
С++ для начинающих Skip 27.11.2011 20:48
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);...
Pascal (Паскаль) spiridon 30.09.2011 18:01
C# WinForms Не могу найти ошибку в программе(для просмотра картинок):кнопка НАЗАД не работает(не становится активной) Найдите ошибку.
C# Windows Forms hike7 28.10.2010 08:34
Опции темы

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

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