Кто может помочь с домашней работой по програмированию(тема паскаль) ?

то делается с помощью массивов. объясняю алгоритм. выбираем переменные, х, y, z  х-число, y- месяц, z-год. далее, создаем массив из 12 кусков, - месяцев, т.е. 1-й элемент - январь, 12-й - декабрь, далее вводим число : write('enter the date, day', x ,' month ', y ,' year ' , z ); , после этого, смотрим, какому элементу массива соответствует х, т.е. какому порядковому номеру, после этого выводим всё на экран : writeln(' Todays date is the ', x ,' of ', y ,' year ' , z ' )

Кроко, ты пошутил? цикл из 12 if then else? можно и с кейс оф... но грубо. тут на массивы задумывалось, наверное

не думаю что подобные задачи давали студентам на массивах делать это походу первые уроки... к котором применялись if или case в целом так будет выглядеть:

var x,y,z:integer;
mon:string;
begin
readln(x, y, z);
  case y of
  1: mon:='yanvar';
  2: mon:='fefrjal';
  3: mon:='mart';
  4: mon:='aprelj';
  5: mon:='maj';
  6: mon:='ijunj';
  7: mon:='ijulj';
  8: mon:='avgust';
  9: mon:='sentabrj';
  10: mon:='oktabrj';
  11: mon:='nojabrj';
  12: mon:='dekabrj';
  end;
writeln('Eto denj ', x ,' mesac ',mon+' god ', z);
readln
end.

данный пример для консольной программы. либо же статический массив делай на 12 ячеек(mas[1..12] of string;) и как уже сказал KaKTyCC ложи в ячейку один январь в 12-ю декабрь соотвественно... mas[1]:='Январь'; и т.д. да и для кактуса write не может брать значение введенных переменных... для этого readln если не ошибаюсь;)

бедняга, тебя вынудили переписать вопрос)

А чё тут сложного? Можно вообще тупо 12 if else построить, которые проверяют номер месяца. Лучше, конечно, case of использовать..

пфф...программа элементарная :) Я в 15 лет такую делал...тебе алгоритм объяснить или исходник написать?

davaj pomogu, no tolko posle seksa

Понимал бы о чём речь, то обязательно помог бы, но в цифрах не силён... =))))

м эта темка забыта почти  да и конспект потеряла:(

Я в этом не разбираюсь но вот что то нашёл похожее