Задания на Паскаль - Страница 4 - Форум
Вторник, 06.12.2016, 08:42
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 4 из 4«1234
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задания на Паскаль (4)
Задания на Паскаль
ignorerДата: Воскресенье, 23.05.2010, 14:11 | Сообщение # 46
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
странно, у меня работает. я проверял.
 
GilyДата: Воскресенье, 23.05.2010, 14:59 | Сообщение # 47
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
только что и вторую проверила, тоже не работает
пишет, что какая-то ошибка
при чём в двух задачах
 
ignorerДата: Воскресенье, 23.05.2010, 15:11 | Сообщение # 48
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Gily, вы запускаете с PascalАВС?
 
GilyДата: Воскресенье, 23.05.2010, 15:11 | Сообщение # 49
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
таки нет
borland pascal
 
ignorerДата: Воскресенье, 23.05.2010, 15:13 | Сообщение # 50
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Лиленка_D, извините, со списками, графами, записями и пр. дела никогда не имел, поэтому ответить ни на один вопрос не могу.
 
ignorerДата: Воскресенье, 23.05.2010, 15:14 | Сообщение # 51
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Gily, а, ну теперь понятно. я ж написал, что код обеих задач написан под PascalАВС. попробую под борланд переделать.
 
GilyДата: Воскресенье, 23.05.2010, 15:18 | Сообщение # 52
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
я в паскале чайник, по этому не разбираюсь)
спасибо, буду ждать
 
ignorerДата: Воскресенье, 23.05.2010, 15:20 | Сообщение # 53
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Gily, вот код второй:
Code
uses crt;
var a1, a2, s : string;
i, j : integer;
begin
clrscr;
readln(a1);
readln(a2);
for i:=1 to length(a2) do begin
for j:=1 to length(a1) do
if a2[i]<>a1[j] then s:=s+a1[j];
a1:=s;
s:='';
end;
write(a1);
readkey;
end.
 
ignorerДата: Воскресенье, 23.05.2010, 15:22 | Сообщение # 54
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот код первой:
Code
uses crt;
var s : string;
      i, n, m : integer;
begin
   clrscr;
   readln(s);
   for i:=1 to length(s) do
    if s[i]=' ' then inc(n)
    else begin
     inc(m);
     while (s[i+1]<>' ')and(i<length(s)) do
      inc(i);
    end;
   if n+1=m then write('Утверждение верно')
   else write('Утверждение не верно');
   readkey;
end.
 
GilyДата: Воскресенье, 23.05.2010, 15:25 | Сообщение # 55
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
атата, спасибо большое
выручил очень)
 
ДикоДата: Воскресенье, 23.05.2010, 23:54 | Сообщение # 56
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите пожалуйста, это очень важно,1 задача- Даны натуральные числа n,к (n,k меньше равно 9999).Из чисел от n до k выбрать те запись которых содержит ровно три одинаковые цифры(например 222,1711,5444,8000)
2-зачада- Припишите по 1 в начало и в конец записи числа n .Например, было n=3456 , стало n= 134561.
3-задача-Состаьте программу ,которая печатает true , если в заданном тексте буква А встречается чаще,чем В, и печатает False в противном случае.
4-зачада- Составьте программу,которая опеделяет , является ли введенный символ гласной или согласной буквой русского алфавита.
Заранее благодарю.
 
Лиленка_DДата: Среда, 02.06.2010, 07:10 | Сообщение # 57
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Здравствуйте! Есть задание, которое нужно выполнить в Дельфи 7, поможете?
С помощью API-функций создать графическое приложение, которое выводит 8-10 прямоугольников с разными атрибутами (цвет, толщина, стиль), с обязательной перерисовкой изображения при манипуляциях с окном
до завтра сдать нужно(
 
RastoДата: Среда, 02.06.2010, 18:21 | Сообщение # 58
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Задача.
Значения x1,x2,..., xn - корни многочлена n-1 степени. Найти коэффициенты многочлена.
 
DevilДата: Воскресенье, 02.01.2011, 00:05 | Сообщение # 59
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Нужно научиться языку программирования Паскаль и не только, тогда вам сюда http://vkontakte.ru/club22711942
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задания на Паскаль (4)
Страница 4 из 4«1234
Поиск:

Copyright MyCorp © 2016