30.06.2009, 03:57 | #142 (permalink) | |
Новичок
Регистрация: 18.06.2009
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
30.06.2009, 19:27 | #144 (permalink) |
Новичок
Регистрация: 30.06.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с написанием программ на паскале
1.type name=(mary, jane, kim, bob, jan,pit,tom,sara,bill,pol);
data=record male: boolean; {пол:true-муж, false-жен} height:140..200; {рост} cost:word; {зарплата} end; group = array[name] of data; Опишите функцию Higher(G), определяющую имя самого высокого мужчины из группы G. Вот мои наброски: function higher(const g: group): name; var i: name; begin higher:=Low(higher); while not g[higher].male do higher:=name(Ord(higher)+1); for i:=higher to High(i) do if g[i].male and (g[i].height>g[higher].height) then higher:=i end; procedure Fill(var g: group); var i: name; begin Randomize; for I:=Low(i) to High(i) do with g[I] do begin male:=Random<=0.5; height:=Random(200-140+1)+140 end end; var g: group; begin Fill(g); WriteLn(Ord(higher(g))); ReadLn end. 2.Напишите функцию countEq(f), которая находит кол-во строк в файле, состоящих из одинаковых литер. |
12.10.2009, 17:10 | #145 (permalink) |
Новичок
Регистрация: 12.10.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Плиз ребята помогите не могу найти ошибку в проге написал все раюотает показываю препаду её не устраивает говорит написано не правельно
вот условие задачи Дано натуральное число n, Вычислить 1/sin(1)+1/sin(1)+sin(2)+...+1/sin(1)+...+sin(n) вот сама программа #include <conio.h> #include <stdio.h> #include <math.h> main() {clrscr(); int n,i; float s=0; printf ("Vvedite n="); scanf ("%d",&n); for (i=0;i<n;i++) s+=1/(sin(i)+sin(i+1)); printf ("Pri n=%d, znchenie uravneniya= %.2f",n,s); getch (); return 0; } она рабочая но училка говорит что написана(вычислена) она не правильно, помогите мне разобраться что тут не так . Пы.Сы это задача из Абрамова номер 77(г) мой майл chaoscool@mail.ru Последний раз редактировалось Huk; 12.10.2009 в 17:13 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
17.10.2009, 20:21 | #146 (permalink) |
Новичок
Регистрация: 17.10.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
всем здрасте, задали индивидуалку не могу сделать(( настроения совсем неть а сдавать надо в понедельник если кто нить решит буду благодарен.
Задание1: Задан текст. Определить первое слово, начинающееся с заданного символа. Задание2:Создать двоичный файл и записать в него n целых чисел. Массив создать из исходного файла. Внести в него числа, расположенные в файле между минимальным и максимальным элементами.(Во всех заданиях составить две программы. Первая должна сформировать двоичный файл. Вторая - считать данные из этого файла, выполнить соответствующие вычисления и записать их результаты в текстовый файл.) Задачи делаются на си. |
30.10.2009, 10:59 | #150 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Разобрать-то можно, беда в другом - я лично ничего в этих множествах (SET) не тяну. Так что может быть Вы? А с картинкой - посмотрите так:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
|
|